N n1kke Medlem sedan aug. 2006 34 inlägg Frågan 2 aug. 2006 13:46 #1 <%
If Request.QueryString("doit") = "gbadd" Then
gbAlias = Session("user")
gbAliasId = Session("id")
gbMess = Request.Form("gbMess")
gbId = Request.QueryString("id")
gbDate = FormatDateTime(Now,2)
If len(gbMess)\> 0 Then
Conn.execute("Insert into panda_gb (gbAlias,gbAliasId,gbMess,gbId,gbDate) Values('" & gbAlias & "','" & gbAliasId & "','" & gbMess & "','" & gbId & "','" & gbDate & "')")
response.redirect "default.asp"
else
response.write "\<script\> alert('fel fel fel'); \</script\>"
End if
End if
%>
\<% if Session("user") = "" THEN
Response.Redirect("default.asp")
else %\>
\<form method="post" action="gb.asp?doit=gbadd"\>
\<textarea name="gbMess"\>\</textarea\>
\<br\>
\<input name="submit2" type="submit" class="submit style14" value=" Skicka "\>
\</form\>
\<%
sql = "select \* from panda_gb where gbId=" & request.QueryString("id")
Set rs = conn.execute(SQL)
while not rs.eof
Response.write Rs("gbAlias") & Rs("gbAliasId") & "\<br\>" & Rs("gbMess") & "\<br\>\<br\>"
rs.movenext
wend
Rs.Close
end if
%>
får fel på rad 32 vilket är
Set rs = conn.execute(SQL)
L LarsG Medlem sedan dec. 2000 12 464 inlägg använd [ kod ] [ /kod ] (utan blanka) runt koden
indentera koden
ange vilket felmeddelande du får
C ConnyFox Medlem sedan aug. 2001 1 087 inlägg testa
sql = "select * from panda_gb where gbId="' & request.QueryString("id") & "'"
CatZ Medlem sedan jan. 2002 2 440 inlägg
ConnyFox skrev:
testa
sql = "select * from panda_gb where gbId="' & request.QueryString("id") & "'"
Det är inte lösningen eftersom det med största säkerhet är ett tal som är id ska det vara = " & request.QueryString("id").
Det LarsG menar är att det ska se ut såhär när du postar din fråga
<%
If Request.QueryString("doit") = "gbadd" Then
gbAlias = Session("user")
gbAliasId = Session("id")
gbMess = Request.Form("gbMess")
gbId = Request.QueryString("id")
gbDate = FormatDateTime(Now,2)
If len(gbMess)> 0 Then
Conn.execute("Insert into panda_gb (gbAlias,gbAliasId,gbMess,gbId,gbDate) " _
& "Values('" & gbAlias & "','" & gbAliasId & "','" & gbMess & "','" & gbId & "','" & gbDate & "')")
response.redirect "default.asp"
else
response.write "<script> alert('fel fel fel'); </script>"
End if
End if
if Session("user") = "" THEN
Response.Redirect("default.asp")
else
%>
<form method="post" action="gb.asp?doit=gbadd">
<textarea name="gbMess"></textarea>
<br>
<input name="submit2" type="submit" class="submit style14" value=" Skicka ">
</form>
<%
sql = "select * from panda_gb where gbId=" & request.QueryString("id") & " "
Set rs = conn.execute(SQL)
while not rs.eof
Response.write Rs("gbAlias") & Rs("gbAliasId") & "<br>" & Rs("gbMess") & "<br><br>"
rs.movenext
wend
Rs.Close
end if
%>
Skriv som sagt vad du får för felmeddelande och testa skriva ut din fråga eller ställa den i din databas hanterare.
Response.Write(sql)
sql = "select * from panda_gb where gbId=" & request.QueryString("id") & " "
Set rs = conn.execute(SQL)
Är conn skapat? det syns inte i din kod.
(ett tips till: fuska inte med stora och små bokstäver som ovan då du först anger sql och sedan SQL)
N n1kke Medlem sedan aug. 2006 34 inlägg har conn via connect.asp som inkluderas på varje sida så det är därför den inte står med
D Denkan Medlem sedan juni 2002 256 inlägg sql = "select * from panda_gb where gbId=" & CInt(request.QueryString("id"))
?
Du skall nog också kolla så att request.QueryString("id") innehåller ett värde som är numeriskt. Så det inte blir en massa tjafs när annat sätts in i urlen.
Troxy Medlem sedan mars 2004 1 505 inlägg
doggelito skrev:
sql = "select * from panda_gb where gbId=" & request.QueryString("id") & " "
Varför lägger du till en sträng med ett mellanrum på slutet?
Som sagt, kontrollera först att id är ett nummer med hjälp av funktionen isNumeric.
Sedan kan du typkonvertera med hjälp av cInt om du vill, men det behövs egentligen inte.
Men det blir nog ännu lättare om du postar ditt felmeddelande istället!
N n1kke Medlem sedan aug. 2006 34 inlägg sql = "select * from panda_gb where gbId=" & request.QueryString("id") står det iofs
N n1kke Medlem sedan aug. 2006 34 inlägg Microsoft VBScript runtime error '800a01a8'
Object required: ''
/preview/gb.asp, line 31
rad 31
Set rs = conn.execute(SQL)
Troxy Medlem sedan mars 2004 1 505 inlägg Gör en utskrift av strängen sql och posta resultatet här.
response.write sql
response.end
D Denkan Medlem sedan juni 2002 256 inlägg När skapar du Conn-objektet? Har du den i en annan fil, så kontrollera att du har inkluderat den i dokumentet.