 |
|
| |
<%
A = Request.Form("txt1")
B = Request.Form("txt2")
C = Request.Form("txt3")
D = Request.Form("txt4")
cmd = Request.Form("submit")
msg = ""
if cmd<>"" then
SQL = "Insert Into Comentarios " & _
" Values ('" & A & "','" & B & "','" & C & "','" & D & "')"
dbConex.Execute SQL
sDe = B
sPara = "oarce@conalepsonora.edu.mx"
sAsunto = "Mensaje desde el Sitio Web de ConalepSonora.Edu.Mx"
sCuerpo = "" & _
"Enviado por: " & A & "
" & _
"e-mail: " & B & "
" & _
"Mensaje:
" & D & "
" & _
"
"
SQL = "sp_send_cdosysmail " & _
" @From='" & sDe & "', " & _
" @To='" & sPara & "', " & _
" @Subject='" & sAsunto & "'," & _
" @Body='" & sCuerpo & "'"
dbConex.Execute SQL
msg = "Mensaje Enviado, Gracias
"
end if
%>
|
|
| |
|
|
|
