HOME
  Search EcuadorToursOnLineEcuador Tours Ecuador PicturesEcuador-Pictures About  Ecuador-Travel-GuideAbout Us Contact UsContact Us
Visas
Economy
Money Matter
What Things Cost in Ecuador
Travelling in Ecuador
Packing List

 

<% texto="Ecuador-Travel-Guide.org" op= request.querystring("op") if op="s" then 'Nicio de guardar 'Guarda Informacion '----------------------------------------------- If IsObject(Session("ecuadortoursonline")) Then Set conn = Session("ecuadortoursonline") Else set conn = Server.CreateObject("ADODB.Connection") conn.Open "Provider=sqloledb;" & "Network Library=DBMSSOCN;" & "Data Source=65.17.229.1,1433;" & "Initial Catalog=ecuadortoursonline;" & "User ID=etol;" & "Password=1etol99" Set Session("ecuadortoursonline") = conn End If '------------------------------------------------ if not request.form("r1")="" then valName=replace(trim(Request.Form("FirstName")),"'","´") valName1=valName valEmail=replace(trim(Request.Form("Email")),"'","´") valEmail1=valEmail valphone1=replace(trim(Request.Form("phone1")),"'","´") valdestino= Request.Form("r1") valoption=Request.Form("response") destino=replace(destino," ","%20") valcomments=replace(Request.Form("specialcomments"),"'","´") if not isempty(session("location")) then valcomments="[" & session("location") & "] " & valcomments end if If Len(valName)=0 Then valName="'Empty'" Else valName="'" + valName + "'" End If If Len(valEmail)=0 Then valEmail="'Empty'" Else valEmail="'" + valEmail + "'" End If If Len(valcomments)=0 Then valcomments="----" Else valcomments=valcomments End If If Len(phone1)=0 Then valphone1="'Empty'" Else valphone1="'" + valphone1 + "'" End If cambio=1 SQLstring= "INSERT INTO requester(FirstName,Email,printvar,phone1) VALUES ("+valName+","+valEmail+","& cambio & "," & valphone1 & " )" Set RSCustomerList = conn.Execute(SQLstring) cadena="select max(codrequester) from requester" set rs11=conn.execute(cadena) tipomail="DirectMail" vartemp=rs11(0) SQLstring2= "INSERT INTO requestservice (codrequester,place,name,comment1) VALUES ("& vartemp & ",4,'" & tipomail & "'," & "'" & texto & ":" & valcomments & "'" & ")" Set RSCustomerList1 = conn.Execute(SQLstring2) '////////////////////////////////////////////// '-----Codigo para autoresponders select case valdestino case 1 fname="EcuadorToursOnline.com." fmail="Bookings@ecuadortoursonline.com" case 2 fname="EcuadorToursOnline.com." fmail="operations@ecuadortoursonline.com" case 3 fname="EcuadorToursOnline.com." fmail="infotours@ecuadortoursonline.com" case 4 fname="EcuadorToursOnline.com." fmail="management@ecuadortoursonline.com" end select cadena="Dear " & valName1 & chr(10)& chr(10) on error resume next 'set Mail3 = Server.CreateObject("Persits.MailSender") 'Mail3.Host = "66.40.136.210" 'Mail3.username="webmaster@ecuadortoursonline.com" 'Mail3.password="2001adminecuador" 'Mail3.From = fmail 'Mail3.FromName=fname 'Mail3.Subject="E-mail Confirmation" 'mail3.body =cadena 'Mail3.AppendBodyFromFile "d:\inetpub\manualm\ecuadortoursonline.com\autoemail.txt" 'Mail3.IsHTML = false 'Mail3.AddAddress valEmail1 'on error resume next 'Mail3.SendToQueue 'on error goto 0 '///////////////////////////////////////////// end if %>
Thank you for visiting us.


All your information has been received properly and
we will answer your requests shortly .

 

Best Regards,

<%=texto%>

<%else%>

Direct e-mail:

Your full name:
Your e-mail:
Phone:
Deliver to: Reservations Tours information
Operations Management
Priority: Standard Urgent
Message:
<%end if%>

© 2001-2003 Ecuador-Travel-Guide.org. All rights reserved.
This site is a contribution of EcuadorToursOnLine.com