<%@ LANGUAGE="VBSCRIPT" %>
<%
Dim myConn 
'Query to be executed
Dim SQLQuery 
'Recordset
Dim rs 
'StudentNo Of Logged in user
Dim UserName 
'Password of User
Dim Password
set Conn=server.createobject("ADODB.Connection") 
'Creating Recordset Object 
set rs = Server.CreateObject("ADODB.Recordset") 
connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" 
connStr = connStr + server.MapPath("mymembers.mdb")
Conn.open connStr 

Dim Conn, oRSu
username = request.form("username")
password = Request.Form("Password")
repgrp = Request.Form("repgrp")
if Session("ausr") = "" or Request.Form("usrname") <> "" then
Session("ausr") = ""
Set oRSu = Conn.Execute("SELECT * from users where username = '" & username & "' and password = '" & password & "' ") 

if oRSu.EOF then 
Response.Redirect "zlogin.asp?username=" & UserName 
End if 

if not oRSu.EOF then

Session("ausr") = trim(oRSu ("username"))
Session("repgrp") = Request.Form("repgrp")


If Len(Request("requester")) > 0 Then
Response.Redirect (Request("requester"))
Else
Response.Redirect "zlogin.asp?UserName=blank"
End if
end if

end if
%>

repgrp = session("repgrp")

sql = "select * from mydata where status = 'Pending' and repfirm like '%" & repgrp & "%' "

Spky

• Database / DRW help Check out the Tutorials for Frontpage Databases
  
• Forum FAQ' s