previewing a page before submission

chinedu · Jun 4, 2003

I am pretty sure I am doing something wrong; just can't figure it out.
I have 3 pages.
Page one inputs data into a form and submits the form.
As soon as the form is submitted, it goes to page2 where data entered is previewed.
If everything is fine, data is then submitted to the db.
if not, then you are taken back to page1 for editing and resubmission.
Having page 3 is not working.
So I removed page3 and made it just 2 pages.
It is still not working.
When I click the take me back button, it works but when I click the submit button, it does not submit to the database.
Can someone please take a look at page2 and advise me of what is wrong?
Thanks in advance.
<html>
<head>
<title>View Before Submitting</title>
</head>
<body>

<%@ language=vbscript%>
<%Response.buffer=true%>
<%
dim txtSpecName,txtOfferName,txtmakeModel,txtAlternatemakemodel,txtcontactName,txtContactEmail,txtItemDesc
txtSpecname = request.form("txtSpecname&quot

txtOfferName = request.form("txtOffername&quot

txtMakeModel = request.form("txtMakeModel&quot

txtAlternateMakeModel = request.form("txtAlternateModel&quot

txtContactName = request.form("txtContactName&quot

txtContactEmail = request.form("txtContactEmail&quot

txtItemDesc = request.form("txtItemDesc&quot

catG = request.form("catG&quot

%>

<table width=400 border=0>
<tr>
<td width=400>
<font face="arial" size=2>
<br>Here is the information you're submitting. If you would like to
make changes, please use the appropriate button below, or use the other
button to submit this entry as it is.
<br>
<br><b>Spec Name:</b> <%= txtSpecName %>
<br><b>Offer Name: </b> <%= txtOfferName %>
<br><b>Make & Model: </b> <%= txtMakeModel %>
<br><b>Alternate Make & Model: </b> <%= txtAlternateMakeModel %>
<br><b>Contact Name: </b> <%= txtContactName %>
<br><b>Contact Email: </b> <%= txtContactEmail %>
<br><b>Category: </b> <%= catG %>
<br><b>Specification: </b> <%= txtItemDesc %>

<form action="pageBeforeLast.asp" method="post">
<input type="hidden" name="txtSpecName" value="<%= SpecName %>">
<input type="hidden" name="txtOfferName" value="<%= OfferName %>">
<input type="hidden" name="txtMakeModel" value="<%= MakeModel%>">
<input type="hidden" name="txtAlternateModel" value="<%= AlternateMakeModel %>">
<input type="hidden" name="txtContactName" value="<%= ContactName %>">
<input type="hidden" name="txtContactEmail" value="<%= ContactEmail %>">
<input type="hidden" name="catG" value="<%= CategoryID %>">
<input type="hidden" name="txtItemDesc" value="<%= ItemDesc %>">
<input type="submit" value="Yes, Submit it!"> 
<input type="button" value="Let's Try Again" onClick="history.go(-1)">
</form></font>
</td>
</tr>
</table>

</body>
</html>

Genimuse · Jun 4, 2003

Your pages are unclear. From your intial post I assumed your goal was to have:
Page1 = The Form
Page2 = The Verification Page
Page3 = The Store in Database Page
If this is the case, then that form can't send the user back to Page1 if he's ready to submit it: Page1 doesn't know how to store data in a database, it's only a form. You need to send the user to Page3 with all of those hidden fields, whichever page will actually open a connection to the database and insert the data.

chinedu · Jun 4, 2003

hi Genimuse!
As I indicated in my original post, I was going to use 3 pages - page1 form, page2 verification and page3 for submission but I was having problem getting all to submit via page3.

**************************************
Page1 doesn't know how to store data in a database
*************************************
This code: <input type="button" value="Let's Try Again" onClick="history.go(-1)">, actually sends you back to page1 although, I must admit there is a better more efficient way.

Will page3 have everything that page1 plus the hidden data from page2?
I have done this before and know how to write a code that will preview before submission but page1 is tricky.
I can post it if anyone wants to see it. It is about 350 pages but could have been longer if I hadn't written it the way I did.
I guess that is the trade-off.

lottastuff · Jun 4, 2003

When the user hits the "Yes, Submit" button, does it ever get to pageBeforeLast.asp? This is presumably your intended page 3 since it's what you have for the action=... on the hiddden form.

If control passes to this page, then do the request.form variables have values or not?

If they do, then do you build a SQL insert string or use a command object? What fails exactly?

chinedu · Jun 4, 2003

There are two buttons on page1.
The first button is an 'Add' button and the other is 'Process' button.
The 'Add' button, when clicked, adds new text box for inputing data.
When all data is entered and you press the 'process' button, it submits data to page2 (pageBeforeLast.asp).
so request.form has values except this one:
<input type="hidden" name="txtItemDesc" value="<%= ItemDesc %>">
I will worry about this letter.
When you click ' <input type="button" value="Let's Try Again" onClick="history.go(-1)">', it takes you back as it should.
Now where problem comes in is when you pretend like everything is alright and you click the submit button,
everything on pageBeforelast.asp clears but nothing gets submitted to the database.
I was just wandering what I am missing on this page.

TonyU · Jun 4, 2003

[tt]Stick to using two pages. If you're not creating session of the request.form("fields&quot

you're not going to be able to carry them over to the third page.

1. First Page should submit to second page
2. Second page should receive entries and do insert. Then a the very bottom of page 2 you can re-direct back to first page or wheverever you whish...

^{Delete * from brain Where MaxLevel = "Full" and reaction = "Slow" order by StartOver}

Genimuse · Jun 4, 2003

I think what you're missing is the idea that you need some page with the code to store the information in the database, whether it's part of Page2 or you put it on a third page.

Do you have the basic code for inserting the record to a database anywhere? Some place where you have code that creates a SQL statement that resembles:

Code:

SQL = &quot;INSERT INTO MyTableName (SpecName, OfferName, MakeModel) VALUES ('&quot; & txtSpecName & &quot;', '&quot; & txtOfferName & &quot;', '&quot; & txtMakeModel & &quot;')&quot;

(I just made those field names up, your table name would be whatever it's actually called, and the statement would be much longer to include all of your fields.)

I get the feeling from your posts that you don't have any code that opens a connection to the database, creates an insert statement like the example above, and executes it. If I'm right then you need to learn how to do that.

None of the FAQs here addresses it, so I did a quick Google search. I'm sure there are better pages than this one to explain it, but it's the first hit and it's not too bad:

http://jdm.4mg.com/asp/

chinedu · Jun 4, 2003

I sincerely thank all of you for the response.
As I said before my good helpers, I have done this before.
I have written a code that inputs data into a form, creates a preview code and when everything is ok, submits to the database.
When I first wrote the code, I did it all in one page and it works fine.
This one that I am trying to do is giving a hard time due to the way the first page is written.
Please allow me to attach the first page for your viewing pleasure(?).
This first page called insertSpec.asp, was originally written based on the requirement that input text boxes must be dynamic.
In other words, a user has to copy a text from somewhere and paste it into the an input box and since the user has no idea how many times a text has to be copied and pasted, we must provide the user with the ability to copy, paste, click the 'Add' button to automatically open up another textbox.
Once he/she is done with copying and pasting, and is now ready to submit to db, then the user clicks the 'process' button to submit.
This was the original spec.
Now, the user comes back and says, we now need the ability to review what we are submitting before submitting it.
This is where the difficulty has come in.
I can't think of a way to make you see a demo but if you run this code on an access database, you will see what I am talking about.
I will try and create a link for you to see it tomorrow but here is the code for first page.

<%
'-----------------------------------------------------------------------------------
'
'-----------------------------------------------------------------------------------
Function Display_EventInsert(strGrid)
%>
<html>
<head>
<title>Insert Justifications</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body bgcolor="ffffff">
<form name="Insert" method="post" action="InsertRequireMents.asp">
<p><center><b>FC <BR>DPW</b></center></p>
<div align="center">
<table width="88%" border="1" bordercolor="000000">
<tr>
<td>
<div align="left">
<table><tr><td><b>TITLE: SPECIFICATION FOR A </b></td><td>
<input name="txtSpecName" type="text" size="40" maxlength="50" value="<%=request.form("txtSpecName&quot

%>">
</td><td><b>OR EQUAL.</b></td></tr></table>
</div>
<div align="left">
<table>
<tr>
<td>
<p>
</td>
</tr>
<br><br>
<tr>
<td><b>
**NOTE**
</b></td>
</tr>
<tr>
<td>
<b>THE</b>
</td>
<td>
<input name="txtOfferName" type="text" size="40" maxlength="50" value="<%=request.form("txtOfferName&quot

%>">
</td>
<td>
<b>OFFERED SHALL BE</b>
</td>
</tr>
</table>
</div>
<p>
<b>COMPARABLE WITH THE DETAILED REQUIREMENTS LISTED BELOW<br>
UNLESS OTHERWISE NOTED. ALL BIDDERS SHALL INDICATED EXACTLY<br>
WHAT THEY ARE OFFERING IN THE FOLLOWING BLANKS UNDER<br>
"BIDDERS RESPONSE". ALL EXCEMPTIONS TO NON COMPLYING<br>
DETAILED FEATURES MUST BE IDENTIFIED AND EXPLAINED
</b></p>

<div align="left">
<table>
<tr>
<td>
<b>MAKE & MODEL PROPOSED</b>
</td>
<td>
<input name="txtMakeModel" type="text" size="40" maxlength="50" value="<%=request.form("txtMakeModel&quot

%>">
</td>
</tr>
<tr>
<td>
<b>ALTERNATE MAKE & MODEL PROPOSED</b>
</td>
<td>
<input name="txtAlternateModel" type="text" size="40" maxlength="50" value="<%=request.form("txtAlternateModel&quot

%>">
</td>
</tr>
</table>
</div>
<br>
<div align="left">
<table>
<tr>
<td>
<font color="green"><b>* All Vendors Must Mark "Yes" or "No" To Comply With Each Individual Specification Below.</b></font>
</td>
</tr>
</table>
</div>
<table border="0" cellspacing="0" cellpadding="0">
<tr>
<td>Specifications </td>
<td>Yes</td>
<td>No</td>
</tr>
<%response.write(strGrid)%>
</table>
<br>
<div align="left">
<table>
<tr>
<td>
<b>FOR ADDITIONAL INFORMATION PLEASE CONTACT</b>
</td>
</tr>
</table>
</div>
<div align="left">
<table>
<tr>
<td>
<input name="txtContactName" type="text" size="28" maxlength="40" value="<%=request.form("txtContactName&quot

%>">
</td>
<td>
<b>AT</b>
</td>
<td>
<input name="txtContactEmail" type="text" size="28" maxlength="40" value="<%=request.form("txtContactEmail&quot

%>">
</td>
</tr>
</table>
</div>
</table>
</div>
</form>
</body>
</html>
<%
End Function
'-----------------------------------------------------------------------------------
'
'-----------------------------------------------------------------------------------
Function Build_PersonGrid(strGrid)
Dim intCount, x

If request.form("Count&quot

= "" then
'set default number of lines in the grid, in this case 5(!)
intCount = 0
else
'retrieve current amount of lines in the grid, increment by 1
intCount = Cint(request.form("Count&quot

+ 1)
end if

For x = 0 To intCount
strGrid = strGrid & "<tr>" & vbNewLine
strGrid = strGrid & "<td><input name=""txtItemDesc"&x&""" size=""80"" type=""text"" maxlength=""400"" value="""&request.form("txtItemDesc"&x)&"""></td>"& vbNewLine
strGrid = strGrid & "<td><input name=""txtYes"" TYPE=Text size=2 value="""&request.form("txtYes"&x)&"""></td>"& vbNewLine
strGrid = strGrid & "<td><input name=""txtNo"" TYPE=Text size=2 value="""&request.form("txtNo"&x)&"""></td>"& vbNewLine
strGrid = strGrid & "<td>"
strGrid = strGrid & "</td>"& vbNewLine
strGrid = strGrid & "</tr>"& vbNewLine
Next

'set new Count, and action
strGrid = strGrid & "<tr><td>"
strGrid = strGrid & "<input type=""hidden"" name=""Count"" value="""&intCount&""">"&vbNewLine
strGrid = strGrid & "<input type=""submit"" name=""cmd_AddNewLine"" value=""Add"">"& vbNewLine
strGrid = strGrid & "<input type=""submit"" name=""cmd_Process"" value=""Process"">"& vbNewLine
strGrid = strGrid & "</tr></td>"

Build_PersonGrid = strGrid
End Function
'-----------------------------------------------------------------------------------
'
'-----------------------------------------------------------------------------------
Sub Process_InsertEvent()
Dim strSQL, intCount, x

intCount = request.form("Count&quot

'-----------------------------------------------------
'build ADODB.Connection here, should be called "objConn"
set objConn = Server.CreateObject("ADODB.Connection&quot

objConn.Open "dsn=spec"
'-----------------------------------------------------
If request.form("txtSpecName&quot

<> "" then
strSpecName = request.form("txtSpecName&quot

else
strSpecName = "N/A"
end if

If request.form("txtOfferName&quot

<> "" then
strOfferName = request.form("txtOfferName&quot

else
strOfferName = "N/A"
end if

If request.form("txtMakeModel&quot

<> "" then
strMakeModel = request.form("txtMakeModel&quot

else
strMakeModel = "N/A"
end if

If request.form("txtAlternateModel&quot

<> "" then
strAlternateModel = request.form("txtAlternateModel&quot

else
strAlternateModel = "N/A"
end if

If request.form("txtContactName&quot

<> "" then
strContactName = request.form("txtContactName&quot

else
strContactName = "N/A"
end if

If request.form("txtContactEmail&quot

<> "" then
strContactEmail = request.form("txtContactEmail&quot

else
strContactEmail = "N/A"
end if

'insert the event data
strSQL = "INSERT INTO tbl_Events( "
strSQL = strSQL & "SpecName, "
strSQL = strSQL & "OfferName, "
strSQL = strSQL & "MakeModel, "
strSQL = strSQL & "AlternateModel, "
strSQL = strSQL & "ContactName, "
strSQL = strSQL & "ContactEmail) "
strSQL = strSQL & "VALUES("
strSQL = strSQL & "'"&strSpecName&"', "
strSQL = strSQL & "'"&strOfferName&"', "
strSQL = strSQL & "'"&strMakeModel&"', "
strSQL = strSQL & "'"&strAlternateModel&"', "
strSQL = strSQL & "'"&strContactName&"', "
strSQL = strSQL & "'"&strContactEmail&"')"
'response.write(strSQL)
response.write("<p>&quot

objConn.execute(strSQL)

strSQL = "SELECT MAX(EventID) AS NewEvent FROM tbl_Events"
'response.write(strSQL)
response.write("<p>&quot

set rsData = objConn.execute(strSQL)

intNewEventID = rsData("NewEvent&quot

rsData.close
set rsData = nothing

'insert the Item Descriptions, from grid
For x = 0 To intCount
If request.form("txtItemDesc"&x) <> "" then
strItemDesc = request.form("txtItemDesc"&x)
else
strItemDesc = "N/A"
end if

If request.form("txtYes"&x) <> "" then
strYes = request.form("txtYes"&x)
else
strYes = " "
end if
If request.form("txtNo"&x) <> "" then
strNo = request.form("txtNo"&x)
else
strNo = " "
end if

strSQL = "INSERT INTO tbl_Persons( "
strSQL = strSQL & "ItemDesc,"
strSQL = strSQL & "TheYes,"
strSQL = strSQL & "TheNo,"
strSQL = strSQL & "EventID) "
strSQL = strSQL & "VALUES( "
strSQL = strSQL & "'"&strItemDesc&"',"
strSQL = strSQL & "'"&strYes&"',"
strSQL = strSQL & "'"&strNo&"',"
strSQL = strSQL & ""&intNewEventID&&quot

"
'response.write(strSQL)
'response.end
response.write("<br>&quot

objConn.execute(strSQL)

Next

objConn.close
set objConn = nothing

response.write("Action was a succes. All data was processed in database <br>&quot

response.write("<a href='InsertRequirements.asp'>Create Another Record</a>&quot

End Sub
'-----------------------------------------------------------------------------------
'
'-----------------------------------------------------------------------------------
Sub Main
Dim intAction

If request.form("cmd_AddNewLine&quot

<> "" then
intAction = Cint(0)
elseif request.form("cmd_Process&quot

<> "" then
intAction = Cint(1)
Else
intAction = Cint(0)
end if

Select Case intAction
Case 0
strGrid = Build_PersonGrid(strTemp)
Display_EventInsert strGrid
Case 1
Process_InsertEvent
End Select
End Sub
'-----------------------------------------------------------------------------------
'
'-----------------------------------------------------------------------------------
Call Main()
%>

chinedu · Jun 4, 2003

sorry I was in a hurry to go to a meeting that I sent the wrong code.
Here is a few fixes to the one I sent.
On the head of that code, I added this javascript code:
<script language="javascript">
function ProcessSearch(strcatvalue)
{
alert(strcatvalue +"1&quot

if(strcatvalue=="Add&quot

{
strAction = "InsertRequirements.asp"
alert(strcatvalue+"2&quot

}
alert(strcatvalue+"3&quot

if(strcatvalue=="Process&quot

{
strAction = "pageBeforeLast.asp"
alert(strcatvalue+"4&quot

}
document.forms[0].action=strAction
document.forms[0].submit()
}
</script>

On the body,
I have this:
<body bgcolor="ffffff">
<form name="Insert" method="post">

then instead of this:
strGrid = strGrid & "<input type=""submit"" name=""cmd_AddNewLine"" value=""Add"">"& vbNewLine
strGrid = strGrid & "<input type=""submit"" name=""cmd_Process"" value=""Process"">"& vbNewLine

I have this:
strGrid = strGrid & "<input type=""submit"" name=""cmd_AddNewLine"" value=""Add"" onClick=""ProcessSearch('Add')"">"& vbNewLine
strGrid = strGrid & "<input type=""submit"" name=""cmd_Process"" value=""Process"" onClick=""ProcessSearch('Process')"">"& vbNewLine

Essentially, I am saying if I click the 'Add' button, then add another textbox under specification.
but if I click 'Process', then send my data to the page to pageBeforeLast.asp
As I indicated, the only data that is not being sent to the pageBeforeLast is txtitemDesc.
i don't know why but I will worry about that after the preview and submit page is working.
Sorry about the long codes

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!

previewing a page before submission

chinedu

Technical User

Genimuse

Programmer

chinedu

Technical User

lottastuff

Programmer

chinedu

Technical User

TonyU

Technical User

Genimuse

Programmer

chinedu

Technical User

chinedu

Technical User

Similar threads

Part and Inventory Search

Sponsor