صيغة Insert Into
كود:
---------------------------------------------------------
Insert Into Table_Name (FiledName1,FiledName2,FiledName3)
VALUES (Value_Filed1,Value_Filed2,Value_Filed3);
---------------------------------------------------------
أكيد عرف الخطاء عندك ، الأقواس
كودك فيه شغلات خطاء
1- pass_rs.eof هذي ماها معنى مع أستعمال هالصيفة
2- أستعمالك لكائن pass_rs (RecordSet) ،
يكفي أستمال Cn.Execute sql
لأنك لاتريد أي شي من هذا الكائن سوى تنفيذ جملة sql فقط
3- لم تقفل قاعدة البيانات
بعد الأنتهاء من قاعدة البيانات يجب اقفالها
Cn.Close
4- عن أستعمال دالة server.createobject
يجب عليك التخلص من الكائن بعد الأنتهاء منه
مثال
كود:
set cn = server.createobject("adodb.connection")
' Code Goes Here
Set cn=Nothing
5-كلمة السر الأولى و الثانبة
أنت أدخلت البيانات بالقاعدة و بعدين شييكت على كلمتي السر
شيك قبل أدخال البيانات
6-سؤال لك؟؟؟
مثال :
سجل عندك شخص جديد أسمه
Mr.ASP's
كلمت السر1= 123
كلمت السر2= 123
راح ينتج خطاء ؟؟
وين الخطاء؟؟
6- عرف كل متغيير تستخدمه
الكود بعد التعديل
----------------
كود:
<%@ Language=VBScript CodePage="1256"%>
<html dir=rtl lang=ar>
<%
On Error Resume Next
Dim Sql
Dim sel_user,sel_pass1,sel_pass2
Response.CharSet="windows-1256"
Response.Expires = 0
sel_user=Request.Form ("newuser")
sel_pass1=Request.Form ("newpass1")
sel_pass2=Request.Form ("newpass2")
If "sel_pass1")<>sel_pass2 then
'response.redirect "../check/ok_data.htm"
Response.write "Pass1 <> Pass2"
Response.End
end if
set cn = server.createobject("adodb.connection")
Cn.ConnectionString="DSN=oracle_odbc;password=tiger"
cn.open
Sql="INSERT INTO tb2 (deptno,dname,loc) Values " & _
"(sel_user ,'" & sel_pass1 & "','" & sel_pass2 & "')"
Cn.Execute Sql
Cn.Close
Set Cn=Nothing
if Err.Nummber<>0 then
'You have an Error
response.redirect "../check/no_data.htm"
else
'EveryThing is OK
response.redirect "../check/ok_data.htm"
end if
%>
</html>