الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

ساعدوني في حل هذه المشكلة

مغلق
بدأه nssr في 6 يوليو 2005 · 3 رد · 745 مشاهدة · في منتدى تصميم صفحات الويب
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

لقد قمت بعمل فورم لابداء الملاحظات .. بحيث بعد ان اضغط على زر ارسال تظهر لي صفحة تاكيد وصول البيانات للمستخدم .. والكود المستخدم هو

<%
      
      //create ADO connection
      dim oconn
      dim rs
      set oconn = Server.CreateObject("ADODB.Connection")
      oconn.Provider = "Microsoft.Jet.OLEDB.4.0"
      oconn.open(server.MapPath("myform.mdb"))
      //conn.Open "nass"
      set rs = server.createobject("ADODB.recordset")
      rs.open "contact" , oconn
      
a= "insert into contact (Name,Address,Email,Comment) values ('"
& Request.form("Name") & "','" 
& Request.form("Address") & "','" 
& Request.form("Email") & "','" 
& Request.form("Comment)  &"')"
//add the record to the database
oconn.Execute(SQLString)

// close the connection
oconn.close()
}
// confirm to the user the added record
Response.write("Thank you very much Mr/Mrs/Ms : ")
%> 
<font color=red><b>
<%
 if Response.write(Name) = " " then
 Response.write("no value")
 else
Response.write(Name)

end if
%>
</font></b><p>

<%
Response.write("we will contact you throught your E-mail:    ")
%>
<font color=red><b>
<%
Response.write(Email)

ولكن تظهر لي عبارة خطأ مفادها 
معلومات فنية (لموظفي الدعم)

نوع الخطأ:
‏‏خطأ ترجمة في Microsoft VBScript (0x800A0400)
‏‏المتوقع وجود عبارة
/old/form1.asp, line 87
& Request.form("Name") & "','"
#2

أخي الكريم

في الكود أخطاء كثيرة ...

مثل : المتغير الذي وضعت فيه جملة الإضافة insert سميته a

وعندما طلبت تنفيذه كتبت sqlstring وهو غير موجود

كذلك نسيت علامة "

وجمل غريبة أخرى

فياليت ترفق لنا مثال فيه الفورم والكود السابق مع قاعدة البيانات عشان أزبطه لك ..

#3

ارفق لك الفورم وقاعدة البيانات .. ولك ألف شكر

nasweb.zip

#4

السلام عليكم

أخي الكريم آسف على تأخري في الرد بسبب سفري الطارئ

وإليك كود صفحة المعالجة بعد التعديل

<%
     
     dim oconn
     dim rs
     set oconn = Server.CreateObject("ADODB.Connection")
     oconn.Provider = "Microsoft.Jet.OLEDB.4.0"
     oconn.open(server.MapPath("myform.mdb"))
     set rs = server.createobject("ADODB.recordset")
     rs.open "contact" , oconn
     
a= "insert into contact (Name,Address,Email,Comment) values ("
a=a&"'"& Request.form("Name") & "'," 
a=a&"'"& Request.form("address") & "'," 
a=a&"'"& Request.form("email") & "'," 
a=a&"'"& Request.form("comment") & "')" 
oconn.Execute(a)

oconn.close
}
Response.write("Thank you very much Mr/Mrs/Ms : ")
%> 
<font color=red><b>
<%
if Response.write(Name) = " " then
Response.write("no value")
else
Response.write(Name)

end if
%>
</font>

<%
Response.write("we will contact you throught your E-mail:    ")
%>

هذا الموضوع مغلق.

مواضيع مشابهة