I am having some major problems trying to customize this asp page. Pasted below is the original code. For some reason the form is not posting the "UnivID" to the asp page. I keep getting error page 1. (I put that in so I could see where it was failing) If I comment that line out then I get the following error
Server object error 'ASP 0177 : 800401f3'
/nsurequest.asp, line 21
Invalid class string
I did some research and it said that I might need Microsoft resource kit installed. I did this and rebooted and I get the same error. So I guess this is a two part question. Why is the value "UnivID" not getting posted and what is the line 21 error.
<form onsubmit="return validateForm(this)" method="POST" action="nsurequest.asp">
<p>University ID:<input type="text" name="UnivID" size="20"><br>
Last name:<input type="text" name="LastName" size="20"><br>
<input type="submit" value="Check my record" name="submit"></p>
<%@ LANGUAGE="VBSCRIPT" %>
Response.Buffer = true ' because of Redirect later
'This function takes a string, searches for it in the patroninfo string, and returns
'the information between that string and the string "<BR>".
x = InStr(1, patroninfo, srchstr, 1)
if x = 0 then ' This means there was no occurrence of the string in the target
FindData = "No information on file."
y = InStr(x, patroninfo, "<BR>", 1)
z = Len(srchstr)
FindData = Mid(patroninfo, x + z, y - x - z)
'Redirect user to the signin page if they are not submitting UnivID or LastName info.
if not Request.Form("UnivID") then Response.Redirect("error1.
if Request.Form("LastName") = "" then Response.Redirect("error2.
Set objASP2HTM = Server.CreateObject("IISSa
tm") 'Create an ASPToHTM object
'Use the URL method of the object to pass the user's ID number to the INNOPAC
& Request.Form("UnivID") & "/dump")
patronInfo = objASP2HTM.Body
'Store body text in the patroninfo variable
'If no patron record with the submitted ID number, INNOPAC will return an error screen
errmsg="ERRMSG=Requested record not found"
'If error message found within body string, value will be greater than zero, or zero if not found
errchk = InStr(1, patroninfo, errmsg, 1)
age title goes here</title></head>")
if errchk > 0 then
' The INNOPAC returned an error, so the record was not found
Response.Write("Text of your User Not Found error message goes here.")
' Some record was returned, so get the user's data
userName = FindData("PATRN NAME[pn]=")
userAffil = FindData("AFFIL.[p44]=")
userExpDate = FindData("EXP DATE[p43]=")
'Decide if they logged in properly by checking their lastname against that found in INNOPAC.
userLastName = Left(userName, Len(Request.Form("LastName
if StrComp (Request.Form("LastName"),
userLastName, 1) <> 0 then
Response.Write("Text of your User Name Mismatch error message goes here.")
'Decide if they can use the service by checking for their AFFIL.
if userAffil <> "a" and userAffil <> "b" and userAffil <> "c" then
Response.Write("Text of your User Not Authorized error message goes here.")
'Decide if they can use the service by checking their Expiration Date
if IsDate(userExpDate) = False then ' The string found is not a valid date
Response.Write("User Expiration Date Invalid error message goes here.")
else ' The string is a real date
userExpDate = CDate(userExpDate) ' Convert the string to date format
if userExpDate < Date() then ' The user is expired
Response.Write("User Expired error message goes here.")
else ' Show them the page because they meet all the tests
Response.Write("Here is the actual information they need.")