asp
<form method="POST" action="test.asp"> <div align="center"> <center> <table border="0" width="58%" bgcolor="#DDDDD2"> <tr> <td width="100%" colspan="2" bgcolor="#C83355"> <p align="center"><font color="#FFFFFF">Los Test de AspTutor</font></td> </tr> <tr> <td width="33%">Introduce un Nick</td> <td width="67%"><input type="text" name="nick" size="20"></td> </tr> <tr> <td width="33%">Elige un Test</td> <td width="67%"><select size="1" name="idtest"> <% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\database\examenes.mdb")) set ra=createobject("ADODB.Recordset") sqltxt="select idtest,titulo from test" ra.open sqltxt,conn do while not ra.eof%> <option selected value="<%=ra("idtest")%>"><%=ra("titulo")%></option> <%ra.movenext loop ra.close set ra=nothing conn.close set conn=nothing%> </select></td> </tr> <tr> <td width="100%" colspan="2" align="center"><input type="submit" value="Comenzar" name="B1"></td> </tr> </table> </center> </div> </form> <p align="center"> </p>