<html>
<head>
<title>ASP PAGE</title>
</head>
<body bgcolor='#FFFFFF'>
<form action='default.asp' method='post'>
<CENTER>
<TABLE>
<% if erreur<>"" then Response.Write(erreur)
end if %>
<TR>
<TD>Université :</TD>
<TD><select name='codeetab'>
<!--#include file = "database.inc"-->
<%
'Crée une instance de l'objet Recordset
Set rs = Server.CreateObject("ADODB.Recordset")
'Ouvre recordset à l'aide de la méthode Open
' et utilise la connexion établie par l'objet Connection
strSQL = "SELECT codeetab,libcourtetab FROM etab where codeetab<>0
and codeetab<>6"
rs.Open strSQL, cn
'Parcourt l'ensemble des enregistrements et affiche les résultats
' puis incrémente la position de l'enregistrement grâce à
la méthode MoveNext
Do Until rs.EOF
Response.Write "<option value='" & rs("codeetab")
& "'>" & rs("libcourtetab")
rs.MoveNext
Loop
%>
</select>
</TD>
</TR>
<TR>
<TD>Utilisateur :</TD>
<TD><input type='text' name='login'></TD>
</TR>
<TR>
<TD>Mot de passe :</TD>
<TD><input type='password' name='password'></TD>
</TR>
<TR>
<TD><input type='submit' name='submit' value='Entrer'></TD>
</TR>
</TABLE>
</CENTER>
</form>
</body>
<html>
|
|
