%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% dim conexao,strcaminho ' Dim Recordset1 Dim Recordset1_numRows strcaminho ="PROVIDER=Microsoft.JET.OLEDB.4.0;DATA SOURCE="&Server.MapPath("bd/chuveiro.mdb") set conexao=Server.Createobject("ADODB.Connection") Set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = strcaminho'MM_chuveiro_STRING Recordset1.Source = "SELECT * FROM voltz5" Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType = 1 Recordset1.Open() Recordset1_numRows = 0 %>
|
|
|||||||||||||
![]() |
|
||||||||||||
![]() |
|||||||||||||
|
|
|
|
|
|
|||||||||
|
|
|||||||||||||
|
|||||||||||||
|
|||||||||||||
|
|
|
|
|
|
|
|
|
||||||