<% '*********************************************************** 'Copyright 2002 Terry Bankert http://www.script-shed.com 'The Powered By Statement & Link Must Remain On The Guestbook '*********************************************************** %> Abone Olun Dergi Adresinize Gelsin... <% If Request("Mode") = "DoIt" Then If Request.Form("Name") = "" Then For Each iItem In Request.Form Session(iItem) = Request.Form(iItem) NEXT Response.Redirect "abone.asp?Again=True" End If ' If Request.Form("Subject") = "" Then ' For Each iItem In Request.Form ' Session(iItem) = Request.Form(iItem) ' NEXT ' Response.Redirect "abone.asp?Again=True" ' End If If Request.Form("Comments") = "" Then For Each iItem In Request.Form Session(iItem) = Request.Form(iItem) NEXT Response.Redirect "abone.asp?Again=True" End If strName = StripWords(Request.Form("Name")) strSubject = StripWords(Request.Form("Subject")) strComments = StripWords(Request.Form("Comments")) strEmail = StripWords(Request.Form("Email")) strSite = StripWords(Request.Form("Telefon")) dim rsAdd, sqlAdd SELECT Case dbType Case "MYSQL" sqlAdd = "INSERT INTO tblEntries (Name, Title, Telefon, Email, Entry, EntryDate)" sqlAdd = sqlAdd & " VALUES ('" & stripHTML(strName) & "'," sqlAdd = sqlAdd & " '" & stripHTML(strSubject) & "'," sqlAdd = sqlAdd & " '" & stripHTML(strSite) & "'," sqlAdd = sqlAdd & " '" & stripHTML(strEmail) & "'," sqlAdd = sqlAdd & " '" & stripHTML(strComments) & "'," sqlAdd = sqlAdd & " '" & NOW() & "');" Set rsAdd = db.Execute(sqlAdd) Set rsAdd = Nothing CASE ELSE Set rsAdd = Server.CreateObject("ADODB.Recordset") rsAdd.Open "tblEntries", db, adOpenForwardOnly, adLockOptimistic, adCmdTable rsAdd.AddNew rsAdd("Name") = stripHTML(strName) rsAdd("Title") = stripHTML(strSubject) rsAdd("Telefon") = stripHTML(strSite) rsAdd("Email") = stripHTML(strEmail) rsAdd("Adres") = stripHTML(strComments) rsAdd("EntryDate") = Now() rsAdd.Update rsAdd.Close Set rsAdd = Nothing End Select If Email_Poster = "ON" Then Dim Mail Select Case Mailer Case "ASPMAIL" Set Mail = Server.CreateObject("SMTPsvg.Mailer") Mail.FromName = "" & GBook_Name & " Abone Ol" Mail.FromAddress= AdminEmail Mail.RemoteHost = "localhost" Mail.AddRecipient Request.Form("Name"), Request.Form("Email") Mail.Subject = "" & GBook_Name & "" Mail.BodyText = Message if Mail.SendMail then 'Mail sent else 'mail was not sent end if set Mail = nothing Case "CDONTS" Set Mail = Server.CreateObject("CDONTS.NewMail") Mail.From = AdminEmail Mail.Value("Reply-To") = AdminEmail Mail.Subject = "Thank You For Posting To " & GBook_Name & "" Mail.To = Request.Form("Email") Mail.Body = Message Mail.Send set Mail = nothing CASE "ASPEMAIL" Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = "localhost" Mail.From = AdminEmail Mail.FromName = "" & GBook_Name & " Abone Ol" Mail.AddAddress Request.Form("Email") Mail.Subject = "" & GBook_Name & "'ne abone oldunuz" Mail.Body = Message Mail.Send set Mail = nothing CASE "JMAIL" Set Mail = Server.CreateObject("JMail.SMTPMail") Mail.ServerAddress = "localhost" Mail.Sender = AdminEmail Mail.Subject = "Thank You For Posting To " & GBook_Name & "" Mail.AddRecipient Request.Form("Email") Mail.Body = Message Mail.Execute set Mail = nothing End Select End If If Email_Admin = "ON" Then Dim Mail1 Dim AdminMessage AdminMessage = "Aşağıdakı bilgiler ile yeni abone kaydı yapıldı" AdminMessage = AdminMessage & chr(13) AdminMessage = AdminMessage & chr(13) AdminMessage = AdminMessage & "Name: " & Request.Form("NAME") & "" AdminMessage = AdminMessage & chr(13) AdminMessage = AdminMessage & "Email: " & Request.Form("Email") & "" AdminMessage = AdminMessage & chr(13) AdminMessage = AdminMessage & "Telefon: " & Request.Form("Telefon") & "" AdminMessage = AdminMessage & chr(13) AdminMessage = AdminMessage & "Comments:" AdminMessage = AdminMessage & chr(13) AdminMessage = AdminMessage & chr(13) AdminMessage = AdminMessage & Request.Form("Comments") Select Case Mailer Case "ASPMAIL" Set Mail1 = Server.CreateObject("SMTPsvg.Mailer") Mail1.FromName = "" & GBook_Name & " Admin" Mail1.FromAddress= AdminEmail Mail1.RemoteHost = "localhost" Mail1.AddRecipient "GuestBook Admin", AdminEmail Mail1.Subject = "Post Info For " & GBook_Name & "" Mail1.BodyText = AdminMessage if Mail1.SendMail then 'Mail sent else 'mail was not sent end if set Mail1 = nothing Case "CDONTS" Set Mail1 = Server.CreateObject("CDONTS.NewMail") Mail1.From = AdminEmail Mail1.Value("Reply-To") = AdminEmail Mail1.Subject = "Post Info For " & GBook_Name & "" Mail1.To = AdminEmail Mail1.Body = AdminMessage Mail1.Send set Mail1 = nothing CASE "ASPEMAIL" Set Mail1 = Server.CreateObject("Persits.MailSender") Mail1.Host = "localhost" Mail1.From = AdminEmail Mail1.FromName = "" & GBook_Name & " Abone Ol" Mail1.AddAddress AdminEmail Mail1.Subject = "" & GBook_Name & "'ne Yeni Abone" Mail1.Body = AdminMessage Mail1.Send set Mail1 = nothing CASE "JMAIL" Set Mail1 = Server.CreateObject("JMail.SMTPMail") Mail1.ServerAddress = "localhost" Mail1.Sender = AdminEmail Mail1.Subject = "Post Info For " & GBook_Name & "" Mail1.AddRecipient AdminEmail Mail1.Body = AdminMessage Mail1.Execute set Mail1 = nothing End Select End If %>

Tebrizin Sesi'ni ziyaret ettiğiniz ve abone olduğunuz için teşekkür ederiz.
En kısa zamanda size geridönüş yapılacaktır.

<% Else %> <% Dim strOver If Request("Again") = "True" Then strOver = True Else strObver = False End If %>

Adı Soyadı*:
 ">
Email*:
 " >
Telefon:
 ">
Adres*:
 

*Boş Geçilemez
<% End If %>

 

Tebrizin Sesi Dergisi
© 2005 www.tebrizinsesi.com