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"
= "POST" then
Dim varID, varName, varAddress
Dim varPhome, intPostal, varSalary
Dim strsql
Dim Conn
Dim strConnect
varID = Request.Form ("EmployeeID"
varName = Request.Form ("EmployeeName"
varAddress = Request.Form ("EmployeeAddress"
varPhome = Request.Form ("EmployeePhoneHome"
intPostal = Request.Form ("EmployeePostalCode"
varSalary = Request.Form ("EmployeeSalary"
strConnect= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\TblEmploy.mdb"
Set Conn= Server.CreateObject ("ADODB.Connection"
Conn.Open strConnect
strSQL = "INSERT INTO Data(EmployeeID,EmployeeName, " & _
"EmployeeAddress, EmployeePhoneHome,
EmployeePostalCode, EmployeeSalary) " & _
"VALUES('" & Cstr(Request.Form("EmployeeID"
) & "','" & _
Cstr(Request.Form("EmployeeName"
) & "','" & _
Cstr(Request.Form("EmployeeAddress"
) & "','" & _
Cstr(Request.Form("EmployeePhoneHome"
) & "','" & _
Cstr(Request.Form("EmployeePostalCode"
) & "'," & _
CCur(Request.Form("EmployeeSalary"
) & "
"
Response.Write strSQL
Conn.Execute strSQL
Conn.Close
Response.Redirect("ResultADD.asp"
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"
Conn.Open strConnect
Set rsData = Server.CreateObject ("ADODB.Recordset"
strsql "SELECT * FROM Data WHERE Employee Where EmployeeID= '"&varID&"'"
Conn.Execute strSQL
%>
<TR><TD>EmployeeID</TD>
<TD><%=rsData("EmployeeID"
%></TD></TR>
<TR><TD>EmployeeName</TD>
<TD><%=rsData("EmployeeName"
%></TD></TR>
<TR><TD>EmployeeAddress</TD>
<TD><%=rsData("EmployeeAddress"
%></TD></TR>
<TR><TD>EmployeePHome</TD>
<TD><%=rsData("EmployeePhoneHome"
%></TD></TR>
<TR><TD>EmployeePostalCode</TD>
<TD><%=rsData("EmployeePostalCode"
%></TD></TR>
<TR><TD>EmployeeSalary</TD>
<TD><%=rsData("EmployeeSalary"
%></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
