***** http://www.banknd.com/slnd/exams/get_student.asp
<%
msg=""
Action = Left(UCase(Request("Action")),5)
If Action = "ENTER" Then
If Request("FirstName") = "" OR _
Request("LastName") = "" OR _
Request("Address") = "" OR _
Request("City") = "" OR _
Request("State") = "" OR _
Request("Zip") = "" OR _
Request("Phone") = "" OR _
Request("DOB") = "" OR _
Request("SSNumber") = "" OR _
Request("DLNumber") = "" OR _
Request("DLIssuingState") = "" Then
msg="
All fields must have a valid non-empty response.
"
End If
If msg = "" Then
sql = "insert into Student (" &_
"FirstName, " &_
"LastName, " &_
"Middle, " &_
"Address, " &_
"City, " &_
"State, " &_
"Zip, " &_
"Phone, " &_
"Email, " &_
"DOB, " &_
"SSNumber, " &_
"DLNumber, " &_
"DLIssuingState) " &_
"VALUES ( "
sql = sql & CheckString(Request("FirstName"),",")
sql = sql & CheckString(Request("LastName"),",")
sql = sql & CheckString(Request("Middle"),",")
sql = sql & CheckString(Request("Address"), ",")
sql = sql & CheckString(Request("City"), ",")
sql = sql & CheckString(Request("State"), ",")
sql = sql & CheckString(Request("Zip"), ",")
sql = sql & CheckString(Request("Phone"), ",")
sql = sql & CheckString(Request("Email"), ",")
sql = sql & CheckString(Request("DOB"), ",")
sql = sql & CheckString(Request("SSNumber"), ",")
sql = sql & CheckString(Request("DLNumber"), ",")
sql = sql & CheckString(Request("DLIssuingState"), ")")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open Session("ConnectionString")
Conn.Execute(sql)
Response.Redirect "http://www.banknd.com/slnd/exams/choose_exam.asp"
End If 'msg = ""
End If 'Action = "ENTER"
%>
SLND - Student Information
<%FirstName = Request("FirstName")
if Session("StudentID") = -1 then
Response.Write "" & Session("FirstName") & ", we need to update your information in our database"
FirstName = Session("FirstName")
end if
%>
This required information is encrypted to assure the security of the transmitted data. Please complete all the fields as required. Thank you for assisting us with completing the form using the proper formats.
<%= msg %>
|