<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
dim conteudo
dim email_a_enviar
%>
<%
conteudo = "
Pedido de Reserva On-Line
Nome
" & request("nome") & "
Telefone
" & request("telefone") & "
Email
" & request("email") & "
Check-In
" & request("in") & "
Check-Out
" & request("out") & "
Observações
" & request("obs") & "
Mensagem enviada em " & date & " às " & hour(time) + 5 & ":" & minute(time) & " de " & request.servervariables("remote_addr") & "
"
%>
<%
function ConvertHex(sHexString)
' Create a DictHex
Dim DictHex
Set DictHex = CreateObject("Scripting.Dictionary")
Dim cCount1, sTmpChar1, sTmpChar2, sTmpChar3, sTmpString
Dim sUnhexChar, sUnhexString
For cCount = 1 to 255
' key is hex
' value is decimal
DictHex.Add Hex(cCount), CStr(cCount)
Next
' Now convert the hex value
for cCount = 0 to Len(sHexString) - 1
sTmpChar1 = Mid(sHexString, cCount+1, 1)
if (sTmpChar1 = "%" and _
sCount < Len(sHexString) - 2) then 'skip situation like ccc% or ccc%l
sTmpChar2 = Mid(sHexString, cCount+2, 1)
if (Not isNumeric(sTmpChar2)) then
sTmpChar2 = UCase(sTmpChar2)
end if
sTmpChar3 = Mid(sHexString, cCount+3, 1)
if (Not isNumeric(sTmpChar3)) then
sTmpChar3 = UCase(sTmpChar3)
end if
sTmpString = sTmpChar2 & sTmpChar3
cCount = cCount + 2
sUnhexChar = Chr(DictHex(sTmpString))
sUnhexString = sUnhexString + Chr(DictHex.Item(sTmpString))
else
sUnhexString = sUnhexString + sTmpChar1
end if
next
ConvertHex = sUnhexString
end function
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
rem change this RemoteHost to a valid SMTP address before testing
Mailer.RemoteHost = "209.161.98.9"
Mailer.ContentType = "text/html"
Mailer.FromName = "Site Casa da Faja"
Mailer.FromAddress = "root@casadafaja.com"
Mailer.AddRecipient "Casa da Faja", "mail@casadafaja.com"
Mailer.AddRecipient "webmaster", "hmt@imaginew.pt"
Mailer.Subject = "Pedido de Reserva"
Mailer.BodyText = "" & conteudo & " "
response.write Mailer.SendMail
%>
<%
Set Mailer2 = Server.CreateObject("SMTPsvg.Mailer")
Mailer2.RemoteHost = "209.161.98.9"
Mailer2.ContentType = "text/html"
Mailer2.FromName = "Site Casa da Faja"
Mailer2.FromAddress = "mail@casadafaja.com"
Mailer2.AddRecipient request("nome"), request("email")
Mailer2.Subject = "Pedido de Reserva"
Mailer2.BodyText = "
