<!___ 20.03.2008 _____ Avner Rubin_____ InsertAdmin.ASP __>
<html dir="rtl">
<head>
<title> Gamerz.co.il </title>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1255" />
<link rel="stylesheet" href="TextStyle.css" type="text/css" />
</head>
<body bgColor="#CCCCCC">
<div align="left"> <% Response.Write date() %> </div>
<br />
<%
Dim oConn
Dim oClubRS
Dim sSQL
Dim sInsIdNr
sInsIdNr = Request.Form( "userName" )
'___________________________________ קישור למסד הנתונים _____
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "Driver={Microsoft Access Driver (*.mdb)};" & _
"Dbq=C:\Inetpub\wwwroot\Gamerz\asp\club.mdb;" & _
"Uid=admin;" & _
"Pwd=;"
Set oClubRS = Server.CreateObject("ADODB.Recordset")
'_________________________________ ? מנוי קיים במסד הנתונים _____
sSQL = "SELECT * FROM tMembers WHERE sUserName = '"
sSQL = sSQL & sInsIdNr & "'"
Response.Write " SQL Query ===> " & sSQL
oClubRS.Open sSQL, oConn, 2, 2, 1
If oClubRS.EOF and oClubRS.BOF Then
'___________________________________ הוסף מנוי למסד הנתונים _____
oClubRS.AddNew
oClubRS.Fields("sFirstName").Value = Request.Form("firstName")
oClubRS.Fields("sLastName").Value = Request.Form("lastName")
oClubRS.Fields("sUserName").Value = Request.Form("userName")
oClubRS.Fields("sPassword").Value = Request.Form("password")
oClubRS.Fields("sEmail").Value = Request.Form("email")
oClubRS.Fields("sGender").Value = Request.Form("gender")
oClubRS.Fields("sCategory").Value = Request.Form("cat1")+" "+Request.Form("cat2")+" "+Request.Form("cat3")+" "+Request.Form("cat4")+" "+Request.Form("cat5")+" "+Request.Form("cat6")+" "+Request.Form("cat7")+" "+Request.Form("cat8")
oClubRS.Fields("sHours").Value = Request.Form("hours")
oClubRS.Fields("sSendEmail").Value = Request.Form("sendEmail")
oClubRS.Update - (פה הבעיה)
oClubRS.Close
Set oClubRS = Nothing
oConn.Close
Set oConn = Nothing
Application("counter") = Application("counter") + 1
Response.Write "<br /> אתה מבקר מספר: " & Application("counter")
Response.Write "<br /> הנתונים נרשמו בהצלחה במאגר הנתונים <br />"
Else
Response.Write sInsIdNr & ", "
Response.Write "אתה כבר רשום <br />"
End If
%>
<a href="Preface.HTML"><font color="white" size="4">לדף הבית </font></a>
<br/>
</body>
</html>
ראשי
צ'אט
16-06-2008, 14:34
מצב כלאיים
