<html dir="rtl">
<body>
<head>
<title>הרשמה</title>
<meta http-equiv="content-type"
content="text/html;charset=windows-1255" />
</head><%
f = Request.form("nick")
p = Request.form("pass")
s =Request.form("sex1")
e =Request.form("email")
%>
<% If f="" OR p="" OR s="" OR e="" Then %>
עליך למלא את כל הפרטים אם ברצונך להירשם.
<br>
<a href="http://www11.asphost4free.com/aviad/reg.html">חזוור לדף ההרשמה</a>
<% Else %>
<%
Set oConn = Server.CreateObject("ADODB.Connection")
Set tableRs=Server.CreateObject("ADODB.Recordset")
oConn.Open "Driver={Microsoft Access Driver (*.mdb)};" & _
"Dbq= D:\content\users1\aviad\db\rishum.mdb;" & _
"Uid=admin;" & _
"Pwd=;"
mySql= "Select * From table1"
tableRs.Open mySql, oConn,3,3
id= tableRs.recordcount+1
mySQL = "Insert Into table1(fname,dpass,sex,email,id) values('"&f&"','"&p&"','"&s&"','"&e&"','"&id&"')"
oConn.Execute(mySQL)
tableRs.Close
oConn.Close
Set tableRs=nothing
Set oConn= nothing
%>
<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="נרשמת בהצלחה לטור-אייאל"
myMail.From="[email protected]"
myMail.To=e
myMail.HTMLBody = "<h1>נרשמת בהצלחה לטור אייאל</h1><br><u>פרטי התחברות:</u><br>שם משתמש:" & f & "<br> סיסמה: " & p & "<br>"
myMail.Send
set myMail=nothing
%>
ההרשמה התבצעה בהצלחה.
<br>
כעת תוכל להתחבר למשתמש שלך.
<br>
<a href="http://www11.asphost4free.com/aviad/login.html">לחץ כאן על מנת להיכנס לטופס ההתחברות</a>
<% End If %>
</body>
</html>
גירסת הדפסה
סגן המנהל
מפקח
Winner
צל"ש
מומחה
