<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
Document sans titre
<%
Dim rech
rech = Request.Form( "recherche" )
if rech = "" then
rech = "nom1"
end if
%>
Recherche de <%= rech %>
<%
Dim oConn, drvdb, oRs
Set oConn = Server.CreateObject( "ADODB.Connection" )
drvdb = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;DATABASE=test;UID=root;PWD=root;OPTION=35;"
oConn.Open drvdb
' exemple de requête
req = "select * from cours where nom='" & rech & "'"
Set oRs = Server.CreateObject("ADODB.RecordSet")
oRs.Open req, oConn
if oRS.eof then
%>
Pas de résultat !
<%
else
%>
| Nom | Lien |
|---|
<%
end if
do while not oRS.eof %>
| <%= oRS("nom") %> |
<%= oRS("lien") %> |
<%
oRS.movenext
loop
oRs.Close
oConn.Close
%>