" & chr(13) &_
"I am " & LeadCategory & " " & chr(13) &_
"Trip Name: " & CruiseName & " " & chr(13) &_
"Preferred dates: " & CruiseDate & " " & chr(13) &_
"Approx Budget: " & budget & " " & chr(13) &_
Query
Function NewID2(tb, ec)
tmpID = 1
Set objRS = server.CreateObject("ADODB.Recordset")
objRS.ActiveConnection = objConn
objRS.LockType = 1
objRS.CursorType = 1
sqlNewSel = "SELECT MAX(" & ec & "_ID_" & tb & ") as NEW_ID FROM " & tb
objRS.open sqlNewSel
While Not objRS.EOF
tmpID = objRS("NEW_ID")
if isNull(tmpID) then
tmpID = 0
end if
objRS.MoveNext()
Wend
objRS.Close
NewID2 = trim(tmpID)
End Function
Function ExeMySQL(cSQL1, cSQL2, tab, enc)
On Error Resume Next
nid = 0
sConnection = "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=mysql1012.ixwebhosting.com; " &_
"DATABASE=C308039_victorymysql; UID=C308039_admin;PASSWORD=Dar05ab3; OPTION=3"
objConn.open sConnection
Set errors = objConn.Errors
objConn.BeginTrans
if tab = "" then
cadSQL = cSQL1 & cSQL2
else
nid = NewID2(tab, enc) + 1
cadSQL = cSQL1 & nid & cSQL2
end if
'response.Write(" " & cadSQL & " ")
objConn.execute cadSQL
if errors.count > 0 then
objConn.RollBackTrans
ExeMySQL = -1
Else
objConn.CommitTrans
ExeMySQL = nid
End If
objConn.close
End Function
function Cemail(emailRem)
punto = false
dbg=emailRem & " "
cpda = 0
ca = 0
Cemail = "Ok"
largo = len(emailRem)
if largo < 6 then
Cemail = "Menor que seis"
else
for x = 1 to largo
car = mid(emailRem, x, 1)
if asc(car) = 64 and x > 1 then
ca =ca + 1
' punto = false
else
if asc(car) > 47 and asc(car) < 58 then
' punto = false
else
if asc(car) > 64 and asc(car) < 91 then
' punto = false
else
if asc(car) > 96 and asc(car) < 123 then
' punto = false
else
if asc(car) = 95 or asc(car) = 45 then
' punto = false
else
if asc(car) = 46 then
punto = true
else
Cemail="Caracter no Valido " & car
end if
end if
end if
end if
end if
end if
if ca = 1 and asc(car) = 46 then
cpda = cpda + 1
end if
next
end if
if not ca = 1 then
Cemail = "No hay Arroba"
end if
if cpda = 0 then
Cemail = "No hay Puntos despues de la arroba"
end if
end function
Function cn(valor)
tcn=""
if valor = "" or valor = null Then
cn=0
Else
If IsNumeric(Valor) Then
cn=Valor
Else
largo=len(valor)
For x = 1 to largo
if IsNumeric(mid(valor,x,1)) then
tcn = tcn & mid(valor,x,1)
End if
Next
cn = int(tcn)
End If
End if
End Function
if FullName = "" then
errs = errs & "
Full Name is Missing
"
end if
if email = "" then
errs = errs & "
email is Missing
"
end if
tmp=Cemail(email)
if tmp <> "Ok" then
errs = errs & "
mail " & email & " is incorrect, " & tmp & "
"
end if
if errs = "" and complete = 1 then
if len(prev_url) > 10 then
asunto = title1 & ", " & FullName
'----------------------------------------
Dim sch, cdoConfig, cdoMessage
sch = "http://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig = CreateObject("CDO.Configuration")
With cdoConfig.Fields
'Set CDO Port
.Item(sch & "sendusing") = 2
'Set mailserver name either IP address, mail.yoursite.com or localhost
.Item(sch & "smtpserver") = "localhost"
'Set SMTP port which is 25 by default
.Item(sch & "smtpserverport") = 25
'Set number of seconds before timeout
.Item(sch & "smtpconnectiontimeout") = 60
.update
End With
Set cdoMessage = CreateObject("CDO.Message")
With cdoMessage
Set .Configuration = cdoConfig
.From = email
.To = "sailing@victory-cruises.com"
.Subject = asunto
'Send the email in HTML format
.HTMLBody = "" & mensaje & ""
.Send
End With
If Err <> 0 Then
Response.Write "Error encountered: " & Err.Description
End If
Set cdoMessage = Nothing
Set cdoConfig = Nothing
opcion=1
else
opcion=2
end if
guardar=true
else
if complete <> 1 then
errs = ""
guardar=false
else
guardar=true
end if
opcion=3
end if
%>
Victory Adventure Expeditions - Query Form
<%
if guardar then
' On Error Resume Next
visit=0
if isEmpty(Session("v")) then
visit=0
else
visit = Session("v")
end if
cad1="INSERT INTO MENSAJE (MN_ID_MENSAJE, MN_ID_VISITA, MN_EMAIL, MN_NOMBRE, MN_CRUISE_NAME, " & _
"MN_CRUISE_DATE, MN_TELEFONO, MN_MENSAJE, MN_PREV_PAG, MN_FECHA, MN_COUNTRY, MN_OFFERS) VALUES ("
cad2=", " & visit & ", '" & cc(email) & "', '" & cc(FullName) & "', '" & cc(CruiseName) & "', '" & _
cc(CruiseDate) & "', '" & cc(TelNo) & "', '" & cc(mensaje) & "', '" & cc(prev_url) & "','" & Now() & "','" & _
Country & "', " & sub_offers & ")"
ExeSQL cad1, cad2, "MENSAJE", "MN"
if sub_offers = 1 then
cad1b="INSERT INTO client (CLI_ID_CLIENT, CLI_NAME, CLI_EMAIL, CLI_FONO, CLI_COUNTRY, CLI_STATUS) VALUES ("
cad2b=", '" & cc(FullName) & "', '" & cc(email) & "', '" & cc(TelNo) & "', '" & Country & "' , 'V')"
ExeMySQL cad1b, cad2b, "client", "CLI"
end if
end if
if opcion = 3 then
%>
<%= errs%>
<%
else
%>
Thank you very much for your Inquiry.
Your message from
<% = email %>
is being processed and you will receive an answer soon.
We will do everything possible to make your voyage 100% enjoyable and to give you continued good service.