%@ Language=VBScript %> <% if request("submit")<>"" then Dim t1,t2,t3,st t1 = Request.Form("email") t2 = Request.Form("name") t3 = Request.Form("subject") st = Request.Form("details") Dim oMail Set oMail = server.CreateObject("[email protected]") oMail.MailFrom = t1 oMail.MailFromDisplayName = t2 oMail.ContentType = "text/html;" oMail.MailTo = "[email protected]" oMail.Subject = t3 oMail.MessageBody = st oMail.SendMessage Set oMail = Nothing Response.Redirect "derecho_internacional_privado_grupos_foro_autorizacion.asp" else%>
|