Set conn = Server.CreateObject("ADODB.Connection")
Set NewCust = Server.CreateObject("ADODB.RecordSet")
conn.Open "onenapilicontest"
NewCust.Open "SELECT * FROM giveaway5 WHERE EMail = '" & Request.Form("email") & "'", conn
, adOpenKeyset , adLockOptimistic
|