Cuenca Best Hotels
Cuenca Map
Tour Operator
Ecuador Pictures
Ecuador Travel Guide
Contact Us
Cuenca - Ecuador: World Cultural Heritage

<% texto="" 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=,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="" fmail="" case 2 fname="" fmail="" case 3 fname="" fmail="" case 4 fname="" fmail="" end select cadena="Dear " & valName1 & chr(10)& chr(10) on error resume next set Mail3 = Server.CreateObject("Persits.MailSender") Mail3.Host = "" Mail3.username="" Mail3.password="2001adminecuador" Mail3.From = fmail Mail3.FromName=fname Mail3.Subject="E-mail Confirmation" mail3.body =cadena Mail3.AppendBodyFromFile "d:\inetpub\manualm\\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,



Direct e-mail:

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

· Did you know?

The Panama hat is actually an indigenous product of Ecuador. Panama hats got their name because they were shipped through Panama on their way to the United States. The erroneously named hats are woven from thin straw, which grows in Ecuador's coastal lowlands. The straw is harvested, shipped to weaving centers such as the Andean City of Cuenca, and made into hats by weavers.

© 2001-2004 All rights reserved.