I followed the instruction from thread333-1164595. The problem i am having is that i get "The page cannot be found" when i try to run it. Does anyone know as to why i am getting this message. Am i not testing it correctly. I am attaching my code so that you can see what it is that i am doing.
Code:
<%
'--
Dim a
Dim b
Dim positionofslash
positionofslash = Instr(Request.ServerVariables("LOGON_USER"),"\")
Session("s_cLogon") = MID(Request.ServerVariables("LOGON_USER"),positionofslash+1)
logon = Session("s_cLogon")
IF logon = "" THEN
Response.Write "Does not have logon id."
Response.End
END IF
dim conn, rs, sql
set rs = Server.CreateObject("ADODB.Recordset")
set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" &_
"Data Source=CORPORATE;" &_
"Jet OLEDB:System Database=corporate"
sql="SELECT LastName,FirstName FROM [dbHumanResources].[EMPLOYEE] WHERE SystemLogin = '" & logon & "'"
rs.Open sql, conn
IF rs.EOF THEN
Response.Write "Sorry ..... No Records Found"
ELSE
a=rs("LastName")
b=rs("FirstName")
Response.Write a + ", " + b
END IF
rs.Close
%>