|
<%
dim sLastString
dim cnn
'sLastString = "Provider= Microsoft.Jet.OLEDB.4.0; Data Source=c:\inetpub\wwwroot\copps2007.mdb"
sLastString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
"\\premfs3\sites\premium8\maxfinite\database\copps2012.mdb;" & _
"Persist Security Info=False;"
Set cnn = Server.CreateObject("ADODB.Connection")
cnn.Open (sLastString)
Dim lSQL
'response.write("***"&thisSchool)
lSQL = "select * from complistres where school = " &"'"&thisSchool&"'"
lSQL = lSQL & "Order by surName"
Dim lRS
Set lRS = CreateObject("ADODB.Recordset")
lRS.ActiveConnection = cnn
lRS.Open lSQL
Dim currentSurName
Dim currentFirstName
Dim currentName
Dim CurrentNameSex
Dim gender
Dim lFevent
Dim lfSeed
dim lsevent
dim lsSeed
response.write("")
%>
|
To the left are last year's entries
You can click one on to the form, then
submit after selecting his/her events
|
The Submit button is sticky. It is not enough
for the button to act like it has been pushed.
If you don't get a whole new screen with grey
and white boxes, you have not submitted. |