<%@ Language=VBScript %> <%Response.Buffer =true%> <% opendb() Session("username")="" session("password")="" 'Count=-1 'Flag=false 'If Request.Form ("logon")<> "" Or Request.Form ("logon")<> null then ' Set list1= Obj.Execute("Select member_id,category,username from member where username='"&Request.form("username")&"' and password='"&Request.form("password")&"'") ' list1.close ' list1.open,,1 ' Count=list1.recordCount ' 'Response.write list1.RecordCount ' ' if list1.RecordCount=1 then Response.Redirect("homepage.htm") ' Response.write "true" ' Elseif list1.RecordCount=0 then ' Response.Redirect("../default.asp?value='valid'") ' Else ' Response.write "Total Record="&list1.RecordCount ' 'Response.write "user"& Request.form("username") ' 'Response.write Request.form("password") ' end if ' Set list=nothing 'End If %>