Quito Hotels Guayaquil Hotels Cuenca Hotels
Ecuadorian Tour Operator Ecuador Travel Guide
Ecuador Pictures
Contact Us Recommended Links Search

Quito Hotels

Guayaquil Hotels


 Cuenca Hotels
<% texto="Ecuador-Hotels.net" 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-Hotels.net. All rights reserved.