|
|
<%
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%>
<%end if%>
|
Ecuador
Tours
Ecuador-Pictures
About
Us
Contact
Us
