<%@ Language=VBScript %>
<%Option explicit %>
<%
if Request.Form("ready") = "true" then
Dim WorkshopReg
Dim RegTbl
dim str
dim query
Set WorkshopReg = Server.CreateObject("ADODB.Connection")
WorkshopReg.Open "DSN=Workshop;"
if not Request.Form("Name") = "" then
query = "Insert into Registration values ("
str = Replace(Request.Form("Name"),"'","''")
query = query + "'" & str & "',"
str = Replace(Request.Form("Address"),"'","''")
query = query + "'" & str & "',"
str = Replace(Request.Form("City"),"'","''")
query = query + "'" & str & "',"
str = Replace(Request.Form("State"),"'","''")
query = query + "'" & str & "',"
str = Replace(Request.Form("Zip"),"'","''")
query = query + "'" & str & "',"
str = Replace(Request.Form("School"),"'","''")
query = query + "'" & str & "',"
str = Replace(Request.Form("Parish"),"'","''")
query = query + "'" & str & "',"
str = Replace(Request.Form("Phone"),"'","''")
query = query + "'" & str & "',"
str = Replace(Request.Form("Email"),"'","''")
query = query + "'" & str & "',"
str = Replace(Request.Form("Position"),"'","''")
query = query + "'" & str & "')"
Set RegTbl = WorkshopReg.Execute(query)
end if
%>
NSU PT3 Workshop Registration Complete
Thank you.
You are now registered to attend the Workshop.
<%else%>
NSU PT3 Workshop Registration Form
NSU PT3 & LACUE (Louisiana
Association of
Computer Using Educators) Technology Workshop
|
Using Tomorrow’s Tools in Today’s
Classrooms
|
When: November 8th, 2003
8:00 AM - 12:30 PM
|
| Where: Nicholls State University Student Union |
Please email Gregg Stall te-gps@nicholls.edu or call Gregg at
985.448.4318 if you have any problems with the registration.
Information will not be shared or used for soliciting.
<%end if%>