|
|
 |
| |
<%
DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "
DSNtemp=dsntemp & "DBQ=" & server.mappath("ferramentas/menu.bcdanca/dbreg.mdb")
sqlstmt = "SELECT * FROM tblNames ORDER BY RecordID ASC"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sqlstmt, DSNtemp, 3, 3
TotalRecs = rs.recordcount
x = 0
For x = 1 to 999
If rs.eof then
Exit For
Else
Rec = rs("RecordID")
' name1 = rs("pname")
%>
 |
|
<%
rs.MoveNext
End If
Next%>
|
|
