<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Set ObjConn = Server.CreateObject ("ADODB.Connection")
'ObjConn.Open "loopserv"
dbConnect = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("dados\loopserv.mdb") & ";"
objConn.Open dbConnect
%>
::..::..:: LOOPSERV ::..::..::
| Cursos |
Descrição |
<%
SQL = "SELECT * FROM treinamento"
Set ObjRS = ObjConn.Execute(SQL)
While Not ObjRS.EOF %>
| <%=ObjRS("tr_nome")%>
|
|
<% ObjRS.MoveNext
Wend %>
<%
ObjConn.Close
Set ObjConn = Nothing
Set ObjRS = Nothing %>