passing variables from one form to another - stumped!

siena · May 30, 2003

On the first page, I have this:
<TR>
<TD><FONT CLASS='Arial10' COLOR='darkred'><B>
Department</B>
</TD>
<td><select name="Driverdept">
<%
sql = "SELECT tblDept.DeptID, tblDept.DeptName FROM tblDept "
set deptset = safetyDB.Execute(sql)
While not DeptSet.EOF
%>
<option value="<%=DeptSet(0)%>"><%=DeptSet(1)%></option>
<%
DeptSet.MoveNext
wend
%>
</select>
</td>
</TR>

(of course, there are more form objects on this page)

on another page, I have this:

DriverDept = request.form("DriverDept&quot

LocationDesc = request.form("LocationDesc&quot

AccidentWeather = request.form("AccidentWeather&quot

AccidentFactor = request.form("AccidentFactor&quot

AccidentCollision = request.form("AccidentCollision&quot

AccidentDesc = request.form("AccidentDesc&quot

AccidentDate = request.form("AccidentDate&quot

TimeOfAccident = request.form("TimeOfAccident&quot

TimeOfAccidentAMPM = request.form("TimeOfAccidentAMPM&quot

Age = request.Form("Age&quot

Drug = request.Form("Drug&quot

TestType = request.Form("TestType&quot

Result = request.Form("Result&quot

AtFault = request.Form("AtFault&quot

Condition = request.Form("Condition&quot

InjuryType = request.Form("InjuryType&quot

'we need to do a select statement to retrieve to primary key for the driver's dept.
thissql = "SELECT * FROM tblDept where tblDept.DeptID = "&DriverDept&""
set depSet = safetyDB.Execute(thissql)
If Not depSet.Eof then
DeptID = depSet("DeptID&quot

End If
depSet.close
set depSet = nothing

'Now we have everything lets create a record in the tblAccidentMain then retrieve the AccidentID
SafetyDB.Execute = "INSERT INTO AccidentMain (DeptID, Loc_Desc, FactorsDesc, CollisionDesc, WeatherDesc,InjuryDesc, AccidentDate,TimeOfAccident,TimeOfAccidentAMPM,AccidentDesc,atFault,TestType,Result,DrugTest) VALUES ("DriverDept", '"&LocationDesc&"', '"&AccidentFactor&"', '"&AccidentCollision&"', '"&AccidentWeather&"', '"&InjuryType&"', '"&AccidentDate&"', '"&TimeOfAccident&"', '"&TimeOfAccidentAMPM&"', '"&AccidentDesc&"' ,'"&atFault&"', '"&TestType&"', '"&Result&"', '"&DrugTest&"')"
sqltext = "SELECT AccidentMain.AccidentID FROM AccidentMain ORDER BY AccidentID DESC"
set Accidentset = safetyDB.Execute(sqltext)
if not Accidentset.eof then
AccidentID = Accidentset(0)
end if

But I just can't get beyond this error message:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][ODBC SQL Server Driver][SQL Server]
Line 40: Incorrect syntax near '='

which is here:
set depSet = safetyDB.Execute(thissql

Any help resolving this would be greatly appreciated.

mwolf00 · May 30, 2003

Is your form method POST?

Look at your HTML that creates the first form, are the ID values showing in the OPTION tags?

On your second page, try this:

DriverDept = request.form("DriverDept&quot

response.write DriverDept
response.end

Is a value displayed?

Programming today is a race between software engineers striving to build better and bigger idiot-proof programs, and the Universe trying to produce bigger and better idiots. So far, the Universe is winning. - Rich Cook

Genimuse · May 30, 2003

Your "DriverDept" option tags need to have a name, so

Code:

    <option value=&quot;<%=DeptSet(0)%>&quot;><%=DeptSet(1)%></option>

becomes

Code:

    <option name=&quot;DriverDept&quot; value=&quot;<%=DeptSet(0)%>&quot;><%=DeptSet(1)%></option>

mwolf00 · May 30, 2003

Genimuse, I think you might be mistaken - OPTION tags do not get names, only values. Siena's code to create the options looks fine.

Programming today is a race between software engineers striving to build better and bigger idiot-proof programs, and the Universe trying to produce bigger and better idiots. So far, the Universe is winning. - Rich Cook

siena · May 30, 2003

mwolf00, you are right, option tags do not get names.
I did however, give it a name as the code below suggests.
your other question, I did response.write and response.end and no, no value is passed to it.
<TR>
<TD><FONT CLASS='Arial10' COLOR='darkred'><B>
Department</B>
</TD>
<td><select name="Driverdept">
<%
sql = "SELECT tblDept.DeptID, tblDept.DeptName FROM tblDept "
set deptset = safetyDB.Execute(sql)
While not DeptSet.EOF
%>
<option value="<%=DeptSet(0)%>"><%=DeptSet(1)%></option>
<%
DeptSet.MoveNext
wend
%>
</select>
</td>
</TR>

mwolf00 · May 30, 2003

Something is wrong on the first page then

Does the HTML on the first page look ok?

Do you have more than one field called "DriverDept"?

Are you POSTing the form?

Programming today is a race between software engineers striving to build better and bigger idiot-proof programs, and the Universe trying to produce bigger and better idiots. So far, the Universe is winning. - Rich Cook

siena · May 30, 2003

I hate to dump codes but here it is:
<%@ Language=VBScript%>

<%Response.buffer=true%>

<%Response.Expires = 0%>

<HEAD>
<LINK REL=STYLESHEET TYPE="text/css" HREF="af_styles.css">
<TITLE>Accident Report</TITLE>
</HEAD>

<CENTER>
<BODY BGCOLOR="steelBLUE">
<%
set safetyDB = Server.CreateObject("ADODB.Connection&quot

safetyDB.Open "dsn=safety"
%>

<font class="ArialNarrow12" COLOR="khaki"><b>Accident Tracking - Driver Information</b></font>

<font class="Arial8" COLOR="khaki">
<B>Welcome, <font color="khaki"><B>
<%=Session("fname&quot

%>
<%=Session("lname&quot

%>
</B></font>
Date: <%=date()%> Time: <%=Time()%></B></font>

<FORM ACTION="vehicle.asp" method=get>
<TABLE WIDTH=98% BORDER=0 BGCOLOR="SILVER" CELLPADDING=2 CELLSPACING=0 >
<TR>
<TD ALIGN=CENTER VALIGN=TOP>
<TABLE>

<TR>
<TD ALIGN=LEFT> <B><FONT CLASS='Arial10'>
Employee Name<B>
</TD>
<TD ALIGN=LEFT>
<select name="EName">
<%
sql = "SELECT tblEmp.EmpID, tblEmp.fullName FROM tblEmp "
set rs = safetyDB.Execute(sql)
While not rs.EOF
%>
<OPTION value="<%=rs(0)%>"><%=rs(1)%></OPTION>
<%
rs.MoveNext
wend
rs.close
set rs=nothing
%>
</select>
</TD>
</TR>

<TR>
<TD ALIGN=LEFT><FONT CLASS='Arial10'><B>
Driver's Lic. Number
</TD>
<TD ALIGN=LEFT><FONT CLASS='Arial10'>
<INPUT TYPE='TEXT' NAME='DlicNumber' VALUE="" >
</TD>
</TR>

<TR>
<TD><FONT CLASS='Arial10' ><B>
Street Address
</TD>
<TD>
<INPUT TYPE='TEXT' NAME='STREET_ADDRESS' VALUE="<%=address %>" >

</TD>
</TR>

<TR>
<TD><FONT CLASS='Arial10' ><B>
City
</TD>
<TD>
<INPUT TYPE='TEXT' NAME='CITY' VALUE="" >
</TD>
</TR>

<TR>
<TD><FONT CLASS='Arial10' ><B>
State
</TD>
<TD>
<INPUT TYPE='TEXT' NAME='STATE' VALUE=" " >

</TD>
</TR>

<TR>
<TD><FONT CLASS='Arial10' ><B>
Zip Code
</TD>
<TD>

<INPUT TYPE='TEXT' NAME='ZIP_CODE' VALUE="" >

</TD>
</TR>

<TR>
<TD><FONT CLASS='Arial10' ><B>
Home Phone
</TD>
<TD>

<INPUT TYPE='TEXT' NAME='HOME_PHONE' VALUE="" >

</TD>
</TR>

<TR>
<TD><FONT CLASS='Arial10' ><B>
Work/Cell
</TD>
<TD>

<INPUT TYPE='TEXT' NAME='CELL_PHONE' VALUE="" >

</TD>
</TR>

<TR>
<TD><FONT CLASS='Arial10' ><B>
Email
</TD>
<TD>

<INPUT TYPE='TEXT' NAME='WORK_EMAIL' VALUE="" >

</TD>
</TR>

</TABLE>
</TD>

<TD VALIGN="top" ALIGN=CENTER >
<TABLE BORDER=1 CELLSPACING=0 CELLPADDING=4 BORDERCOLOR="YELLOW" >
<TR>
<TD><FONT CLASS='Arial10' COLOR='darkred'><B>
Department</B>
</TD>
<td><select name="Driverdept">
<%
sql = "SELECT tblDept.DeptID, tblDept.DeptName FROM tblDept "
set deptset = safetyDB.Execute(sql)
While not DeptSet.EOF
%>
<option value="<%=DeptSet(0)%>"><%=DeptSet(1)%></option>
<%
DeptSet.MoveNext
wend
%>
</select>
</td>
</TR>

<TR>
<TD align=left>
<FONT CLASS='Arial10' COLOR='darkred'><B> Gender</B>
<TD> <SELECT name="Gender" SIZE=1>
<OPTION value="Male">Male</OPTION>
<OPTION value="Female">Female</OPTION>
</SELECT>
</TD>
</TR>

<TR COLSPAN=2>
<TD><FONT CLASS='Arial10' COLOR='darkred'><B>
Age </B>
</TD>
<TD>
<SELECT NAME='Age' SIZE=1>
<OPTION value="15">15</OPTION>
<OPTION value="16">16</OPTION>
<OPTION value="17">17</OPTION>
<OPTION value="18">18</OPTION>
<OPTION value="19">19</OPTION>
<OPTION value="20">20</OPTION>
<OPTION value="21">21</OPTION>
<OPTION value="22">22</OPTION>
<OPTION value="23">23</OPTION>
<OPTION value="24">24</OPTION>
<OPTION value="25">25</OPTION>
<OPTION value="26">26</OPTION>
<OPTION value="27">27</OPTION>
<OPTION value="28">28</OPTION>
<OPTION value="29">29</OPTION>
<OPTION value="30">30</OPTION>
<OPTION value="31">31</OPTION>
<OPTION value="32">32</OPTION>
<OPTION value="33">33</OPTION>
<OPTION value="34">34</OPTION>
<OPTION value="35">35</OPTION>
<OPTION value="36">36</OPTION>
<OPTION value="37">37</OPTION>
<OPTION value="38">38</OPTION>
<OPTION value="39">39</OPTION>
<OPTION value="40">40</OPTION>
<OPTION value="41">41</OPTION>
<OPTION value="42">42</OPTION>
<OPTION value="43">43</OPTION>
<OPTION value="44">44</OPTION>
<OPTION value="45">45</OPTION>
<OPTION value="46">46</OPTION>
<OPTION value="47">47</OPTION>
<OPTION value="48">48</OPTION>
<OPTION value="49">49</OPTION>
<OPTION value="50">50</OPTION>
<OPTION value="51">51</OPTION>
<OPTION value="52">52</OPTION>
<OPTION value="53">53</OPTION>
<OPTION value="54">54</OPTION>
<OPTION value="55">55</OPTION>
<OPTION value="56">56</OPTION>
<OPTION value="57">57</OPTION>
<OPTION value="58">58</OPTION>
<OPTION value="59">59</OPTION>
<OPTION value="60">60</OPTION>
<OPTION value="61">61</OPTION>
<OPTION value="62">62</OPTION>
<OPTION value="63">63</OPTION>
<OPTION value="64">64</OPTION>
<OPTION value="65">65</OPTION>
<OPTION value="66">66</OPTION>
<OPTION value="67">67</OPTION>
<OPTION value="68">68</OPTION>
<OPTION value="69">69</OPTION>
<OPTION value="70">70</OPTION>
<OPTION value="71">71</OPTION>
<OPTION value="72">72</OPTION>
<OPTION value="73">73</OPTION>
<OPTION value="74">74</OPTION>
<OPTION value="75">75</OPTION>
<OPTION value="76">76</OPTION>
<OPTION value="77">77</OPTION>
<OPTION value="78">78</OPTION>
<OPTION value="79">79</OPTION>
<OPTION value="80">80</OPTION>
</TD>
</TR>
<tr>
<td><FONT CLASS='Arial10' COLOR='darkred'><B>Was a Drug test done?</B></FONT></td>
<td><select name="Drug">
<option value="Yes">Yes</option>
<option value="No">No</option>
<option value="Refused">Refused</option>
</select>
</td>
</tr>

<tr>
<td><FONT CLASS='Arial10' COLOR='darkred'><B>What type of test was done?</B></FONT></td>
<td><select name="TestType">
<option value="Not Applicable">Not Applicable</option>
<option value="Blood">Blood</option>
<option value="Breath">Breath</option>
<option value="Urine">Urine</option>
<option value="Other">Other</option>
</select></td>
</tr>
<tr>
<td><FONT CLASS='Arial10' COLOR='darkred'><B>What Was The Result?</B></FONT></td>
<td><select name="Result">
<option value="Not Applicable">Not Applicable</option>
<option value="Positive">Positive</option>
<option value="Negative">Negative</option>
<option value="Inconclusive">Inconclusive</option>
</select></td>
</tr>
<tr>
<td><FONT CLASS='Arial10' COLOR='darkred'><B>Was this driver at fault?</B></FONT></td>
<td><select name="AtFault">
<option value="Not Applicable">Not Applicable</option>
<option value="Yes">Yes</option>
<option value="No">No</option>
</select></td>
</tr>
<tr>
<td><FONT CLASS='Arial10' COLOR='darkred'><B>What was the drivers condition?</B></FONT></td>
<td><select name="Condition">
<option value="Not Drinking">Not Drinking</option>
<option value="Not Known If U.I.">Not Known If U.I.</option>
<option value="Not Impaired">Not Impaired</option>
<option value="U.I. Alcohol">U.I. Alcohol</option>
<option value="U.I Drugs">U.I. Drugs</option>
<option value="U.I. Alchol & Drugs">U.I. Alchol & Drugs</option>
<option value="Physical Impairement">Physical Impairement</option>
<option value="Apparently Fell Asleep">Apparently Fell Asleep</option>
</select></td>
</tr>

<tr>
<td width="21%"><B><FONT CLASS='Arial10' COLOR='darkred'><B>Please select Injury type:</FONT></B></td>
<td width="29%"> <select name="InjuryType">
<option value="Not Injured">Not Injured</option>
<option value="Killed">Killed</option>
<option value="Serious">Serious</option>
<option value="Visible">Visible</option>
<option value="Complaint">Complaint</option>
</select>
</td>
</tr>
</TABLE>
</TD>
</TR>

<TR>
<TD bgcolor=khaki COLSPAN=2 BGCOLOR=WHITE ALIGN=CENTER>
<INPUT TYPE=submit VALUE="Continue">
</TD>
</TR>

</TABLE>
</FORM>
</CENTER>
<%
safetyDB.close
set safteyDB = nothing
%>

</BODY>

onpnt · May 30, 2003

as mwolf00 already asked
<FORM ACTION="vehicle.asp" method=get>

is that suppose to be POST????

_________________________________________________________
_{$str = "sleep is good for you. sleep gives you the energy you need to function";

$Nstr = ereg_replace("sleep","coffee",$str); echo $Nstr;}

^{http://www.onpntwebdesigns.com
[/sub]}

Genimuse · May 30, 2003

D'oh! Sorry! I really shouldn't post within 10 minutes of waking up!

siena · May 30, 2003

shoot!
Yea, you are right Genimuse and onpnt an mwof00!
I apologize to all of you!

Genimuse · May 30, 2003

Ok, now I've been up for 30 minutes, let's see if it makes any difference.

It appears to my still sleep-addled brain that your SQL around Driverdept is missing two ampersands, so this:

Code:

    ... VALUES &quot;DriverDept&quot;, '&quot;&LocationDesc&&quot;', ...

becomes this:

Code:

    ... VALUES (&quot;&DriverDept&&quot;, '&quot;&LocationDesc&&quot;', ...

onpnt · May 30, 2003

no apologies!

mwolf00 nice catch!

_________________________________________________________
_{$str = "sleep is good for you. sleep gives you the energy you need to function";

$Nstr = ereg_replace("sleep","coffee",$str); echo $Nstr;}

^{http://www.onpntwebdesigns.com
[/sub]}

mwolf00 · May 30, 2003

Genimuse,

Since siena has server-side delimiters (<% %>) in her code, she doesn't need the ampersands...

<%
While not DeptSet.EOF
%>
<option value="<%=DeptSet(0)%>"><%=DeptSet(1)%></option>
<%
DeptSet.MoveNext
wend
%>

the bold line is the same as...

response.write "<option value="""
response.write DeptSet(0)
response.write """>"
response.write DeptSet(1)
response.write "</option>"

Programming today is a race between software engineers striving to build better and bigger idiot-proof programs, and the Universe trying to produce bigger and better idiots. So far, the Universe is winning. - Rick Cook

siena · May 30, 2003

mwolf00, I think Genimuse was refering to the other page where I am inserting into AccidentMain(DeptID)values("&driver&&quot

Genimuse, don't worry everything is working now.
I thank you all again!

mwolf00 · May 30, 2003

ooppss - sorry Genimuse [hammer]

Programming today is a race between software engineers striving to build better and bigger idiot-proof programs, and the Universe trying to produce bigger and better idiots. So far, the Universe is winning. - Rick Cook

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

passing variables from one form to another - stumped!

siena

Technical User

mwolf00

Programmer

Genimuse

Programmer

mwolf00

Programmer

siena

Technical User

mwolf00

Programmer

siena

Technical User

onpnt

Programmer

Genimuse

Programmer

siena

Technical User

Genimuse

Programmer

onpnt

Programmer

mwolf00

Programmer

siena

Technical User

mwolf00

Programmer

Similar threads

Part and Inventory Search

Sponsor