<%@Language=VBScript%>
<%
Set con = CreateObject("ADODB.Connection")
Con.open = "DSN=bulk;UID=sa;PWD=sa@123"
If Trim(Request.form("ID")) <> "" Then
set Rs = server.CreateObject("ADODB.Recordset")
u = replace(trim(request.form("ID")),"'","''")
p = replace(trim(request.form("password")),"'","''")
Rs.open "select * from Login where ID = '" & u & "' And Password = '" & p & "' And Status=1",con
If Rs.Eof and Rs.Bof Then
msg = "Error Login, kindly check your login ID and Password"
Else
session("ID") = Trim(Rs("ID"))
session("LL") = Trim(Rs("Login"))
Con.Execute("Update Login Set Login='" & Now() & "' Where ID='" & session("ID") & "'")
response.redirect "Groups.asp"
End IF
End If
%>
Sky Telecom SMS System
