Innan jag börjar härja runt i koden: vad vill du göra med den?
Hej,
Har ett litet 'stort' problem
Just nu ser koden ut så här, vilket funkar ganska bra.
<%Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "DSN=b1464-crossdata;Password=@01#$hefghhdgmlbfkjdhmpfbce"
Set RecSet = Connect.Execute("SELECT * FROM cross WHERE ID=" & Request.QueryString("ID"))
Set RS = Connect.Execute("SELECT * FROM image WHERE crossID=" & Request.QueryString("ID"))
%>
Problemet är att jag måste skapa ett ADODB.Recordset för att pagingen ska funka
Ööö hur ska min kod se ut då för att funka?
Provade det här:
<%Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "DSN=b1464-crossdata;Password=@01#$hefghhdgmlbfkjdhmpfbce"
Set RecSett = Server.CreateObject("ADODB.Recordset")
Set RecSet = Connect.Execute("SELECT * FROM cross WHERE ID=" & Request.QueryString("ID"))
Set RS = Connect.Execute("SELECT * FROM image WHERE crossID=" & Request.QueryString("ID"))
RecSett.Open Connect, RS, RecSet, adOpenDynamic, adLockOptimistic
%>
Fick detta felmeddelandet:
Microsoft VBScript runtime error '800a000d'
Type mismatch: 'RecSett.Open'
/cross/show_image.asp, line 26
Då provade jag att göra så här:
<%Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "DSN=b1464-crossdata;Password=@01#$hefghhdgmlbfkjdhmpfbce"
Set RecSett = Server.CreateObject("ADODB.Recordset")
Set RecSet = "SELECT * FROM cross WHERE ID=" & Request.QueryString("ID")& " "
Set RS = "SELECT * FROM image WHERE crossID=" & Request.QueryString("ID")& " "
RecSett.Open Connect, RS, RecSet, adOpenDynamic, adLockOptimistic
%>
Men fick då detta felmeddelande
Microsoft VBScript runtime error '800a01a8'
Object required: '[string: "SELECT * FROM cross "]'
/cross/show_image.asp, line 22
Något annat förslag ?
//m.v.h. Jimpa

