passing data to my database

[cyberdawg999]

Hello to all !!

I have a classic ASP form with checkboxes on it,
when filling out the form I have a submit button.
when users click on the button the information does not get submitted
but the form redirects to my next page

If any one could please guide me on what to look for in my code because I have
been through it three times

thank you cyberdawg999

[improvcornartist]

How are you trying to access the form fields after the form is submitted? Could you post some of the code?

[timber910]

Hello to all !!

I have a classic ASP form with checkboxes on it,
when filling out the form I have a submit button.
when users click on the button the information does not get submitted
but the form redirects to my next page

If any one could please guide me on what to look for in my code because I have
been through it three times

thank you cyberdawg999

improvcornartist is right, having the code will help alot. I know when that append I typically left off a column that I was trying to add data too. Or I had a typo in my add part of my code.

[cyberdawg999]

yes how dilly of me

ok here is my code, warning it is quite lenghty.
I think the problem could be I have two submit functions so I think the confusion lies there but im not a ASP expert most of the code is copied from another form

THE CODE:


<table border="0" cellpadding="0" cellspacing="0">
<form method='post' action='/salesdesk/workflowd.asp' name='theForm' onSubmit='return checkrequired(this)'>
<% if f = "e" then %>
<input type="hidden" name="Deal_id" value="<%= iDealID %>">
<% else %>
<input type="hidden" name="company_id" value="<%= iClientID %>">
<input type="Hidden" name="Deal_status" value="<%= strDealStatus %>">
<% end if %>
<input type="hidden" name="f" value="<%=f%>">
<input type="hidden" name="submit2" value="True"></td>
<tr>
<td colspan="4"><img src="/salesdesk/images/spacer.gif" width="1" height="5" border="0"></td>
</tr>
<tr>
<td>Client:</td>
<td colspan="2" height="22" bgcolor="#FFFFFF" style="border:solid 2 #006600;">&nbsp;<%= strClientName %></td>
</tr>

<tr>
<%'this is part of the new form im creating for workflow checkboxes%>
<td><div align="center">Completed Form? </div></td>
<td>
<div align="left">
<input type="checkbox" name="ComlpletedForm" value="yes">
<HR>
</div></td>
</tr>
<tr>
<td><div align="center">Add Client to helpdesk ? </div></td>
<td>
<div align="left">
<input type="checkbox" name="AddClient" value="yes">
<HR>
</div></td>
</tr>
<tr>
<td><div align="center">Send Fax to Mail ? </div></td>
<td>
<div align="left">
<input type="checkbox" name="SendFaxtoMail" value="yes">
<HR>
</div></td>
</tr>

<tr>
<td><div align="center">Debit Order ? </div></td>
<td>
<div align="left">
<input type="checkbox" name="DebitOrder" value="yes">
<hr>
</div></td>
</tr>

<tr>
<td><div align="center">Policy Documents sent ? </div></td>
<td>
<div align="left">
<input type="checkbox" name="PolicyDoc" value="yes">
<hr>
</div></td>
</tr>

<tr>
<td><div align="center">FaxtoSchalk? </div></td>
<td>
<div align="left">
<input type="checkbox" name="FaxtoSchalk" value="yes">
<hr>
</div></td>
</tr>

<tr>
<td><div align="center">Debit Order to Accounts ? </div></td>
<td>
<div align="left">
<input type="checkbox" name="DebitOrdertoAccounts" value="yes">
<hr>
</div></td>
</tr>

<tr>
<td><div align="center">ADSL Usage ? </div></td>
<td>
<div align="left">
<input type="checkbox" name="ADSLUsage" value="yes">
<hr>
</div></td>
</tr>
<tr>
<td><div align="center">Fix VPN IP ? </div></td>
<td>
<div align="left">
<input type="checkbox" name="FixVPNIP" value="yes">
<hr>
</div></td>
</tr>

<tr>
<td><div align="center">Setup VPN ? </div></td>
<td>
<div align="left">
<input type="checkbox" name="SetupVPN" value="yes">
<hr>
</div></td>
</tr>
<tr>
<td><div align="center">Branch Champion Training ? </div></td>
<td>
<div align="left">
<input type="checkbox" name="BCTrain" value="yes">
<hr>
</div></td>
</tr>

