السلااااااام عليكم ورحمة الله وبركاته
أكلمك بعد انقطع رجاءي وعجز لساني عن حل ذا المشكلة
والتي اتبعت فيها كل الدروس لكن من لم يكن الله معه
فلاسبيل له
لذا قررت ان اطرح سوالي هنا
مع اني خبرتي بكم .................................( مايحتاج نكمل)
لكن الظروف ويمكن أن القوم قد تغيروا بعد أحداث 11 سبتمبر
:D
القصة هي عن الربط
اتبعت الدروس
لكن كل مرة تطلع لي مشكلة جديدة
مرة الداتا بيز للقراءة فقط
مرة لازم تسةي ابديت
مرة الريجستري كي
لذا قررت اعرض لكم الكود وانتم وضميركم
<%@ Language=VBScript %>
<% option explicit %>
<%
dim firstname
dim lastname
dim address
dim email
dim city
dim sex
dim country
dim chk16
dim eval1
dim eval2
dim eval3
dim evaluate
dim notes
dim SQL
firstname = Request.Form("firstname")
lastname = Request.Form("lastname")
address = Request.Form("address")
email = Request.Form("email")
city = Request.Form("city")
sex = Request.Form("sex")
country = Request.Form("country")
eval1 =Request.Form("eval1") = "on"
eval2 =Request.Form("eval2") = "on"
eval3 =Request.Form("eval3") = "on"
evaluate =Request.Form("evaluate")
notes =Request.Form("notes")
SQL = "INSERT INTO guestbook"
SQL = SQL & "(FirstName,LastName, Address,Email, Country ,City, Sex, IslamicTopics, ComputerTopics, InternationalNews, SiteEvaluation,Notes) VALUES ('"
SQL = SQL & firstname & "', '" & lastname & "', '" & address & "','" & email & "','" & city & "','" & sex & "','" & country & "','" & eval1 & "','" & eval2 & "','" & eval3 & "','" & evaluate & "','" & notes & "')"
dim conn
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open "c:/inetpub/wwwroot/islam/guest.mdb"
conn.execute(SQL)
conn.Close
%>وهذه طريقة أخرى لمن أراد أن يستفيد
<%@ Language=VBScript %>
<% option explicit %>
<%
dim firstname
dim lastname
dim address
dim email
dim city
dim sex
dim country
dim chk16
dim eval1
dim eval2
dim eval3
dim evaluate
dim notes
dim SQL
firstname = Request.Form("firstname")
lastname = Request.Form("lastname")
address = Request.Form("address")
email = Request.Form("email")
city = Request.Form("city")
sex = Request.Form("sex")
country = Request.Form("country")
eval1 =Request.Form("eval1") = "on"
eval2 =Request.Form("eval2") = "on"
eval3 =Request.Form("eval3") = "on"
evaluate =Request.Form("evaluate")
notes =Request.Form("notes")
dim conn
dim rs
dim strID
dim strconn
strconn ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("guest.mdb") & ";"
'"DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("guest.mdb")
set conn = server.createobject("adodb.connection")
conn.open strconn
set rs = server.createobject("adodb.recordset")
rs.open "guestbook", conn, 2, 2
rs.addnew
rs("First Name") = firstname
rs("Last Name") = lastname
rs("Address") = address
rs("Email") = email
rs("Country") = country
rs("City") = city
rs("Sex") = sex
rs("Islamic Topics") = eval1
rs("Computer Topics") = eval2
rs("International News") = eval3
rs("Site Evaluation") = evaluate
rs("Notes") = notes
rs.Update
rs.Close
cnn.Close
Set cnn = Nothing
Set rs = Nothing
set rs= nothing
set conn = nothingشاكرا لكم حسن تعاملكم وسعة صدركم
والسلااااااااااااام عليكم ورحمة الله وبركاته
