Thanks Duane
I'm working on it...
Question - if the field stampbooking is in the Access database.. do I need to still refer to it in the sql?
(Bookingnumber isn't the AutoNumber so I left to include that)
On the page that sends to the insert page the hidden fields are as follows
<input type="hidden" name="DateStart" value="<%=varDateStart%>">
<input type="hidden" name="DateEnd" value="<%=varDateEnd%>">
<input type="hidden" name="CAMP" value="Camp Wetaskiwin">
Are these correct?...
Can't get it to work with the following..
<% DIM conntemp, mySQL, myDSN
myDSN ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("../fpdb/index.mdb")
'myDSN would be specific to your environment
set conntemp=server.createobject("adodb.connection")
conntemp.open myDSN
FOR i = 1 to 26
IF Request("CampSite" & i) <> "" THEN
mySQL = "INSERT INTO WETASKIWIN1"
mySQL = mySQL & "(BOOKINGNUMBER, CAMP, DateStart, DateEnd, SPECIFICS, ADDRESS, CITY, PROVINCE, POSTALCODE, REGION, CAMPGROUP, [SECTION], YOUTH, ADULTS, EMAIL, OTHER, AREA, FIRSTNAME, LASTNAME, PHONE, [PASSWORD], CHECKINTIME, CHECKOUTTIME, SCOUTING, NONSCOUTING, CampSite)"
mySQL = mySQL & "VALUES(" & Request.Form("BOOKINGNUMBER") & ","
mySQL = mySQL & "'" & Replace(Request.Form("CAMP"),"'","''") & "',"
mySQL = mySQL & "#" & Request.Form("DateStart") & "#,"
mySQL = mySQL & "#" & Request.Form("DateEnd") & "#,"
mySQL = mySQL & "'" & Replace(Request.Form("SPECIFICS"),"'","''") & "',"
mySQL = mySQL & "'" & Replace(Request.Form("ADDRESS"),"'","''") & "',"
mySQL = mySQL & "'" & Replace(Request.Form("CITY"),"'","''") & "',"
mySQL = mySQL & "'" & Replace(Request.Form("PROVINCE"),"'","''") & "',"
mySQL = mySQL & "'" & Replace(Request.Form("POSTALCODE"),"'","''") & "',"
mySQL = mySQL & "'" & Replace(Request.Form("REGION"),"'","''") & "',"
mySQL = mySQL & "'" & Replace(Request.Form("CAMPGROUP"),"'","''") & "',"
mySQL = mySQL & "'" & Replace(Request.Form("SECTION"),"'","''") & "',"
mySQL = mySQL & "" & Request.Form("YOUTH") & ","
mySQL = mySQL & "" & Request.Form("ADULTS") & ","
mySQL = mySQL & "'" & Replace(Request.Form("EMAIL"),"'","''") & "',"
mySQL = mySQL & "'" & Replace(Request.Form("OTHER"),"'","''") & "',"
mySQL = mySQL & "'" & Replace(Request.Form("AREA"),"'","''") & "',"
mySQL = mySQL & "'" & Replace(Request.Form("FIRSTNAME"),"'","''") & "',"
mySQL = mySQL & "'" & Replace(Request.Form("LASTNAME"),"'","''") & "',"
mySQL = mySQL & "'" & Replace(Request.Form("PHONE"),"'","''") & "',"
mySQL = mySQL & "'" & Replace(Request.Form("PASSWORD"),"'","''") & "',"
mySQL = mySQL & "'" & Replace(Request.Form("CHECKINTIME"),"'","''") & "',"
mySQL = mySQL & "'" & Replace(Request.Form("CHECKOUTTIME"),"'","''") & "',"
mySQL = mySQL & "'" & Replace(Request.Form("SCOUTING"),"'","''") & "',"
mySQL = mySQL & "'" & Replace(Request.Form("NONSCOUTING"),"'","''") & "',"
mySQL = mySQL & "'" & Replace(Request.Form("CampSite" & i),"'","''") & "',"
mySQL = mySQL & "#" & Now() & "#)"
conntemp.execute (mySQL)
END IF
NEXT
conntemp.close
set conntemp=nothing
Response.write "Reservation added."
%>