<%@ LANGUAGE="VBSCRIPT" %> Document Title <% theDate = now Response.Write(theDate)%> Your SessionID is <% Response.Write(Session.SessionID) %> Your Session Timeout is <% = Session.Timeout %> <% Response.write "Welcome " & Request.Form("login") & "." %> <% Response.write "your password is " & Request.Form("password")%> <% Session("sLogin")=Request.Form("login") Session("sPassword")=Request.Form("password") %> <% login1 =Session("sLogin") password1=Session("sPassword") %> <% '=login1 %> <% '=password1 %> <%set conn=server.createobject("ADODB.Connection") conn.ConnectionTimeout = 45 conn.CommandTimeOut = 45 conn.open "DSN=ais", "d_qi", "d_qi" %> <%Response.Write(conn.Errors.Count)%> <%IF conn.Errors.Count >0 THEN FOR each error in conn.Errors Response.Write("Connection Error " & Error.Number & ":" & Error.Description) NEXT END IF %> <% set cmd=Server.CreateObject("ADODB.Command") cmd.CommandText="select * from AccessList " & _ "where users = '"&login1&"' AND password='"&password1&"' " 'cmd.CommandText = "INSERT INTO dir_permission " & _ '"(username, server, dir, expiration) " & _ '" VALUES ('"&sTempUser&"', '"&sServer1&"', '"&sDir1&"', '"&sDate2&"')" set cmd.ActiveConnection =conn %> <% set rs = Server.CreateObject("ADODB.Recordset") 'rs.open [Source, ActiveConnection, Cursortype, Lcoktype, Options set rs =cmd.Execute %> <% IF rs.EOF THEN Response.write("

Incorrect login or password

") %> <% ELSE %>

Welcome to SITG's directory permission Notification page or Temporary Employee

Use Submit to submit your form

Please type in the temporary user login:

Servers to access (All if apply):

Directory Permissioned

Expired On (mm/dd/yy)

XSTS02F
XSTS05F
XSTS06F

<% Dim i i= 0 %> <% do while i < 5 AND not rs.EOF Response.write("") Response.write("") Response.write("") Response.write("") Response.write("") rs.moveNext i = i+ 1 loop %>
LOGIN PASSWORD E-MAIL
") Response.write(rs("users")) Response.write("") Response.write(rs("password")) Response.write("") Response.write(rs("emailAddr")) Response.write("
<% END IF %> <% 'rs_main.AddNew 'rs_main("username") = "Jim" 'rs_main("server") = "xsts05f" 'rs_main("dir") = "project" 'rs_main("expiration")="5/16/98" ' rs_main.update %> <% set Session("sConn") = conn %> <% set Session("sCmd") = cmd %> <% set Session("sRs") = rs %>