|
|
You're in the
inetserver asp db
group:need help- Submitting Check Box values to Table
inetserver asp db:
im trying to make an online survey. the answers are different check
boxes. I have this written out already. maybe you guys can help. ill give you the abbreviated sample of it: ------- <HTML> <HEAD> <TITLE>Sample</title> <% strFilePath = server.MapPath("database.mdb") strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strFilePath & ";" Set rst = Server.CreateObject("ADODB.Recordset") rst.LockType = 2 %> <% 'opening database connection 'add record to my table FUNCTION WriteToFile() strSQL = "SELECT * FROM Table1" rst.Open strSQL, strConn rst.addnew rst("ID#") = request.form ("ID#") rst("Name") = request.form ("Name") rst("Box1") = request.form ("Box2") rst("Box2") = request.form ("Box2") rst.Update rst.Close End Function %> </HEAD> <BODY> <FORM name= frmTEST1 method=post action= > <Select name="menu" > <option value="Instructor">Select Name</option> <option value="Name1"> Name1</option> <option value="Name2"> Name2</option> </select>     </Select>     ID#. <input type="text" size="12" maxlength="6" name="ID#" value="ID#" id="ID##" /> <br> <br> 01. <input type="checkbox" id="box1" name="box1" value="1" /> <label for="box1">This is statement 1</label> <BR> 02. <input type="checkbox" id="box2" name="box2" value="1" /> <label for box2">This is statement2</label> <BR> <Center> ' --- SUBMIT BUTTON ---- /> <INPUT TYPE='submit' value="Submit" name="Submit_ICL" onClick="WriteToFile();"> </FORM> -------- This is a short sample of the code i have. When i try it the page reloads and the answers reset but the info is ot going to the database. i know im missing the action=___ whenever i declare my form but i dont know what to put or if what im missing that will make mine work. eventually i will work on validating it but for know can someone pleae help
I am now getting a syntax error (Microsoft VBScript compilation error
'800a03ea' )for the line that says [quoted text, click to view] James Jones wrote: ----> IF func = "submitForm" Then > > strFilePath = server.MapPath("database.mdb") any ideas? thanks for the help so far. i understood the changes you made.
i get a syntax error (Microsoft VBScript compilation error '800a03ea' )
on this line----> IF func = "submitForm" Then [quoted text, click to view] > > strFilePath = server.MapPath("database.mdb") any ideas? thanks for your help so far. gabriel
Ok. i think i know what you want.......
say your page is named TEST.ASP.........set your form to that........when i do pages like this, that use forms, i create a varible that tells the page what to do.....such as............ <% func = Request.Form("func") IF func = "" Then %> <FORM name= "frmTEST1" method="post" action="TEST.ASP"> <input type="hidden" name="func" value="submitForm"> <Select name="menu" > <option value="Instructor">Select Name</option> <option value="Name1"> Name1</option> <option value="Name2"> Name2</option> </select>     </Select>     ID#. <input type="text" size="12" maxlength="6" name="ID#" value="ID#" id="ID##" /> <br> <br> 01. <input type="checkbox" id="box1" name="box1" value="1" /> <label for="box1">This is statement 1</label> <BR> 02. <input type="checkbox" id="box2" name="box2" value="1" /> <label for box2">This is statement2</label> <BR> <Center> ' --- SUBMIT BUTTON ---- /> <INPUT TYPE='submit' value="Submit" name="Submit_ICL"> </FORM> <% End IF IF func = "submitForm" Then strFilePath = server.MapPath("database.mdb") strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strFilePath & ";" Set rst = Server.CreateObject("ADODB.Recordset") rst.LockType = 2 %> <% 'opening database connection 'add record to my table strSQL = "SELECT * FROM Table1" rst.Open strSQL, strConn rst.addnew rst("ID#") = request.form ("ID#") rst("Name") = request.form ("Name") rst("Box1") = request.form ("Box2") rst("Box2") = request.form ("Box2") rst.Update rst.Close End IF %> give that a shot...........hope it works, if not, sorry [quoted text, click to view] "Gaby" <GabrielESandoval@gmail.com> wrote in message news:1150396750.231560.114900@r2g2000cwb.googlegroups.com... > im trying to make an online survey. the answers are different check > boxes. > I have this written out already. maybe you guys can help. > ill give you the abbreviated sample of it: > > ------- > > <HTML> > > <HEAD> > > <TITLE>Sample</title> > > > > > <% > > > strFilePath = server.MapPath("database.mdb") > > strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strFilePath > & ";" > Set rst = Server.CreateObject("ADODB.Recordset") > rst.LockType = 2 > > %> > > <% > 'opening database connection > > 'add record to my table > > FUNCTION WriteToFile() > strSQL = "SELECT * FROM Table1" > rst.Open strSQL, strConn > > rst.addnew > > rst("ID#") = request.form ("ID#") > rst("Name") = request.form ("Name") > > > > rst("Box1") = request.form ("Box2") > rst("Box2") = request.form ("Box2") > > > > rst.Update > rst.Close > End Function > %> > </HEAD> > <BODY> > > <FORM name= frmTEST1 method=post action= > > > > <Select name="menu" > > <option value="Instructor">Select Name</option> > <option value="Name1"> Name1</option> > <option value="Name2"> Name2</option> > </select> >     > > </Select> >     > > ID#. > <input type="text" size="12" maxlength="6" name="ID#" value="ID#" > id="ID##" /> > <br> > <br> > > 01. <input type="checkbox" id="box1" name="box1" value="1" /> <label > for="box1">This is statement 1</label> > <BR> > 02. <input type="checkbox" id="box2" name="box2" value="1" /> <label > for box2">This is statement2</label> > <BR> > > <Center> > > ' --- SUBMIT BUTTON ---- /> > <INPUT TYPE='submit' value="Submit" name="Submit_ICL" > onClick="WriteToFile();"> > > </FORM> > > -------- > > This is a short sample of the code i have. When i try it the page > reloads and the answers reset but the info is ot going to the database. > i know im missing the action=___ whenever i declare my form but i dont > know what to put or if what im missing that will make mine work. > eventually i will work on validating it but for know can someone pleae > help >
ok........then we will do an ELSE intead of another IF....................
<% ELSE strFilePath = server.MapPath("database.mdb") strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strFilePath & ";" Set rst = Server.CreateObject("ADODB.Recordset") rst.LockType = 2 'opening database connection 'add record to my table strSQL = "SELECT * FROM Table1" rst.Open strSQL, strConn rst.addnew rst("ID#") = request.form ("ID#") rst("Name") = request.form ("Name") rst("Box1") = request.form ("Box2") rst("Box2") = request.form ("Box2") rst.Update rst.Close End IF %> [quoted text, click to view] "Gaby" <GabrielESandoval@gmail.com> wrote in message news:1150404502.879585.88860@i40g2000cwc.googlegroups.com... >i get a syntax error (Microsoft VBScript compilation error '800a03ea' ) > on this line----> IF func = "submitForm" Then > > > > strFilePath = server.MapPath("database.mdb") > > any ideas? > thanks for your help so far. > > gabriel >
I tried many different variations and I cant get this to work. If any
of you experts are up for it, I wouldnt mind emailing you my code. Many having someone else proof read it I may find something wrong. I did i noticed when I submit the form and if i hit REFRESH i get "The page cannot be refreshed without sending the information". So theres got to be something with the connection i would think. Email me if you wouldnt mind helping me out and i will send what I got to you. Thanks. Gabriel
[quoted text, click to view] Gaby wrote: > im trying to make an online survey. the answers are different check > boxes. > I have this written out already. maybe you guys can help. > ill give you the abbreviated sample of it: > > ------- > > <HTML> > > <HEAD> > > <TITLE>Sample</title> > <% > strFilePath = server.MapPath("database.mdb") > > strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strFilePath > & ";" > Set rst = Server.CreateObject("ADODB.Recordset") > rst.LockType = 2 > > %> > > <% > 'opening database connection > > 'add record to my table > > FUNCTION WriteToFile() > strSQL = "SELECT * FROM Table1" > rst.Open strSQL, strConn > > rst.addnew > > rst("ID#") = request.form ("ID#") > rst("Name") = request.form ("Name") > > > > rst("Box1") = request.form ("Box2") > rst("Box2") = request.form ("Box2") > > > > rst.Update > rst.Close > End Function > %> > </HEAD> > <BODY> > > <FORM name= frmTEST1 method=post action= > > > > <Select name="menu" > > <option value="Instructor">Select Name</option> > <option value="Name1"> Name1</option> > <option value="Name2"> Name2</option> > </select> >     > > </Select> >     > > ID#. > <input type="text" size="12" maxlength="6" name="ID#" value="ID#" > id="ID##" /> > <br> > <br> > > 01. <input type="checkbox" id="box1" name="box1" value="1" /> <label > for="box1">This is statement 1</label> > <BR> > 02. <input type="checkbox" id="box2" name="box2" value="1" /> <label > for box2">This is statement2</label> > <BR> > > <Center> > > ' --- SUBMIT BUTTON ---- /> > <INPUT TYPE='submit' value="Submit" name="Submit_ICL" > onClick="WriteToFile();"> > > </FORM> > > -------- > > This is a short sample of the code i have. When i try it the page > reloads and the answers reset but the info is ot going to the database. > i know im missing the action=___ whenever i declare my form but i dont > know what to put or if what im missing that will make mine work. > eventually i will work on validating it but for know can someone pleae > help To start with, don't create a recordset to add a new record. Second, you have a javascript call to a function - onClick="WriteToFile() - calling server side asp code. That won't work. Third, you are trying to reference an input called Name that doesn't exist on your form. Here's your form: <form name="frmTEST1" method="post"> <select name="Instructor" > <option value="">Select Name</option> <option value="Name1"> Name1</option> <option value="Name2"> Name2</option> </select> <p> ID#. <input type="text" size="12" maxlength="6" name="ID#" id="ID##" /> </p> <p> 01. <input type="checkbox" id="box1" name="box1" value="1" /> <label for="box1">This is statement 1</label> </p> <p> 02. <input type="checkbox" id="box2" name="box2" value="1" /> <label for box2">This is statement2</label> </p> <p> <input type="submit" value="Submit" name="Action" /> </p> </form> In the same page, do this: <% On Error Resume Next If Request.Form("Action") = "Submit" Then strFilePath = server.MapPath("database.mdb") strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strFilePath conn.open strConn p1 = Request.Form("Instructor") p2 = clng(Request.Form("ID#")) p3 = cint(Request.Form("Box1")) p4 = cint(Request.Form("Box2")) If Err.Number<>0 Then Response.Write "Your record has not been added" Else conn.qInsertRecord p1, p2, p3, p4 Response.Write "Your record has been added" End If End If %> Now, in your database, go to the Query pane and select New Query in Design View. Close the Show Tables dialogue box that opens, then click the SQL button in the top left. In the new window that opens, copy this in, making the necessary changes for your table and field names: INSERT INTO Table1 (ID#, Instructor, Box1, Box2) VALUES ([p1], [p2], [p3], [p4]) Save that as qInsertRecord. Then run the query and enter values as prompted to make sure it works. If it does, that's it. You're done. -- Mike Brind
Mike I took what you wrote and made some changes to alter it some....
Bottom Line: IT WORKED GREAT. Thanks again for your help. Gabriel
Don't see what you're looking for? Try a search.
|
June 2003
July 2003
August 2003
September 2003
October 2003
November 2003
December 2003
January 2004
February 2004
March 2004
April 2004
May 2004
June 2004
July 2004
August 2004
September 2004
October 2004
November 2004
December 2004
January 2005
February 2005
March 2005
April 2005
May 2005
June 2005
July 2005
August 2005
September 2005
October 2005
November 2005
December 2005
January 2006
February 2006
March 2006
April 2006
May 2006
June 2006
July 2006
August 2006
September 2006
October 2006
November 2006
December 2006
January 2007
February 2007
March 2007
April 2007
May 2007
June 2007
July 2007
August 2007
September 2007
October 2007
November 2007
| home · blog · groups | Questions? Comments? Contact the dn |