<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
if Request.Form("FFSubmitted") = "yes" then
Dim BodyString
Dim objCDO
Dim RedirectURL
Dim FormFields
Dim arrFormFields
FormFields = "Empresa~Contacto~Cargo~Email~Direccion~Telefono~Mensaje"
If FormFields <> "" Then
arrFormFields = split(FormFields,"~")
End If
Set objCDO = Server.CreateObject("CDONTS.NewMail")
objCDO.From = "webinfo@webdesign.com.py"
objCDO.To = "tafecyt@rieder.net.py; clubimpo@tafecyt.edu.py; info@tafecyt.edu.py; lorenzo.machuca@outlook.com; seminariotafecyt.py@gmail.com; lisaflecha@gmail.com"
objCDO.Cc = "seminariotafecyt.py@gmail.com"
objCDO.Bcc = "lisa@webdesign.com.py"
objCDO.Subject = "Presupuesto In Company TAFECyT"
BodyString = Replace("Presupuesto In Company TAFECyT~*****************************************","~",chr(13) & chr(10) )& chr(13)
If FormFields <> "" Then
For Each item In arrFormFields
BodyString = BodyString & item & ": " & Request.Form(item) & chr(13)
Next
End If
objCDO.Body = BodyString
objCDO.BodyFormat = 1
objCDO.MailFormat = 1
objCDO.Send
Set objCDO = Nothing
RedirectURL = "contactos_respon.asp"
If RedirectURL <> "" then
If Request.QueryString <> "" Then
response.redirect(RedirectURL & "?" & Request.QueryString)
else
response.redirect(RedirectURL)
end If
end if
end if
%>
Documento sin título