עזרה ב-asp בבקשה - תכנות - HWzone פורומים
עבור לתוכן
  • צור חשבון

עזרה ב-asp בבקשה

לידור2

נוצר על ידי לידור2
ב תכנות

Recommended Posts

לידור2 Zone Newbie

לידור2

פורסם
פורסם

שלום לכולם.

אני בונה אתר לצורך יחידת מחשבים בבי"ס, ונתקלתי בבעיה הנוגעת ל-asp.

יש לי דף אשר בו המשתמש נרשם, אך הבעיה היא כי ההרשמה לפעמים עובדת ולפעמים לא (עם דגש על - בד"כ לא!).

http://www.upf.co.il/index.php?page=view&id= - הקובץ בפורמט .txt

כמו כן, הנה הקוד של קובץ ה-asp (זה אותו קובץ, שמתי את הקוד שלו גם פה בכ"ז): 


<html dir="rtl"> 
<head> 
<title> הרשמה לאתר </title>  
</head> 
<body> 
<% 

Set connection=Server.CreateObject("ADODB.Connection") 
stconnection="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&_ 
Server.MapPath("/db/Traveler.mdb") 
connection.open stconnection 

User_name=request.Form("User_name") 

SQLUser="select * from userTable where User_name='"&User_name&"'" 
set rsUser=server.createObject("ADODB.recordset") 
rsUser.activeconnection=connection 
rsUser.open SQLUser 

if not rsUser.EOF then 
Response.Write "<center>" 
Response.Write "<h3>" 
Response.Write ".שם משתמש תפוס" 
Response.Write "</h3>" 
Response.Write "</center>" 
Response.end 

else 
First_name=request.Form("First_name") 
Last_name=request.Form("Last_name") 
ID=request.Form("ID") 
Birthday=request.Form("Birthday") 
Password1=request.Form("Password1") 
Credit_card_type=request.Form("Credit_card_type") 
Credit_card_number=request.Form("Credit_card_number") 
Telephone=request.Form("Telephone") 
City=request.Form("City") 
Address=request.Form("Address") 
Status="2" 

SQLAdd="Insert into userTable values('"&User_name&"', '"&First_name&"', '"&Last_name&"', "&ID&", '"&Birthday&"', '"&Password1&"', '"&Credit_card_type&"', "&Credit_card_number&", '"&Telephone&"', '"&City&"', '"&Address&"', "&Status&")" 
connection.Execute(SQLAdd) 
End if 

rsUser.Close 
set rsUser=nothing 
connection.close 
Set connection=nothing 
%> 
פרטיך נרשמו בהצלחה. 
</body> 
</html>

תודה מראש :)

קישור לתוכן
שתף באתרים אחרים

ארכיון

דיון זה הועבר לארכיון ולא ניתן להוסיף בו תגובות חדשות.

עבור לרשימת הדיונים
×
  • צור חדש...