4 svar · 170 visningar · startad av niclas.j
Först och främst tack till AG & fredrik
för hjälpen igår.
OK vad är det för fel på koden?
<%
sqlstmt = "SELECT * from Guestbook WHERE ID = " & Trim(Request.QueryString
("ID")) & " "
rs.Open sqlstmt, Connect, adOpenStatic, adLockOptimistic
%>
<form method="POST" action="redigera2.asp">
<input type="hidden" name="Name" value="<% =Request.QueryString("Name")%>">
<input type="text" size="30" name="Name" value="<% =rs("Name") %>"><br>
<input type="hidden" name="Typ" value="<% =Request.QueryString("Typ")%>">
<input type="text" size="30" name="Typ" value="<% =rs("Typ") %>">
<p>
<input type="hidden" name="StX" value="<% =Request.QueryString("StX")%>">
<input type="text" size="30" name="StX" value="<% =rs("StX") %>">
<p>
<input type="submit" value="Uppdatera">
Jag får detta larm medelande:
Error Type:
Microsoft VBScript compilation (0x800A03EE)
Expected ')'
/sok/test/redigera.asp, line 17, column 74
sqlstmt = "SELECT * from Guestbook WHERE ID = " & Trim(Request.QueryString
Hoppas någon har ett svar.
/niclas
Testa att byta ut till följande
<%
sqlstmt = "SELECT * from Guestbook where id= " & Request.QueryString("id") & ""
rs.Open sqlstmt, Connect, adOpenStatic, adLockOptimistic
%>
Läste om nåt sånt inne på SQL forumet, testa det.
Andreas
[Redigerat av AG den 16 jun 2000]
Tack AG.
Ändrade koden men fick ett nytt felmedelande:
Error Type:
Microsoft VBScript runtime (0x800A01A8)
Object required: ''
/sok/test/redigera.asp, line 19
line 19=rs.Open sqlstmt, Connect, adOpenStatic, adLockOptimistic
Inte för att gnälla eller så, men det är helt onödigt att slänga på & "" i slutet på strängar. Det gör ingen nytta. Ingen skada heller, för den delen, men det är onödigt.
Vad gäller felet.. Det verkar som om du inte skapat någon recordset innen du kör open på det (rs.open). Och när du ändå håller på så ska du se till har du har en connection också (Connect).
mvh
Tack emission&AG
Jag fick till det!!
Koden blev:
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=c:\inetpub\wwwroot\sok\test\Guestbook2.mdb"
sqlstmt = "SELECT * from Guestbook ORDER BY ID"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sqlstmt, Connect
%>
Tack ska ni ha..
/niclas