Insert data could not be process 1

senadaulay · Feb 10, 2004

Hi,I'm New using ASP program so bare with me.I need to create a form so i can entry data to the table in Access. the database i use is Access, the connection using ODBC.to insert the data I'm using SQL syntax, but it's doesn't work. maybe someone could help me. heres my code.

If Request.Form ("Submit&quot

= "submit1" Then
intNo = Request.Form ("No&quot

varEmployeeNo = Request.Form ("EmployeeNo&quot

varSurname = Request.Form ("Surname&quot

varGivenName = Request.Form ("GivenName&quot

Session("Nomer&quot

= intNomer
Session ("EmployeeNo&quot

= varEmployeeNo
Session ("Surname&quot

= varSurname
Session ("GivenName&quot

= varGivenName

Set Conn = Server.CreateObject ("ADODB.Connection&quot

Conn.Open "DSN=MRegisterTbl"
Conn.Execute (strsql)

strsql="INSERT INTO Expat_EmployeeReg(No,EmployeeNo,Surname,GivenName,Address,WorkLocation,ProjectNo,Citizen,DateofBirth,GovernmentPosition)" &_
"VALUES('" & intNo & "','" & varEmployeeNo & "','" & varSurname & "','" & varGivenName & "','" & varAddress & "','" & varWorkLocation & "','" & varProjectNo & "','" & varCitizen & "','" & varDateofBirth & "','" & varGovernmentPosition & "')"
Conn.Execute strsql

thank's for the help

foxbox · Feb 10, 2004

Conn.Execute (strsql)

is before

strsql="INSERT INTO Expat_EmployeeReg(No,EmployeeNo,Surname,GivenName,Address,WorkLocation,ProjectNo,Citizen,DateofBirth,GovernmentPosition)" &_
"VALUES('" & intNo & "','" & varEmployeeNo & "','" & varSurname & "','" & varGivenName & "','" & varAddress & "','" & varWorkLocation & "','" & varProjectNo & "','" & varCitizen & "','" & varDateofBirth & "','" & varGovernmentPosition & "')"
Conn.Execute strsql

hth,
Foxbox

senadaulay · Feb 11, 2004

Hi Foxbox...thank's for your replay
I did try your suggestion, but it's still doesn't work. every time i summit the form the datas doesn't save to the table.if in my table have two column for Number where the data type is auto Number the other is Number, is that could be a problem? or maybe you could give me other suggestion so i can check my code?
actually i have 2 forms. my first form is for entry data and the second form for view the data where i will put links so when the user want to add,update dan delete data it will open the first form.i hope its make any sense
thank's

foxbox · Feb 11, 2004

a) you can not update/insert a value in an autonumber b)field.
b) Is "No" a numeric field? if yes: you have ' ' around it
c) Same for EmployeeNo
d) idem projectNo
e) Your code shows how 7 variables receive a value (
intNo = Request.Form ("No&quot

etc), but in the SQL i see 10 variables....
f) Session("Nomer&quot

= intNomer is not used at all
g) You store 4 variables into session()'s, but it is not clear how the variables received a value:

varEmployeeNo = requestr.form("employeeno&quot

' ?
Session ("EmployeeNo&quot

= varEmployeeNo

h) If the <INPUT> fields are on form 1, you retrieve them on form 2 with request.form() . But when the user presses the Add link, your ADD.ASP can not use Request.Form () to get the values from form 1. You need 1) <INPUT TYPE=HIDDEN> fields in form 2 or 2) store the form 1 values in session() variables (in form 2). Your code shows a mix of both, which suggests that you have some fields on form 1 and some on form 2..

hth,
Foxbox

senadaulay · Feb 13, 2004

I forget to tell you that i have a lot of fields in my table so i only show you 7 fields...sorry about that.
so for the field with data type with autonumber i still need to declare it but not put it in SQL syntax right?
in point G) you mention that it is not clear how the variables received a value i'm not sure how to do this,but
I have been trying following your suggestion and still not working,this is the code that i have been working on it, could you check it out please....

as in form 1 the code i put like this:
<! --#include file="Source.asp" -->
<%
Dim intAngka,intNomer,varEmployeeNo,varSurname,varGivenName Dim varStatus, varSection, varAddress, varHired_date
Dim strConnect, rsData, Conn, strSQl

If Request.Form("submit1&quot

= "submit1" Then
intNomer = Session("Nomer&quot

(the data type is number)
varEmployeeNo = Session ("EmployeeNo&quot

varSurname = Session ("Surname&quot

varGivenName = Session ("GivenName&quot

varStatus = Session ("Status&quot

varSection = Session ("Section&quot

varAddress = Session ("Address&quot

varHired_date = Session ("DateofHired&quot

Set Conn = Server.CreateObject ("ADODB.Connection&quot

Conn.Open "DSN=Insert"

strsql ="INSERT INTO Expat_EmployeeReg " &_
"(Nomer,Surname,GivenName,Status,EmployeeNo, " & _
"Section,DateofHired,Address)" & _
"VALUES (" &_
"'&intNomer&','" & varSurname & "','" & varGivenName & "','" & varStatus & "','" & varEmployeeNo & "', " & _
"'" & varSection & "','" & varHired_date & "','" & varAddress & "')"
Conn.Execute strSql
Response.Redirect ("ViewData.asp&quot

If rsData.State then
rsData.Close
end if
set rsData= Nothing

If Conn.State then
Conn.Close
set Conn= Nothing
end if
end if
%>
<TR>
<TD bgColor=#30c2f0> No :</TD>
<TD bgColor=#30c2f0><INPUT id=text2
style="WIDTH: 65px; HEIGHT: 22px" size=9 name="Nomer"
></TD></TR>
<TR>
<TD bgColor=#30c2f0>Employee No :</TD>
<TD bgColor=#30c2f0><INPUT id=text2
style="WIDTH: 65px; HEIGHT: 22px" size=9 name="EmployeeNo"
></TD></TR>
<P><INPUT id=submit1 style="WIDTH: 63px; HEIGHT: 34px" type=submit size=21 value=Submit name=submit1>&>
</FORM>
</BODY>
</HTML>

this is form 2 code:
<%
Dim intAngka,intNomer,varEmployeeNo,varSurname,varGivenName Dim varStatus, varSection, varAddress, varHired_date
Dim strConnect, rsData, Conn, strSQl, i

Session ("Nomer&quot

= intNomer
Session ("EmployeeNo&quot

= varEmployeeNo
Session ("Surname&quot

= varSurname
Session ("GivenName&quot

= varGivenName
Session ("Status&quot

= varStatus
Session ("Section&quot

= varSection
Session ("Address&quot

= varAddress
Session ("DateofHired&quot

= varHired_date

Set Conn = Server.CreateObject ("ADODB.Connection&quot

Conn.Open "DSN=Insert"
Set rsData = Server.CreateObject ("ADODB.Recordset&quot

rsData.Open "SELECT * FROM Expat_EmployeeReg", Conn

i=1
%>
<TH>Nomer</TH>
<TH>EmployeeNo</TH>
<TH>Surname</TH>
<TH>GivenName</TH>
<TH>Status</TH>
<TH>Section</TH>
<TH>Address</TH>
<TH>DateofHired</TH>
<%
Do While Not rsData.EOF
%>
<TR>
<TD><%=i%></TD>
<TD><%=rsData("EmployeeNo&quot

%></TD>
<TD><%=rsData("Surname&quot

%></TD>
<TD><%=rsData("GivenName&quot

%></TD>
<TD><%=rsData("Status&quot

%></TD>
<TD><%=rsData("Section&quot

%></TD>
<TD><%=rsData("Address&quot

%></TD>
<TD><%=rsData("DateofHired&quot

%></TD>

<INPUT TYPE=hidden name="Nomer" value=<%session("Nomer&quot

%>>
<INPUT TYPE=hidden name="EmployeeNo" value=<%session("EmployeeNo&quot

%> >
<INPUT TYPE=hidden name="Surname" value=<%session("Surname"%>>
<INPUT TYPE=hidden name="GivenName" value=<%session("GivenName&quot

%>>
<INPUT TYPE=hidden name="Status" value=<%session("Status&quot

%> >
<INPUT TYPE=hidden name="Section" value=<%session("Section&quot

%>>
<INPUT TYPE=hidden name="Address" value=<%session("Address&quot

%>>
<INPUT TYPE=hidden name="DateofHired" value=<%session("DateofHired&quot

%>>

<%
i = i + 1
rsData.MoveNext
Loop
rsData.Close
Conn.Close
Set rsData= Nothing
Set Conn= Nothing

%>
</TABLE>
</FORM>
</BODY>
</HTML>

thank's

foxbox · Feb 14, 2004

Code:

<%
If Request.ServerVariables(&quot;REQUEST_METHOD&quot;) = &quot;POST&quot; then
 dim intNomer, varEmployeeNo
  
 ' Store nomer in session variable, because you need
 ' it on the 2nd form
 session(&quot;sIntNomer&quot;) = request.Form(&quot;nomer&quot;)
 
 ' Build the SQL. Use request.form(); no need to store
 ' them first in variables (but you may consider
 ' additional input validation)
 strsql =&quot;INSERT INTO Expat_EmployeeReg &quot; &_ 
         &quot;(Nomer,EmployeeNo) VALUES (&quot; &_
         session(&quot;sNomer&quot;) & &quot;,'&quot; &_
         request.Form(&quot;EmployeeNO&quot;) & &quot;')&quot;
 Conn.Execute strSql 
 ' CLOSE CONNECTION FIRST!
 conn.close

 ' THEN TO 2ND FORM. 
 Response.Redirect (&quot;form2.asp&quot;)   
 response.End   
end if
%>
<form action=index.asp method=post>
 No          : <INPUT  id=text2 size=9 name=&quot;Nomer&quot; ><br> 
 Employee No : <INPUT size=9 name=&quot;EmployeeNo&quot;><br>
 <br>
 <INPUT type=submit value=&quot;Submit&quot;>
</FORM>
</BODY>
</HTML>

Form2.asp

Code:

<%
' i suppose you want to display 1 record from Expat_employeeReg
' Your SQL needs a WHERE:
strSQL = &quot;SELECT TOP 1 * FROM Expat_EmployeeReg where &quot; &_
         &quot;nomer = &quot; &  session(&quot;sIntNomer&quot;)
Set Conn = Server.CreateObject (&quot;ADODB.Connection&quot;)
Conn.Open &quot;DSN=Insert&quot;
Set rsData = Server.CreateObject (&quot;ADODB.Recordset&quot;)
rsData.Open strSQL, Conn

' And now the rsData recordset containts all the values
' of your just INSERTed record
%>
<table>
<tr>
<td>Field</td>
<td>Content</td>
</tr>

<tr>
<td>Nomer</td>
<td><%= rsData(&quot;nomer&quot;) %></td>
</tr>

<td>EmployeeNo</td>
<TD><%= rsData(&quot;EmployeeNo&quot;) %></TD>
</tr>

rsData.Close 
Conn.Close 
Set rsData= Nothing
Set Conn= Nothing
</TABLE> 
</FORM>
</BODY>
</HTML>

hth,
Foxbox

senadaulay · Feb 16, 2004

I try your suggestion and this is my new code after i follow your code, i dont know why is still doesn't work with me.did i miss something? i really appreciate your patience, i input some of my data in my first form and submit the second form come up and the new values doesn't shows in the second form.
the things is there are no error message until i refresh the second form and i got error message like this:

Error Type:
Provider (0x80004005)
Unspecified error
/Nur/Extra_HRD/Data_Emp.asp, line 25

Browser Type:
Mozilla/4.0 (compatible; MSIE 5.5; Windows NT 5.0)

Page:
POST 706 bytes to /Nur/Extra_HRD/Data_Emp.asp

POST Data:
Nomer=2&EmployeeNo=786&Surname=Daulay&GivenName=Nursena&Status=Permanent+Employee&Section=ENC&Address=kemang&WorkLocation=Jakarta&DateofHired=&ProjectNo=&Citizen=&PlaceofBirth=&DateofBirth=&Government . . .

<%
If Request.ServerVariables ("REQUEST_METHOD&quot

= "POST" then
Dim intNomer, varEmployeeNo, varSurname, varGivenName
Dim varStatus, varSection, varWorkLocation

Session ("intNomer&quot

= Request.Form ("Nomer&quot

strsql = "INSERT INTO Expat_EmployeeReg " &_
"(Nomer,Surname,GivenName,Status,EmployeeNo " & _
"WorkLocation,Section) VALUES (" &_
session("intNomer&quot

& ", '" &_
Request.Form("Surname&quot

&"','"&Request.Form("GivenName&quot

&"','"&Request.Form("Status&quot

&"','"&Request.Form("EmployeeNo&quot

&"', '"& _
Request.Form("WorkLocation&quot

&"','"&Request.Form("Section&quot

&"')"

Conn.Execute strsql
Conn.Close

Response.Redirect ("Data_Emp.asp&quot

Response.End
End If
%>
<FORM ACTION="Data_Emp.asp" METHOD=Post>
<BODY>
<TR>
<TD bgColor=#30c2f0>Nomer :</TD>
<TD bgColor=#30c2f0><INPUT id=text1
style="WIDTH: 41px; HEIGHT: 22px" size=5 name="Nomer"
></TD></TR>
<TR>
<TD bgColor=#30c2f0>Employee No :</TD>
<TD bgColor=#30c2f0><INPUT id=text2
style="WIDTH: 65px;HEIGHT: 22px"size=9 name="EmployeeNo"
></TD></TR>
<TR>
<TD bgColor=#30c2f0>Surname :</TD>
<TD bgColor=#30c2f0><INPUT id=text3
style="WIDTH: 193px; HEIGHT: 22px" size=27 name="Surname"
></TD></TR>

these are my second form code:

<%
Dim intAngka, intNomer, varEmployeeNo, varSurname, varGivenName
Dim varStatus, varSection, varWorkLocation

strSQL = "SELECT * FROM Expat_EmployeeReg"

Set Conn = Server.CreateObject ("ADODB.Connection&quot

Conn.Open "DSN=Insert", Conn

Set rsData = Server.CreateObject ("ADODB.Recordset&quot

rsData.Open strSQL,Conn
%>
TR>
<TH>Nomer</TH>
<TH>EmployeeNo</TH>
<TH>Surname</TH>
<TH>GivenName</TH>
<TH>Status</TH>
<TH>Section</TH>
<TH>WorkLocation</TH>

<TD><%=rsData("Nomer&quot

%></TD>
<TD><%=rsData("EmployeeNo&quot

%></TD>
<TD><%=rsData("Surname&quot

%></TD>
<TD><%=rsData("GivenName&quot

%></TD>
<TD><%=rsData("Status&quot

%></TD>
<TD><%=rsData("Section&quot

%></TD>
<TD><%=rsData("WorkLocation&quot

%></TD>

<%

rsData.Close
Conn.Close
Set rsData= nothing
Set Conn= nothing
%>

thank's

foxbox · Feb 19, 2004

after the INSERT into i see a

Code:

Response.Redirect (&quot;Data_Emp.asp&quot;)

but a few lines down, i see:

Code:

<FORM ACTION=&quot;Data_Emp.asp&quot; METHOD=Post>

which suggest that this in fact is Data_emp.asp!
You must redirect to the 2nd page....

Your 2nd page code does not look like my form2.asp
I still see a

Code:

strSQL = &quot;SELECT * FROM Expat_EmployeeReg&quot;

which is retrieving all records from that table....

hth,
Foxbox

senadaulay · Feb 24, 2004

Thanks Foxbox for your help...I figure out that in my program I could not use DSN I don't know why, so I change my database connection to Microsoft Jet OLEDB 4.0 and I also put my access table in the wrong directory.
If you dont mind I have another question,
I have to make some changes in my field.
I'm not using "Nomer" filed anymore.
I did some revision with my code but most of it I'm following your code. I told you before i only have 2 form but know I add one more form. the scenario little bit changes...In Form 1 just enter the new data. Form 2nd will be show the new Data,in form2 If the user doesn't want to save the data they still can do it by click the cancel button which is still goto confirm page but will be show different message and so does if the data will be save
it will goto form 3 (Confirmation page)where there will message said that Data have been save.
I want to ask :
1. is it right in form 2 where I put the insert and select statement?
2. i know you told me before for show the data using select top 1...but if I want to show the current data
after i input data from form 1. I try using strsql = "select * from insert where EmployeeID= '"&varID&"'"
3. in form 3 (confirmation page) what should i put in there?
just check status? like : If strTo >= 1 then status 'save'?
here's my code:
form1.asp
<%
If Request.ServerVariables("REQUEST_METHOD&quot

= "POST" then
Dim varID, varName, varAddress
Dim varPhome, intPostal, varSalary
Dim strsql
Dim Conn
Dim strConnect

varID = Request.Form ("EmployeeID&quot

varName = Request.Form ("EmployeeName&quot

varAddress = Request.Form ("EmployeeAddress&quot

varPhome = Request.Form ("EmployeePhoneHome&quot

intPostal = Request.Form ("EmployeePostalCode&quot

varSalary = Request.Form ("EmployeeSalary&quot

strConnect= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\TblEmploy.mdb"

Set Conn= Server.CreateObject ("ADODB.Connection&quot

Conn.Open strConnect

strSQL = "INSERT INTO Data(EmployeeID,EmployeeName, " & _
"EmployeeAddress, EmployeePhoneHome,
EmployeePostalCode, EmployeeSalary) " & _
"VALUES('" & Cstr(Request.Form("EmployeeID&quot

) & "','" & _
Cstr(Request.Form("EmployeeName&quot

) & "','" & _
Cstr(Request.Form("EmployeeAddress&quot

) & "','" & _
Cstr(Request.Form("EmployeePhoneHome&quot

) & "','" & _
Cstr(Request.Form("EmployeePostalCode&quot

) & "'," & _
CCur(Request.Form("EmployeeSalary&quot

) & &quot

"
Response.Write strSQL
Conn.Execute strSQL
Conn.Close
Response.Redirect("ResultADD.asp&quot

Response.End
End IF
%>
<FORM ACTION=ADD_Employee.asp METHOD=post Name=frmAdd>
<TR><TD>EmployeeID</TD>
<TD><INPUT name="EmployeeID" ></TD></TR>
<TR><TD><P>EmployeeName</P></TD>
<TD><INPUT name="EmployeeName" ></TD></TR>
<TR><TD>EmployeeAddress</TD>
<TD><INPUT name="EmployeeAddress" ></TD></TR>
<TR><TD>EmployeePhoneHome</TD>
<TD><INPUT name="EmployeePhoneHome" ></TD></TR>
<TR><TD>EmployeePostalCode</TD>
<TD><SELECT type="dropdown" name="EmployeePostalCode" style="WIDTH: 154px"> <OPTION selected>
<OPTION>1234</OPTION>
<OPTION>2345</OPTION></SELECT></TD></TR>
<TR><TD>EmployeeSalary</TD>
<TD><INPUT name="EmployeeSalary" ></TD></TR>

</TABLE></P>
<P><INPUT type=submit value=Submit name=submit1>
<INPUT id=reset1 type=reset value=Reset name=reset1></P>

form2.asp
<%
strConnect= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\TblEmploy.mdb"

Set Conn= Server.CreateObject ("ADODB.Connection&quot

Conn.Open strConnect

Set rsData = Server.CreateObject ("ADODB.Recordset&quot

strsql "SELECT * FROM Data WHERE Employee Where EmployeeID= '"&varID&"'"
Conn.Execute strSQL
%>
<TR><TD>EmployeeID</TD>
<TD><%=rsData("EmployeeID&quot

%></TD></TR>
<TR><TD>EmployeeName</TD>
<TD><%=rsData("EmployeeName&quot

%></TD></TR>
<TR><TD>EmployeeAddress</TD>
<TD><%=rsData("EmployeeAddress&quot

%></TD></TR>
<TR><TD>EmployeePHome</TD>
<TD><%=rsData("EmployeePhoneHome&quot

%></TD></TR>
<TR><TD>EmployeePostalCode</TD>
<TD><%=rsData("EmployeePostalCode&quot

%></TD></TR>
<TR><TD>EmployeeSalary</TD>
<TD><%=rsData("EmployeeSalary&quot

%></TD></TR>
</TABLE>
<INPUT id=submit1 type=submit size=21 value=Update name=submit1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
<INPUT id=reset1 type=reset size=33 value=Cancel name=reset1></P>
<%
rsData.Close
Conn.Close
Set rsData= nothing
Set Conn= nothing
%>
</BODY>
thank's

foxbox · Feb 24, 2004

Based on the code above 'form1.asp' = ADD_Employee.asp
and form2.asp = ResultADD.asp.

In Form1 i see:
<FORM ACTION=ADD_Employee.asp METHOD=post Name=frmAdd>
so after hitting submit we re-enter the same page and the INSERT is executed!
after that i see a
Response.Redirect("ResultADD.asp&quot

(aka form2)

There your SQL looks wrong because varID has no value (you assigned in form1, but we left there and are now in form2)

"Top 1" in SQL is just an instruction to give only the first record that meets the WHERE. We SELECT using a unique key, so even without "TOP 1" you only select 1 record; i use it for optimum performance.

Your 2nd form has no <FORM> tag, so after hitting SUBMIT the page does not know where to go.

You display information, so a RESET button is also obsolete.

And finally: you did the insert already in form1!

You need to change the program flow:

FORM1: enter information (in a <FORM action=FORM1.ASP&gt

, after SUBMIT (re-entering FORM1) and display the information (in a <FORM action=FORM2.ASP &gt

, and put an INSERT and CANCEL button under it.
After hitting INSERT go to FORM2 and do the actual INSERT

hth,
Foxbox

senadaulay · Feb 26, 2004

I still need your help FoxBox....I have been working with my code....here the code that I have been modify but still not working...

in Form 1 I didn't put any kind of code...just INPUT tag.
in form 2
Set Conn = Server.CreateObject ("ADODB.CONNECTION&quot

Set rsData = Server.CreateObject ("ADODB.Recordset&quot

Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\TblEmploy.mdb"
rsData.Open "Data", Conn
strsql = "Select * from Data "
strsql=strsql & "where EmployeeID='" & varID& "'"
Set rsData = Conn.Execute(strsql)

If Request.Form ("submit1&quot

= "Save" then

strsql = "INSERT INTO Data(EmployeeID,EmployeeName, " & _
"EmployeeAddress, EmployeePhoneHome, EmployeePostalCode, EmployeeSalary) " & _
"VALUES('" & Cstr(Request.Form("EmployeeID&quot

) & "','" & _
Cstr(Request.Form("EmployeeName&quot

) & "','" & _
Cstr(Request.Form("EmployeeAddress&quot

) & "','" & _
Cstr(Request.Form("EmployeePhoneHome&quot

) & "','" & _
Cstr(Request.Form("EmployeePostalCode&quot

) & "'," & _
CCur(Request.Form("EmployeeSalary&quot

) & &quot

"
Conn.Execute strsql
Conn.Close

If Not rsData.EOF then

%>
<TR><TD>EmployeeName</TD></TR>
<TR><TD><%=rsData("EmployeeName&quot

%></TD></TR>
<TR><TD>EmployeeAddress</TD>
<TD><%=rsData("EmployeeAddress&quot

%></TD></TR>
<TR><TD>EmployeePHome</TD>
<TD><%=rsData("EmployeePhoneHome&quot

%></TD></TR>
<TR><TD>EmployeePostalCode</TD>
<TD><%=rsData("EmployeePostalCode&quot

%></TD></TR>
<TR><TD>EmployeeSalary</TD>
<TD><%=rsData("EmployeeSalary&quot

%></TD></TR>

<%
end if
end if
%>

but when I run the code I got error message like this:
Error Type:
Error Type:
Microsoft JET Database Engine (0x80040E07)
Data type mismatch in criteria expression.
/Nur/Project1_ASP/ResultADD.asp, line 29

Browser Type:
Mozilla/4.0 (compatible; MSIE 5.5; Windows NT 5.0)

Page:
POST 137 bytes to /Nur/Project1_ASP/ResultADD.asp

POST Data:
EmployeeID=411&EmployeeName=BoB&EmployeeAddress=Bunga&EmployeePhoneHome=7868686&EmployeePostalCode=2345&EmployeeSalary=100&submit1=Submit

I did check my field in my table and the filed name is same

thanks

foxbox · Feb 27, 2004

this is one way to do what you want:

FORM1.ASP:

Code:

<html>
<h1>FORM1/STEP 1: INPUT</h1>
<form action=form2.asp method=post>
Enter a name:<br>
<input type=text name=fName value="<%= session("sName") %>">
<br>
<input type=submit value=OK>
</form>
</html>

(The first time you enter this form, the session has no value, so an empty field is presented.)

FORM2.ASP:

Code:

<html>
<h1>FORM2/STEP 2: CHECK</h1>
<form action=form3.asp method=post>
Your input:<br>
<%
' store the imput from the previous schreen in
' session variable
session("sName") = Request.Form("fName")
Response.Write "<b>" & session("sName") & "</b>"
%>
<br>
<br>
<input type=submit value=INSERT>&nbsp;
<input type=button value=EDIT OnClick="location.href='form1.asp'">
</form>
</html>

(When the user hits the EDIT button, you go back to FORM1.ASP, and now the session variable is used to present the original input)

FORM3.ASP:

Code:

<%
' Open database connection

' Create SQL statement:
' strSQL = "INSERT INTO data(name) " &_
         ' "values('" & session("sName") & "')"
' conn.execute strSQL
' conn.close
' set conn= nothing

' reset the session:
session("sName") = ""

' when you want direct to a menu or step 1: put 
' a response.redirect here.
' if we ommit that, the rest of the page is processed....
%>
<html>
<h1>FORM3/STEP 3: INSERT</h1>
Your input:<br>
<%
Response.Write "<b>" & session("sName") & "</b>"
%>
was saved to the database.
<br>
<br>
<input type=button value=AGAIN OnClick="location.href='form1.asp'">
</form>
</html>

senadaulay · Feb 29, 2004

thank you..thank you so much Foxbox..I appreciate your help and your patince....thank's

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!

Insert data could not be process 1

senadaulay

Programmer

foxbox

Programmer

senadaulay

Programmer

foxbox

Programmer

senadaulay

Programmer

foxbox

Programmer

senadaulay

Programmer

foxbox

Programmer

senadaulay

Programmer

foxbox

Programmer

senadaulay

Programmer

foxbox

Programmer

senadaulay

Programmer

Similar threads

Part and Inventory Search

Sponsor