<%
Response.Write ""
if Request("OldUser")="1" then
user=Session("UserName")
pass=Session("Password")
else
yer=right(Year(FormatDateTime(date,0)),2)
dy=day(FormatDateTime(date,2))
mnth=month(FormatDateTime(date,2))
hr=hour(Time)
min=minute(Time)
secs=second(Time)
user="User"& yer & mnth & dy & hr & min & secs
i = 0
Randomize
While i < 8
k = Rnd()
k = Right(k, 2)
If k < 91 And k >= 65 Then 'To select only alphabetical character
St = St & Chr(k)
i = i + 1
End If
Wend
pass=left(st,8)
NewUser = 1
end if
%>
<%
set rsCompany=server.CreateObject ("adodb.recordset")
set rs=server.CreateObject("ADODB.Recordset")
Company=0
if Request("Company") <> "" then
Company=Request("Company")
end if
if Request("OldUser") = "1" and Request("AgainHit") <> "1" then
rsCompany.Open "FindSelectedResumeCompany '"&user&"','"&pass&"'",Session("ConnectionString")
if not rsCompany.EOF then
UserId=rsCompany("UserId")
Company=rsCompany("UserId")
CompanyName=rsCompany("CompanyName")
End if
rsCompany.Close
End if
Response.Write("Please fill in all details below as completely as possible. * indicates required fields. ")
Response.Write(" ")
Response.Write("