What's wrong in that code ??

[AlexRezid]

I try this code for going to record X in a AccessDB using a web page...

But I don't know why, it works if I put it on an Access form, but it doesn't work any more in a web page

Could someone help ?

<SCRIPT language=vbs>
<!--
	Sub TestGo(Value As Integer)
        	Dim Record2 As New ADODB.Recordset
        	Dim i As Integer
        	Dim strsql As String
        
        	strsql = &quot;SELECT * FROM InfosClients&quot;
        	Record2.CursorLocation = adUseClient
        	Record2.Open strsql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
        	Record2.MoveFirst
        	Do While Not Record2.EOF And Not i = Value
        	    Record2.MoveNext
        	    i = i + 1
        	Loop
        	Set Me.Recordset = Record2
	End Sub
-->
</SCRIPT>

Thanks

Alex

 

[dhookom]

I doubt a web page has "CurrentProject.Connection". You might want to post vbscript questions in the VBScript forum.

Duane
MS Access MVP

 

[FancyPrairie]

Try something like this:

set cnn = CreateObject("ADODB.Connection&quot
set rst = CreateObject("ADODB.Recordset&quot

cnn.Open "Provider=blah, blah, blah)
rst.Open "Select...",cnn