<%@ Language=VBScript @ENABLESESSIONSTATE=FALSE%> <% If Request.Cookies("who") = "signedalready" Then response.redirect("guestbookview.asp") else If Request.QueryString("action") <> "add" AND Request.QueryString("error") <> "TRUE" Then %>
توقيع كتاب الزوار

الاسم:            

البريد الإلكتروني: 

موقع الإنترنت:   
التعليق:

عاصمة فلسطين:

> >          


<% end if%> <% ''''there it goes If Request.QueryString("action") = "add" Then Dim oConn, oRS,sSQL, Name, Email,WebSite,Comments,visitDate,approved, bg,ConnString,asima,entrygood Name = Trim(Request.Form("Name")) Email = Trim(Request.Form("Email")) WebSite= Trim(Request.Form("WebSite")) Comments = Trim(Request.Form("Comments")) asima= Trim(Request.Form("asima")) visitDate=date() ip_address=Request.ServerVariables("REMOTE_ADDR") approved = Trim(Request.Form("approved")) if Request.Form("name")="" then response.Write("تحتج اسما ") ELSE if Request.Form("asima")<>"القدس" then entrygood="false" response.Write("نسيت اسم العاصمة") else 'create connection object Set oConn = Server.CreateObject("ADODB.Connection") 'create database connection type and path ConnString = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("..\database\mydb.mdb") '"\database\mydb.mdb" 'open connection with database oConn.open(ConnString) 'create record set object 'Set oRS = Server.CreateObject("ADODB.Recordset") sSQL="INSERT INTO Guestbook (Name, WebSite, Email, Comments,ip_address, visitDate,approved) VALUES('"&Request.Form("Name")&"','"&Request.Form("WebSite")&"','"&Request.Form("Email")&"','"&Request.Form("Comments")&"',' "&ip_address&"','"&visitDate&"','"&Request.Form("approved")&"')" 'excute sql entrygood="true" if Request.Form("Email")<>"" then Dim objEmail Set objEmail = Server.CreateObject("Persits.MailSender") objEmail.Username = "webmaster@beitreema.com" objEmail.Password = "hala_natalie" objEmail.Host = "mail.beitreema.com" objEmail.From = "webmaster@beitreema.com" objEmail.AddAddress "rimawi@hotmail.com" objEmail.Subject = "Test message sent using the ASPEMail component" objEmail.Body = "someonesigned." objEmail.Send Set objEmail = Nothing end if oConn.Execute(sSQL) 'close record set 'oRS.Close 'destroy 'Set oRS = Nothing 'close connection oConn.Close 'destroy Set oConn = Nothing ' Response.Write(sSQL) %>
<% response.Write("شكرا على توقيع كتاب الزوار")%>

<% response.Write ("") response.Write ("") response.Write ("
مشاهده دفتر الزوار الرئسية
بسبب بعض المداخلات الغير لائقه : يجب موفقه الادارة على ما كتب .... وستظهر كل المشاركات بعد 24 ساعة ... شكرا على المشاركة
Due to spam no entry will be accepted without admin approval
") Response.Cookies("who") = "signedalready" Response.Cookies("who").Expires = Now() + 365 END IF END IF end if END IF %>