<%
'session.Abandon()
sub updaterec
Dim sSQL1,cST1,rSUSERS1
cST1 = "Driver={Microsoft Access Driver (*.mdb)};"
cST1 = cST1 & "DBQ=" & server.mappath("admin/tech_survey.mdb")
set dBO1 = Server.CreateObject("ADODB.Connection")
dBO1.open cST1
dBO1.CursorLocation = 3
sSQL1 = "update training set mode = 0 where enddate < #" & date() & "#"
dbo1.Execute(sSQL1)
dBO1.close
set SSQL1 = nothing
set dBO1 = nothing
set cST1 = nothing
end sub
%>
<%
call updaterec()
Dim sSQL,cST,rSUSERS
Sub setnull()
dBO.close
set SSQL = nothing
set dBO = nothing
set cST = nothing
End Sub
cST = "Driver={Microsoft Access Driver (*.mdb)};"
cST = cST & "DBQ=" & server.mappath("admin/tech_survey.mdb")
set dBO = Server.CreateObject("ADODB.Connection")
dBO.open cST
dBO.CursorLocation = 3
sSQL = "select training from training where mode = 1"
set rSUSERS = dbo.Execute(sSQL)
%>
SPS Tech. Survey
| |
|
|
|
|
<%
if rSUSERS.recordcount > 0 then
sName = rSUSERS(0)
session("sName") = sName
else
sName = ""
end if
%>
| |
Sapulpa Schools
<% = sName %> survey
|
|
<%
if rSUSERS.recordcount > 0 then
%>
<%
else
session.Abandon()
%>
No survey is online at this
time, you will be notified via email when the survey is available online.
Thank you for visiting the Sapulpa Schools survey home page.
<% end if %>
<% setnull() %> 