Dim data
Dim data_numRows
Set data = Server.CreateObject("ADODB.Recordset")
Sql="Select * from per_login where per_username= '" &username&"' and per_password = '"&password&"' ; "
data.open Sql, MM_MSSQL_STRING,1,3
%>
<% while not data.eof %>
<% user=data("per_username") %>
<% pass=data("per_password") %>
<% online=data("per_username")%>
<% data.MoveNext
Wend
data.close
%>
<% if user= username and pass= password Then %><%session("online")=online%>