<tr>
<td><div align="center">Subscription to Newsletter ? </div></td>
<td>
<div align="left">
<input type="checkbox" name="SubscriptiontoNewsletter" value="yes">
<hr>
</div></td>
</tr>

<tr>
<td><div align="center">Add Transaction to SQL ? </div></td>
<td>
<div align="left">
<input type="checkbox" name="AddtoSQL" value="yes">
<hr>
</div></td>
</tr>
<td colspan="2">

<input type="hidden" name="isSubmitted" value="yes">
</td>

<%if request.form("isSubmitted") = "yes" then%>

<%
DIM all,i
all=False
For i=0 to 15
all=all OR CBOOL(errorArray(i))
Next
If Not all Then

DealName = request.form("DealName")
CompletedForm = request.form("CompletedForm")
AddClient = request.form("AddClient")
SendFaxtoMail = request.form("SendFaxtoMail")
DebitOrder = request.form("DebitOrder")
WelcomeLetter = request.form("WelcomeLetter")
Backups = request.form("Backups")
'RepID = request.form("RepID")
DealID = request.form("DealID")
PolicyDoc = request.form("PolicyDoc")
FaxtoSchalk = request.form("FaxtoSchalk")
DebitOrdertoAccounts = request.form("DebitOrdertoAccounts")
ADSLUsage = request.form("ADSLUsage")
FixVPNIP = request.form("FixVPNIP")
SetupVPN = request.form("SetupVPN")
BCTrain = request.form("BCTrain")
SubscribetoNewsletter = request.form("SubscribetoNewsletter")
ADDtoSQL = request.form("ADDtoSQL")
'DateandTime = request.form("DateandTime")

%>


<% ' this is where the information finally gets submitted to the database
DIM Conn,strConn,SQLstmt,RS,obj_connection,strDBPath, yes
'call OpenConnection
strConn = Server.MapPath("/salesdesk/database/Saleshelpdesk.mdb")
Set obj_connection = server.createobject("ADODB.Connection")
obj_connection.Provider = "Microsoft.Jet.OLEDB.4.0"
obj_connection.Open strConn

strSQL = "INSERT INTO tblWOWConnect " _
& "(CompletedForm, AddClient, DealName,SendFaxtoMail, DebitOrdertoAccounts, WelcomeLetter,Backups, BCTrain, SubscribetoNewsletter, AddtoSQL, PolicyDoc, FaxtoSchalk, ADSLUsage,FixVPNIP,SetupVPN) " _
& "values ('" & request.form("CompletedForm") & "', '" _
& request.form("AddClient") & "', '" _
& request.form("DealName") & "', '" _
& request.form("SendFaxtoMail") & "', '" _
& request.form("DebitOrdertoAccounts") & "', '" _
& request.form("WelcomeLetter") & "', '" _
& request.form("Backups") & "', '" _
& request.form("BCTrain") & "', '" _
& request.form("SubscribetoNewsletter") & "', '" _
& request.form("AddtoSQL") & "', '" _
& request.form("PolicyDoc") & "', '" _
& request.form("FaxtoSchalk") & "', '" _
& request.form("ADSLUsage") & "', '" _
& request.form("FixVPNIP") & "', '" _
& request.form("SetupVPN") & "')"


'on error resume next
Set objRS = obj_connection.execute(strSQL)
If err.number>15then
response.write "VBScript Errors Occured:" & "<P>"
response.write "Error Number=" & err.number & "<P>"
response.write "Error Descr.=" & err.description & "<P>"
response.write "Help Context=" & err.helpcontext & "<P>"
response.write "Help Path=" & err.helppath & "<P>"
response.write "Native Error=" & err.nativeerror & "<P>"
response.write "Source=" & err.source & "<P>"
response.write "SQLState=" & err.sqlstate & "<P>"
end if
IF obj_connection.errors.count>15 then
response.write "Database Errors Occured" & "<P>"
response.write SQLstmt & "<P>"
for counter= 0 to conn.errors.count
response.write "Error #" & conn.errors(counter).number & "<P>"
response.write "Error desc. -> " & conn.errors(counter).description & "<P>"
next
else
response.redirect("helplist.asp")
%>
<strong>Database submission successful !</strong><br>

<%