سلام
این صفحه save_contact هستش و خط 32 رو ارور می گیره یعنی همون rs.addnew
<%@CodePage=65001 Language=VBScript %>
<% Option Explicit%>
<%Session.CodePage = 65001
Response.CodePage= 65001
Response.CharSet = "utf-8"
Dim rs,fname,lname,title,tel,email,comment
Set adoCon1 = Server.CreateObject("ADODB.Connection")
strAdoConfig1 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath ("contact.mdb") & " ;Jet OLEDB
atabase Password="
Dim adoCon1
Dim strAdoConfig1
Set adoCon1 = Server.CreateObject("ADODB.Connection")
strAdoConfig1 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath ("contact.mdb") & " ;Jet OLEDB
atabase Password="
adoCon1.Open strAdoConfig1
fname=Trim(Request.Form ("f_name"))
lname=Trim(Request.Form ("l_name"))
title=Trim(Request.Form ("c_subject"))
tel=Trim(Request.Form ("c_tel"))
email=Trim(Request.Form ("c_email"))
comment=Trim(Request.Form ("comment"))
set rs = server.CreateObject ("ADODB.Recordset")
rs.Open "select * FROM contact WHERE contact_id=-1", adoCon1, 3,3
rs.AddNew
rs("contact_fname")=fname
rs("contact_lname")=lname
rs("contact_title")=title
rs("contact_tel")=tel
rs("contact_email")=email
rs("contact_comment")=comment
rs.Update
set rs=nothing
set adoCon1=nothing
Response.Write(vbCrLf & "<script language=""JavaScript"">")
Response.Write(vbCrLf & "alert(' Continue ... ');")
Response.Write(vbCrLf & "</script>")
Response.Write(vbCrLf & "<script language=""JavaScript"">")
Response.Write(vbCrLf & "window.location='contact.htm';")
Response.Write(vbCrLf & "</script>")
%>
یه سوال دیگه هم دارم و اونم اینه که این دستور زیر یعنی چی ؟
rs.Open "select * FROM contact WHERE contact_id=-1", adoCon1, 3,3
در ضمن اگه کسی لینک دیتابیس رو پیدا کنه به راحتی می شه که فایل دیتابیس رو دریافت کنه و اطلاعات رو بخونه پس باید باید چکار کنیم اینکه می گن از شاخه های مجازی استفاده می کنیم به چه شکله ؟
ممنون از شما