
<%@language="vbscript"%>
<% dim objconn,objrs
set objconn=server.createobject("adodb.connection")
objconn.connectionstring="dsn=telesup;uid=sa;pwd=; "
objconn.open
set objrs=server.createobject("adodb.recordset")
objrs.open "telesup", objconn, 1, 2, adcmdtable
stra=trim(request("usuario"))
objrs.filter= "usuario = 'a'"
objrs.movefirst
'if objrs.filter=true then
do while not objrs.eof
response.write "usuario:"& objrs("usuario")& "<br>"
response.write "nombres:"& objrs("nombres")& "<br>"
response.write "apellidos"& objrs("apellidos")& "<br>"
response.write "carrera:" & objrs("carrera") & "<br>"
response.write "semestre:" & objrs("semestre")& "<br>"
objrs.movenext
'else
loop
'end if
%>
'<html>
'<body>
'<form>
'usuario:<input type="text" value="<%=objrs("usuario")%>"<br>
'nombres:<input type="text" value="<%=objrs("nombres")%>"<br>
'apellidos:<input type="text" value="<%=objrs("apellidos")%>"<br>
'carrera:<input type="text" value="<%=objrs("carrera")%>"<br>
'semestre:<input type="text" value="<%=objrs("semestre")%>"<br>
'</form>
'</body>
'</html>