Hej. Du sätter in id på fel sätt. Tänk att jag satt där och försökte klura ut hur man skulle skriva sql satsen rätt..hämta en speciell post
Jag försöker hämta en post från databasen genom att skicka dess id från en annan sida.
Här skickar jag me id:et
<code>
Här hämtar jag id:et och stoppar in den i en sql sats.
<%
Dim rs, cn, strSQL,nyhetsid
nyhetsid = request.querystring ("id")
const adOpenStatic=3, adLockOptimistic=3
Set cn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
call connopen
StrSQL = "Select rubrik, innehall, datum from nyheter where id='nyhetsid'"
rs.Open strSQL,cn, adopenstatic, adLockOptimistic
%>
Och här försöker jag visa informationen från posten
<%
If Response.IsClientConnected = true then
response.write ""
Do while not rs.eof
for i=1 to 1
Response.Write "" "
Response.Write "" & rs.Fields(2).Value & "
Response.Write "" & rs.Fields(0).Value & " "
Response.Write "" & vbcrlf
Response.Write "" " & vbcrlf
Response.Write "" & rs.Fields(1) & " "
Response.Write "
Response.Write ""
Response.Write "Fler Nyheter<font>"
Response.Write "</TD>"
Response.Write "</tr>" & vbcrlf
next
rs.MoveNext
RowCount = RowCount + 1
loop
response.write "</table>"
end if
rs.close
cn.close
set rs = Nothing
set cn = Nothing
%>
</code>
Jag har testat och jag får med mig id:et som förs in i variabeln nyhetsid men sen händer de inget. Jag får varken fel eller resultat.
Kan nån se var felet kan ligga nånstans?
Svara
Sv: hämta en speciell post
Följande är rätt sätt.
<%
Dim rs, cn, strSQL,nyhetsid
nyhetsid = request.querystring ("id")
const adOpenStatic=3, adLockOptimistic=3
Set cn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
call connopen
StrSQL = "Select rubrik, innehall, datum from nyheter where id=" & nyhetsid
rs.Open strSQL,cn, adopenstatic, adLockOptimistic
%>
Sv:hämta en speciell post
tacksåmycket Thomas!