What's wrong in that code ??

[AlexRezid]

Hi all !

This script is included in a HTML web page.

<SCRIPT language=vbs>
<!--
   Sub TestGo(Value As Integer)
      Dim i As Integer
      Dim strsql As String
      set cnn = CreateObject(&quot;ADODB.Connection&quot;)
      set Record2 = CreateObject(&quot;ADODB.Recordset&quot;)
      strsql = &quot;SELECT * FROM InfosClients&quot;
   
      cnn.Open &quot;Provider=Provider=Microsoft.Jet.OLEDB.4.0,
          User ID=Admin,
          Data Source=C:\Mes documents\Fichier Client\Client_db.mdb,
          Mode=Share Deny None,
          Extended Properties=&amp;quot;&amp;quot;,
          Persist Security Info=False,
          Jet OLEDB:System database=&amp;quot;&amp;quot;,
          Jet OLEDB:Registry Path=&amp;quot;&amp;quot;,
          Jet OLEDB:Database Password=&amp;quot;&amp;quot;,
          Jet OLEDB:Engine Type=0,
          Jet OLEDB:Database Locking Mode=1,
          Jet OLEDB:Global Partial Bulk Ops=2,
          Jet OLEDB:Global Bulk Transactions=1,
          Jet OLEDB:New Database Password=&amp;quot;&amp;quot;,
          Jet OLEDB:Create System Database=False,
          Jet OLEDB:Encrypt Database=False,
          Jet OLEDB:Don't Copy Locale on Compact=False,
          Jet OLEDB:Compact Without Replica Repair=False,
          Jet OLEDB:SFP=False&quot;
	
      Record2.Open strsql,cnn
      Record2.MoveFirst
      Record2.Move(Value-1)
      Set Me.Recordset = Record2
   End Sub
-->
</SCRIPT>

What I want to do is going to the "Value" record in my access DB automatically.

Could someone help to debug this script ?

Thanks

Alex

 

[sfvb]

You've got:
"Provider=Provider=Microsoft.Jet.OLEDB.4.0,

Is that what you really want???

 

[AlexRezid]

No...

Thanks
But it still don't work...

Any Idea ?

Alex