18/03/2002, 04:23
|
 | Colaborador | | Fecha de Ingreso: octubre-2001 Ubicación: (cerca)
Mensajes: 1.795
Antigüedad: 23 años, 6 meses Puntos: 59 | |
| Re: Formulario ASP
Código:
'Who the e-mail is from (this needs to have an e-mail address in it for the e-mail to be sent)
objCDOMail.From = Request.Form("firstName") & " " & Request.Form("lastName") & " <" & strReturnEmailAddress & ">"
'Who the e-mail is sent to
objCDOMail.To = strMyEmailAddress
'Who the carbon copies are sent to
objCDOMail.Cc = strCCEmailAddress
'Who the blind copies are sent to
objCDOMail.Bcc = strBCCEmailAddress
'Set the subject of the e-mail
objCDOMail.Subject = "Email enviado desde Cortabitarte.com"
'Set the e-mail body format (0=HTML 1=Text)
objCDOMail.BodyFormat = 0
'Set the mail format (0=MIME 1=Text)
objCDOMail.MailFormat = 0
'Set the main body of the e-mail
objCDOMail.Body = strBody
'Importance of the e-mail (0=Low, 1=Normal, 2=High)
objCDOMail.Importance = 1
'Send the e-mail
objCDOMail.Send
'Close the server object
Set objCDOMail = Nothing
%>
<html>
<head>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<title>Contact Us</title>
<!-- The Web Wiz Guide e-mail script and form is written by Bruce Corkhill ©2001
If you want your own e-mail script and form then goto http://www.webwizguide.com -->
</head>
<body text="#000000" bgcolor="#FFFFFF" link="#0000FF" vlink="#990099" alink="#FF0000">
<table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="2">
<h1 align="center">Contact Us</h1>
</td>
</tr>
</table>
<br>
<br>
<table width="85%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td align="center"> Thank-you <% = Request.Form("firstName") %>&nbsp;<% = Request.Form("lastName") %> for filling in the enquiry form.
<br>
I shall be receiving your enquiry shortly and will reply as soon as possible.</td>
</tr>
</table>
|