<%
Set PreRegister=oConn.Execute("SELECT * FROM events,locations,codes WHERE event_location=location_ID AND event_code=code_short AND event_code<>'TEST' AND event_code<>'SPEC' AND code_live=TRUE AND event_live=TRUE AND event_start>Now() AND event_prereg=TRUE")
%>
<input type=text name=email"&PreRegister("event_ID")&" value='' size=26 placeholder='Email Address' class=inputbox>
<input type=hidden name=event"&PreRegister("event_ID")&" id=eventID"&PreRegister("event_ID")&" value=''>
<input type=submit name='register' value='Register!' onclick='document.getElementById('eventID"&PreRegister("event_ID")&"').value='"&PreRegister("event_ID")&"'' class=inputsubmit>
If Request.Form("register")="Register!" Then
Set EventIDs=oConn.Execute("SELECT * FROM events")
Do Until EventIDs.EOF
eventID=EventIDs("event_ID")
eID=Request("event"&eventID)
email=Request("email" & eventID)
If eID<>"" and isNumeric(eID) Then
' check if email address exists
Set checkemailexist=oConnAE.Execute("SELECT * FROM pax_contacts,pax_register WHERE pax_contacts.pax_ID=pax_register.pax_ID AND event_ID="&eID&" AND pax_contact='"&email&"'")
If Not checkemailexist.EOF Then
Response.Write("Your email address has already registered for this event")
Else
' send email to client saying thank you for signing up for the news letter and opportunity to complete user account.
oConnAE.Execute("INSERT INTO pax(pax_fname) VALUES('GP Fan')")
Set NewPax=oConnAE.Execute("SELECT @@IDENTITY AS New_Pax_ID")
PaxID=Cstr(NewPax("New_Pax_ID"))
oConnAE.Execute("INSERT INTO pax_contacts(pax_ID,contact_type,pax_contact,contact_primary) VALUES("&PaxID&",2,'"&email&"',TRUE)")
oConnAE.Execute("INSERT INTO pax_register(pax_ID,event_ID,reg_date,reg_time) VALUES("&PaxID&","&eID&","&Now()&","&Time()&")")
Response.Write("email check works and no email in db")
End If
End If
EventIDs.MoveNext
Loop
End If
<%
MainArea=MainArea&"<td width=240 height=80 valign=middle align=center colspan=3><input type='text' name='email"&PreRegister("event_ID")&"' value='' size=26 placeholder='Email Address' class='inputbox'></td>"
MainArea=MainArea&"</tr>"
MainArea=MainArea&"<tr>"
MainArea=MainArea&"<td width=240 height=60 valign=middle align=center colspan=3><input type='hidden' name='event"&PreRegister("event_ID")&"' id='eventID"&PreRegister("event_ID")&"' value=''><input type='submit' name='register' value='Register!' onclick='document.getElementById('eventID"&PreRegister("event_ID")&"').value='"&PreRegister("event_ID")&"'' class='inputsubmit'></td>"
MainArea=MainArea&"</tr>"
MainArea=MainArea&"<tr>"
MainArea=MainArea&"<td width=240 height=180 valign=middle align=center colspan=3>Please provide your email to be notified when tickets / packages for the <b>"&EventName&"</b> are released.</td>"
%>
MainArea=MainArea&"<tr>"
MainArea=MainArea&"<td width=240 height=80 valign=middle align=center colspan=3><input type='text' name='email"&PreRegister("event_ID")&"' value='' size=26 placeholder='Email Address' class='inputbox'></td>"
MainArea=MainArea&"</tr>"
MainArea=MainArea&"<tr>"
MainArea=MainArea&"<td width=240 height=60 valign=middle align=center colspan=3><input type='hidden' name='event"&PreRegister("event_ID")&"' id='eventID"&PreRegister("event_ID")&"' value=''><input type='submit' name='register' value='Register!' onclick='document.getElementById('eventID"&PreRegister("event_ID")&"').value='"&PreRegister("event_ID")&"'' class='inputsubmit'></td>"
MainArea=MainArea&"</tr>"
MainArea=MainArea&"<tr>"
MainArea=MainArea&"<td width=240 height=180 valign=middle align=center colspan=3>Please provide your email to be notified when tickets / packages for the <b>"&EventName&"</b> are released.</td>"
MainArea=MainArea&"</tr>"
If Request.Form("register")="Register!" Then
' Response.Write("request.form works")
' Set EventIDs=oConn.Execute("SELECT * FROM events")
Set EventIDs=oConn.Execute("SELECT * FROM events,locations,codes WHERE event_location=location_ID AND event_code=code_short AND event_code<>'TEST' AND event_code<>'SPEC' AND code_live=TRUE AND event_live=TRUE AND event_start>Now() AND event_prereg=TRUE")
Do Until EventIDs.EOF
eventID=EventIDs("event_ID")
eID=Request("event"&eventID)
email=Request("email"&eventID)
Response.Write(eventID&"-"&eID&"-"&email&"<br>")
If eID<>"" and isNumeric(eID) Then
Response.Write("if statement works")
' check if email address exists
Set checkemailexist=oConnAE.Execute("SELECT * FROM pax_contacts,pax_register WHERE pax_contacts.pax_ID=pax_register.pax_ID AND event_ID="&eID&" AND pax_contact='"&email&"'")
If Not checkemailexist.EOF Then
Response.Write("email check works and email in db")
Else
Response.Write("email check works and no email in db")
oConnAE.Execute("INSERT INTO pax(pax_fname) VALUES('GP Fan')")
Set NewPax=oConnAE.Execute("SELECT @@IDENTITY AS New_Pax_ID")
PaxID=Cstr(NewPax("New_Pax_ID"))
oConnAE.Execute("INSERT INTO pax_contacts(pax_ID,contact_type,pax_contact,contact_primary) VALUES("&PaxID&",2,'"&email&"',TRUE)")
oConnAE.Execute("INSERT INTO pax_register(pax_ID,event_ID,reg_date,reg_time) VALUES("&PaxID&","&eID&","&Now()&","&Time()&")")
End If
End If
EventIDs.MoveNext
Loop
End If
<%
MainArea=MainArea&"<input onclick='document.getElementById('eventID"&EventGP("event_ID")&"').value='"&EventGP("event_ID")&"'>"
%>
<%
MainArea=MainArea&"<input onclick='document.getElementById(""eventID"&EventGP("event_ID")&"""').value='"&EventGP("event_ID")&" '>"
%>
onclick='document.getElementById(""eventID"&EventGP("event_ID")&"""').value="""&EventGP("event_ID")&""" '
onclick='document.getElementById(""eventID"&EventGP("event_ID")&""").value="""&EventGP("event_ID")&""" '
Also, I noticed you're not surrounding your html attribute values with single or double quotes. This can yield unexpected behavior if you have bad HTML. Please correct that first (as I've mentioned in previous questions) so we can eliminate any potential errors caused by invalid html