css test
<% Dim sConnection, objConn , rs
sConnection = "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=localhost; DATABASE=solo; UID=root;PASSWORD=admin; OPTION=3"
Set objConn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
objConn.open(sConnection)
sql="select distinct course_code, course_name from info1"
set rs=objConn.Execute(sql)%>
<%
email=request.Form("edemail")
if email<>"" then
sConnection = "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=localhost; DATABASE=solo; UID=root;PASSWORD=admin; OPTION=3"
Set objConn = Server.CreateObject("ADODB.Connection")
Set objRS1 = Server.CreateObject("ADODB.Recordset")
objConn.Open(sConnection)
sql="select * from reguser where email='"+email+"'"
Set objRS1= objConn.Execute(sql)
do until objRS1.EOF
%>
<%
objRS1.MoveNext
loop
else
%>
<% end if%>