<%@ Language=VBScript %>
<%
Dim securityCodeValid
securityCodeValid=true
if Date>CDate("1/1/2007") then
Response.Redirect("contest_closed.html")
end if
if Len(Request.Form("Name"))>0 then
If LCase(Session("strSecurityCode")) = LCase(Request("securityCode")) AND Session("strSecurityCode") <> "" Then
securityCodeValid = true
else
securityCodeValid=false
end if
Session.Contents.Remove("strSecurityCode")
if securityCodeValid=true then
userData=CollectUserData()
Set db=DBConn(false)
emailAlreadyInDb= CheckEmail(db,userData(12))
if not emailAlreadyInDb then
x=AddEntry(db,userData)
end if
db.Close
Set db=Nothing
Response.Redirect("thankyou-fr.html")
else
end if
end if
%>
Aldo