<% sql="select * from "&Request("classes")&" where hakname='"&Request("hakname")&"' " Set DbCon=Server.CreateObject("ADODB.Connection") DbCon.Open("DSN=ch71;UID=sa;PWD=pages30") Set rs=DbCon.Execute(sql) 'Set rs=Server.CreateObject("ADODB.Recordset") 'rs.Open sql,DbCon,1,1 if (rs.eof or rs.bof) then %> <%else sql2="select * from "&Request("classes")&" where hakname='"&Request("hakname")&"' and teacher='"&Request("teacher")&"' " Set rs2=DbCon.Execute(sql2) 'Set rs2=Server.CreateObject("ADODB.Recordset") 'rs2.Open sql2,DbCon,1,1 if (rs2.eof or rs2.bof) then %> <%else Response.Redirect "usrreg.asp" end if end if DbCon.Close Set rs=nothing Set rs2=nothing Set dbcon=nothing %>