Instant Win - Pierre Laurent Timepieces

<% Function ConformData(dataStr) If dataStr = "" Then ConformData = "NULL" Else ConformData = "'" & Replace(dataStr, "'", "''") & "'" End If End Function If Request.Form("submit") = "Submit" Then Set OBJdbConnection = Server.CreateObject("ADODB.Connection") OBJdbConnection.ConnectionTimeout = 15 OBJdbConnection.CommandTimeout = 30 OBJdbConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.Mappath("\database\pierrelaurent.mdb") Set SQLStmt = Server.CreateObject("ADODB.Command") Set RS = Server.CreateObject ("ADODB.Recordset") Set SQLStmt.ActiveConnection = OBJdbConnection SQLStmt.CommandType = 1 TableName = "record" FieldNamesStr = "" FieldValuesStr = "" 'must omit some of the fields i.e. auto primary key For FieldNum = 1 To Request.Form.Count - 1 FieldNamesStr = FieldNamesStr & "[" & Request.Form.Key(FieldNum) & "], " FieldValuesStr = FieldValuesStr & ConformData(Request.Form.Item(FieldNum)) & ", " Next FieldNamesStr = Left(FieldNamesStr, Len(FieldNamesStr) - 2) FieldValuesStr = Left(FieldValuesStr , Len(FieldValuesStr ) - 2) SQLStmt.CommandText = "insert into " & TableName & " (" & FieldNamesStr & ") " &_ "values (" & FieldValuesStr & ")" Response.Write SQLStmt.CommandText & "
" RS.Open SQLStmt Set RS = Nothing Set SQLStmt = Nothing Set OBJdbConnection = Nothing ' Response.Write Request.Form("dobd") & Request.Form("dobm") & Request.Form("doby") ' Response.End If Request.Form("dobd") = "14" And Request.Form("dobm") = "2" And Request.Form("doby") = "1964" Then Response.Redirect("instantwin-con.htm") Else Response.Redirect("thankyou.htm") End If Response.End End If %> Instant Win - Pierre Laurent Timepieces

Enter your email address, postal code and birthdate in spaces provided below, and click the Submit button to see if you're an instant winner! If your birthday matches the one randomly selected in our system, you will win a .... Avaliable only in CANADA. Please click here for Offical Contest Rules and Regulations
Email^*
First Name
Last Name
Address
City
Province^*
Postal Code^*
Date of Birth^*	dd mm yy
Gender

All trademarks, designs and pictures represented on the web site are intellectual property of Pierre Laurent Timepieces.
All complete or partial reproduction is strictly prohibited.