|
|
|
<%
if(hacer="CONTACTAR") then
cBody = "Estimados Señores de TEMPOREX:"&VbCrLf&"Nombre: "& nombre & VbCrLf & "Mail: "&mail& VbCrLf & "Ciudad: "&ciudad&""&VbCrLf&"Telefono: "&telefono&""&VbCrLf&"Consulta:"&VbCrLf&""&consulta&" "
Set oCDO = Server.CreateObject("CDO.Message")
'Asignamos las propiedades al objeto
oCDO.From = mail
oCDO.To = "pmoncayo@temporex.com.ec ; aarriagada@temporex.com.ec ; roberto@temporex.com.ec"
oCDO.Subject = cSubject
oCDO.TextBody = cBody
if(tema="legal") then
oCDO.Cc = "roberto@temporex.com.ec"
'oCDO.Bcc = "lcevallos@ech.com.ec"
end if
'oCDO.BodyFormat=0
'oCDO.MailFormat = 0
oCDO.Send
Set oCDO = Nothing 'Liberar...
'Mostramos mensaje de que se envió con éxito.
Response.Buffer = true
dim cnn,rst
' Creamos la conexión a la base de datos sin DSN
'set cnn = Server.CreateObject("ADODB.Connection")
'set rst = Server.CreateObject("ADODB.RecordSet")
'cnn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("comapnias.mdb")
'cnn.Open("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" + Server.MapPath("access_db\sgc.mdb"))
'sqltext = "SELECT * FROM consulta"
'rst.Open sqltext,cnn,3,3
'rst.AddNew
'rst("via") = "web"
'rst("recibe") = 4
'rst("responde") = 3
'rst("nombre") = nombre
'rst("mail") = mail
'rst("telefono") = telefono
'rst("fecha") = fecha
'rst("tipo") = tema
'rst("consulta") = consulta
'rst("afiliado") = afiliado
'rst.update
end if
%>
|
|
