<%@ language="VBSCRIPT" %> <% IF Session("LanguageId")="" Then CurrentLanguage=1 CurrentLanguageName="English" Else CurrentLanguage=Session("LanguageId") CurrentLanguageName=Session("LanguageName") End IF Function RemoveHTML( strText ) Dim RegEx Set RegEx = New RegExp RegEx.Pattern = "<[^>]*>" RegEx.Global = True RemoveHTML = RegEx.Replace(strText, NoOfChar) End Function Function SummarySplit( strText,NoOfChar ) Str=Left(RemoveHTML(strText),NoOfChar) LastSpacePosition=InStrRev(Str," ") SummarySplit=Left(Str,LastSpacePosition) End Function Function related_tours(ID) sql="SELECT Top 4 Tours.LanguageId, Tours.name,Tours.PageName, ToursCategories.ToursCategoryId FROM ToursCategories INNER JOIN Tours ON ToursCategories.ToursCategoryId = Tours.ToursCategoryId Where Tours.LanguageId="&CurrentLanguage&" And ToursCategories.ToursCategoryId="&ID&" " 'response.Write sql rs.open sql,conn,3 IF Not rs.Eof Then x=1 Do While Not rs.Eof response.Write(""&x&"-"& rs("name")&"
") x=x+1 rs.MoveNext Loop Else 'Response.Write("

No Tours Categories

") End IF rs.Close End Function %> <% '************************************************************************************************************************' '******************************************* Please don't change this section *******************************************' '************************************************************************************************************************' set conn=server.CreateObject ("adodb.connection") conn.Open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("/admin/Marvelous-Egypt.mdb") set rs=server.CreateObject ("adodb.recordset") set qrs=server.CreateObject ("adodb.recordset") set mrs=server.CreateObject ("adodb.recordset") '************************************************************************************************************************' '************************************************************************************************************************' Sub closeDbconn() if isobject(conn) then if conn.State = adStateOpen then conn.Close end if set conn = nothing end if End sub %> <% BookType=Request.Form("BookType") Select Case lCase(BookType) Case "hotel" TableName="Hotels" currentIdtxt="hotelid" currentId=Request.Form("hotelid") Case "cruise" TableName="Cruises" currentIdtxt="Cruiseid" currentId=Request.Form("Cruiseid") Case "tour" TableName="Tours" currentIdtxt="tourid" currentId=Request.Form("tourid") End Select SQL="Select * From "&TableName&" Where "¤tIdtxt&"="¤tId&" " 'Response.Write(sql) Rs.Open SQL,conn,3 IF Rs.Eof Then Response.Redirect("default.asp") Else currentName=Rs("name") End IF Rs.Close msg =" "&_ " "&_ " "&_ " "&_ " "&_ " "&_ " "&_ " "&_ " "&_ " "&_ " "&_ " "&_ " "&_ " "&_ " "&_ " "&_ " "&_ " "&_ " "&_ " "&_ " "&_ " "&_ " "&_ " "&_ " "&_ " "&_ " "&_ " "&_ " "&_ " "&_ " "&_ " "&_ " "&_ " "&_ " "&_ " "&_ " "&_ " "&_ " "&_ " "&_ "
"&_ " Egypt Package Reservation Form :

Tour Name: ( "&CurrentName&" ) :

Name"&Request.Form("name")&"
Phone"&Request.Form("phone")&"
Fax"&Request.Form("fax")&"
Email Address"&Request.Form("email")&"
Nationality"&Request.Form("Country")&"
Start Date"&Request.Form("StartDate")&"
End Date"&Request.Form("EndDate")&"
No. of Travelers"&Request.Form("Travelers")&"
More Information"&Request.Form("RequestDescription")&"
" 'Response.Write msg 'SET Mail = Server.CreateObject("CDONTS.NewMail") ' Mail.From = Request("name") & " <" & Request("email") & ">" ' 'Mail.To = "marvelousegypttravel@yahoo.com" ' Mail.To = "info@met.travel" ' Mail.Subject = currentName &" ("& BookType&" booking)" ' Mail.BodyFormat =0 ' Mail.MailFormat =0 ' Mail.Body = msg ' strErr = "" ' On Error Resume Next ' catch errors ' Mail.Send ' send message ' If Err <> 0 Then ' error occurred ' strErr = Err.Description ' Response.Write strErr ' else ' bSuccess = True ' Response.Write("

Thank you

") ' End If ' set mail=nothing strMailServer="mail.marvelousegypttravel.com" strMailServerUser="mailsys@marvelousegypttravel.com" strMailServerPass="google@1234" strWebsiteEmailAddress= Request("email") strWebsiteName= Request("name") strEmailAddress= "info@marvelousegypttravel.com" strEmailAddressBcc="Monitor@egyptwebsolutions.com" 'info@met.travel strSubject= currentName &" ("& BookType&" booking)" strEmailBody=msg Dim objAspEmail Set objAspEmail = Server.CreateObject("Persits.MailSender") With objAspEmail 'Out going SMTP mail server address .Host = strMailServer 'SMTP server username and password .Username = strMailServerUser .Password = strMailServerPass 'Who the e-mail is from .From = strWebsiteEmailAddress .FromName = strWebsiteName 'Who the e-mail is sent to .AddAddress strEmailAddress .AddBcc strEmailAddressBcc 'The subject of the e-mail .Subject = strSubject 'The main body of the e-mail .Body = strEmailBody '& strAppendToEmail .IsHTML = True strErr = "" ' On Error Resume Next ' catch errors .Send 'Send the e-mail If Err <> 0 Then ' error occurred strErr = Err.Description Response.Write strErr else bSuccess = True Response.Write("

Thank you

") End If End With 'Close the server mail object Set objAspEmail = Nothing 'If Request("Optionaltour")="ON" Then ' Optional Tour Booking ' response.redirect ("Optional_tours.asp") 'elseIF Request("ex_id")<>"" Then ' Excursion Booking ' response.redirect ("Excursions.asp") 'Else response.redirect ("booking.asp?BookType="&BookType&"&done=1&"¤tIdtxt&"=" ¤tId ) 'End IF %>