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

ماهو الخطأ في الكود التالي ..ترى شيب راسي؟؟؟؟

مغلق
بدأه alsu_wh في 11 يناير 2003 · 7 رد · 861 مشاهدة · في منتدى تصميم صفحات الويب
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

عندما أفتح الصفحة عن طريق المتصفح يعرض لي الكود التالي علما أنه يتم من خلال الصفحة الاضافة الى قاعدة البيانات وهذه هي رسالة الخطأ وغالبا أنها في جملة

SQL

Error Type:

Microsoft VBScript compilation (0x800A0409)

Unterminated string constant

/d1/reg.asp, line 16, column 99

istr = "Insert Into members (member_login,member_password,first_name,last_name,email,phone,address)

--------------------------------------------------------------------------------------------------^

وهذا هو كود ASP

<!--#include File="CONNECT.ASP"-->



<%

If (Request.ServerVariables("REQUEST_METHOD") = "POST") Then



  Findlog = "Select * From members Where member_login ='" & Trim(Request("T1")) & "'"



  Set Rst = Server.CreateObject("ADODB.Recordset")	

  Rst.Open FindLog, Conn, 1, 2



  IDCount = Rst.RecordCount



  If IDCount <> 0 Then

 	 PageContent "You are Allready Exist"	

  Else

    istr = "Insert Into members (member_login,member_password,first_name,last_name,email,phone,address) 

    values('"&	trim(Request("T1")) &"' , '"& trim(Request("T2"))&"' , '"& trim(request("T3"))&"'

     & trim(Request("T4"))&'" , '"& trim(request("T5"))"' , '"& trim(Request("T6"))&"'

        & trim(Request("T7"))"'  )"

    conn.Execute istr

    PageContent "Record Has been saved!!!"

      end if  

else

	PageContent ""   

end if

%>

ومعليش على طريقة العرض السيئة لكن الكود ماقدرت اعرض كما هو لضيق المساحة

وتقبلوا تحياتي

#2

ارجو كتابة الكود عن طريق ادراجه بين 

 

[code] و [code/]

حتى يمكن فهمه

#3

هذا هو كود VBScript

<%
If (Request.ServerVariables("REQUEST_METHOD") = "POST") Then

		Findlog = "Select * From members Where member_login ='" & Trim(Request("T1")) & "'"

		Set Rst = Server.CreateObject("ADODB.Recordset")	
		Rst.Open FindLog, Conn, 1, 2

		IDCount = Rst.RecordCount

		If IDCount <> 0 Then
			PageContent "You are Allready Exist"	
		Else
		login = trim(Request("T1"))
		pass = trim(Request("T2"))
		fname = trim(Request("T3"))
		lname = trim(Request("T4"))
		em = trim(Request("T5"))
		ph = trim(Request("T6"))
		adder = trim(Request("T7"))
				istr = "Insert Into members(member_login,member_password,first_name,last_name,email,phone,_
				address) VALUES('"& login &"' , '"& pass &"' , '"& fname &"','"& lname &"' ,'"& em &"','"& ph&"','"& adder &"')"
				conn.Execute istr
				PageContent "Record Has been saved!!!"
		    end if		
else
	PageContent ""   
end if
%>
#4

لم أفهم ؟؟ هل ما زالت المشكلة يعني ؟؟ اذا نعم فهي في طريقة صياغة جملة الادخال ..

على العموم أرسل الملف اذا استمرت المشكلة ..

You can fly while you can touch the sky

#5

انا طلبت منه عرض الكود بصورة افضل بس :)

#7

سأضع الكود +قاعدة البيانات خلال هذا اليوم لما يقفل مخي نهائيا لأن الخطء يتكرر معي في جميع الصفحات وراح اضع في كود كل صفحة تعليق يوضح مالمطلوب وما الذي تقوم به وعليكم تعديل اللي تعرفون من الاخطاء ومعليش تحملوني....:D

#8

:mad: بدينا تواكل؟ ؟؟

You can fly while you can touch the sky

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

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

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…