Time to check firewalls and anti virus software! :)


>Actually Tom,
>when i delved into this further it is now working on my laptop, in both ie6 and firefox and also on the clients pc, ie6. But still when i dial into their server, w2k3, and use the web frontend there with ie6 the session variables do not work!
>~M
>
>
>>Mark;
>>
>>

>>< %
>>
>>Dim de_usrnam, de_paswrd
>>de_usrnam=ucase(trim(request.form("de_usrnam")))
>>de_paswrd=ucase(trim(request.form("de_pwrd")))
>>
>>Dim ag_RS, ag_SQL, wheretogo, de_type
>>de_type = "AGENT"
>>Set ag_RS = Server.CreateObject("ADODB.Recordset")
>>
>>' Run the select command to verify the password
>>ag_sql = "SELECT * FROM agpeople WHERE upper(p_code) = '" & de_usrnam & "' AND upper(p_string) ='" & de_paswrd &"' AND p_type ='" & de_type &"'"
>>Set ag_RS = objConn.Execute(ag_sql)
>>
>>If NOT ag_RS.EOF Then
>>

>>' Suggested in place of the above...
>>IF NOT ag_RS.RecordCount > 0 THEN
>>' Another suggestion is to be sure you are getting through the conditional statement...
>>Response.Write "Here I am!"
>>

>>
>>	SESSION("USERCODE") = ag_RS("p_code")
>>	SESSION("USERNAME") = ag_RS("p_name")
>>
>>	' get the agent name
>>	Dim ag3_SQL, ag3_RS, agentref
>>	agentref = ag_RS("p_mcode")
>>	ag3_SQL = "SELECT ref, name FROM KFSMA WHERE smau6 = 2 AND ref = '" & agentref & "'"
>>
>>	Set ag3_RS = objConn4.Execute(ag3_SQL)
>>
>>	If NOT ag3_RS.EOF Then
>>		SESSION("USERWORK") = ag3_RS("name")
>>	Else
>>		SESSION("USERWORK") = "NOT FOUND"
>>	End If
>>
>>
>>	ag3_RS.Close
>>	Set ag3_RS = Nothing
>>
>>	ag_RS.Close
>>	Set ag_RS = Nothing
>>
>>	objConn.Close
>>	Set objConn = Nothing
>>
>>	response.redirect ("agent.asp")
>>
>>

>>
>>Tom