Boghjalian Konak Online Rezervation Form

<% @Language="VBScript" CodePage="1254" %> <% Server.ScriptTimeOut=300 %> <% Response.Buffer = TRUE %> <% '- ASPPLUS.Net Webmesaj Formu ------------------------------------------------- ASPPLUS_msg=REQUEST("ASPPLUS_msg") email=REQUEST("email") konu="Rezervasyon" If Request ("ASPPLUSASP") = "Yolla" Then CALL Webmail Else End if '------------------------------------------------------------------------------ SUB Webmail sid=Trim(Request("sid")) IF sid <> Session.SessionID THEN Response.Write "# Uyarı : SessionID Value is not Valid !" Response.Write "--------------------------------------------------------------------------------" Response.Write "Please Try againg to access this Form !" Response.End END IF '----------------------------------------------------------------------------------------------------------------------------- If REQUEST("adsoyad")="" or len(REQUEST("adsoyad"))<3 or len(REQUEST("adsoyad"))>50 Then ASPPLUS_msg= "Warning: Please fill in Your Name and Surname ! ( Minimum 3 , MAx. 50 Characters )" Else '-------------------------------------------------------------------------- If Len(email) < 5 Then bIsValid = "False" Else If Instr(1, email, " ") <> 0 Then bIsValid = "False" Else If InStr(1, email, "@", 1) < 2 Then bIsValid = "False" Else If InStrRev(email, ".") < InStr(1, email, "@", 1) + 2 Then bIsValid = "False" End If End If End If End If IF bIsValid = "False" THEN ASPPLUS_msg= "Warning: Please write a Valid email address !" Else '-------------------------------------------------------------------------- If not REQUEST("telefon")="" and not IsNumeric(REQUEST("telefon")) Then ASPPLUS_msg= "Warning: Please write your Telephone NUMBER !" Else '-------------------------------------------------------------------------- If REQUEST("mesaj_mail")="" or len(REQUEST("mesaj_mail"))<3 or len(REQUEST("mesaj_mail"))>3000 Then ASPPLUS_msg= "WARNING: Please fill in the area reserved for your requirements! ( Min. 3 and Max.3000 Characters )" Else '-------------------------------------------------------------------------- If Session("ASPPLUSGuvenlik")=TRUE Then ASPPLUS_msg= "Warning : Webmail Flood Protection !" Else '----------------------------------------------------------------------------------------------------------------------------- ip = Request.ServerVariables("REMOTE_ADDR") '----------------------------------------------------------------------------------------------------------------------------- ASPPLUS_MyBody = " Reservation Form" & vbCrLf ASPPLUS_MyBody = " Subject: "&konu & vbCrLf ASPPLUS_MyBody = ASPPLUS_MyBody & "----------------------------------------------------------" & vbCrLf ASPPLUS_MyBody = ASPPLUS_MyBody & " # Mesaj: " & Request("mesaj_mail") & vbCrLf ASPPLUS_MyBody = ASPPLUS_MyBody & "----------------------------------------------------------" & vbCrLf ASPPLUS_MyBody = ASPPLUS_MyBody & " # Ad Soyad: " & Request("adsoyad") & vbCrLf ASPPLUS_MyBody = ASPPLUS_MyBody & " # E-Posta: " & Request("email") & vbCrLf ASPPLUS_MyBody = ASPPLUS_MyBody & " # Rezervasyon Yeri: " & Request("Area") & vbCrLf ASPPLUS_MyBody = ASPPLUS_MyBody & " # Rezervasyon Sayısı(Kişi): " & Request("howmany") & vbCrLf ASPPLUS_MyBody = ASPPLUS_MyBody & " # Rezervasyon Günü: " & Request("Day") & vbCrLf ASPPLUS_MyBody = ASPPLUS_MyBody & " # Rezervasyon Ayı: " & Request("Month") & vbCrLf ASPPLUS_MyBody = ASPPLUS_MyBody & " # Rezervasyon Saati: " & Request("Time") & vbCrLf ASPPLUS_MyBody = ASPPLUS_MyBody & " # Telefon: " & Request("telefon") & vbCrLf ASPPLUS_MyBody = ASPPLUS_MyBody & "----------------------------------------------------------" & vbCrLf ASPPLUS_MyBody = ASPPLUS_MyBody & " # IP: " & ip & vbCrLf ASPPLUS_MyBody = ASPPLUS_MyBody & "----------------------------------------------------------" & vbCrLf ASPPLUS_MyBody = ASPPLUS_MyBody & "Boghjalian Konak Restaurant, Online Rezervasyon Sistemi" & vbCrLf '----------------------------------------------------------------------------------------------------------------------------- Const cdoSendUsingMethod = _ "http://schemas.microsoft.com/cdo/configuration/sendusing" Const cdoSendUsingPort = 2 Const cdoSMTPServer = _ "http://schemas.microsoft.com/cdo/configuration/smtpserver" Const cdoSMTPServerPort = _ "http://schemas.microsoft.com/cdo/configuration/smtpserverport" Const cdoSMTPConnectionTimeout = _ "http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout" Const cdoSMTPAuthenticate = _ "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate" Const cdoBasic = 1 Const cdoSendUserName = _ "http://schemas.microsoft.com/cdo/configuration/sendusername" Const cdoSendPassword = _ "http://schemas.microsoft.com/cdo/configuration/sendpassword" Dim objConfig ' As CDO.Configuration Dim objMessage ' As CDO.Message Dim Fields ' As ADODB.Fields Set objConfig = Server.CreateObject("CDO.Configuration") Set Fields = objConfig.Fields With Fields .Item(cdoSendUsingMethod) = cdoSendUsingPort .Item(cdoSMTPServer) = "mail.boghjalian.com" '-Mail server adresiniz ! /////////////////////////////////// .Item(cdoSMTPServerPort) = 25 .Item(cdoSMTPConnectionTimeout) = 10 .Item(cdoSMTPAuthenticate) = cdoBasic .Item(cdoSendUserName) = "zihni@boghjalian.com" '-Mail kullanıcı adınız ! /////////////////////////////////// .Item(cdoSendPassword) = "bkonak" '-Mail parolanız ! ////////////////////////////////////////// .Update End With '----------------------------------------------------------------------------------------------------------------------------- Set objMessage = Server.CreateObject("CDO.Message") Set objMessage.Configuration = objConfig With objMessage .To = "zihni@boghjalian.com" '-Serverınıza ait e-mail adresi (ÖNEMLİ) ! /////////////////////////////////// .From = email .Subject = konu .TextBody = ASPPLUS_MyBody .Send End With Set Fields = Nothing Set objMessage = Nothing Set objConfig = Nothing '----------------------------------------------------------------------------------------------------------------------------- ASPPLUS_msg= " Thanks, your reservations have been done, You'll be called on your telephone, you have written." Session("ASPPLUSGuvenlik")=TRUE Set objMailASPPLUS = Nothing '----------------------------------------------------------------------------------------------------------------------------- End If End If End If End If End If '----------------------------------------------------------------------------------------------------------------------------- End SUB %> Boghjalian Konak Online Rezervation Form

Boghjalian Reservation Form

<%=ASPPLUS_msg%>

Name-Surname :	"> *
E-Posta :	"> *
Prefered Area :
Day :
Month :
Time :
Telephone :	" maxlength="11">
How many Person:	">
Requirements for Reservation :	*
Karakter Sayısı :

<%Response.Redirect "close.asp"%><%End If %> onClick="javascript:this.disabled=disabled;return true;">

( * ) Must be filled in.