Foros del Web - Ver Mensaje Individual

Wakkos · #8 (**permalink**) 18/03/2002, 04:19

Código:

 

'Read in the users e-mail address
strReturnEmailAddress = Request.Form(&quot;email&quot;)


'Initialse strBody string with the body of the e-mail
strBody = &quot;&lt;h2&gt;E-mail sent from form on Web Site&lt;/h2&gt;&quot;
strBody = strBody &amp; &quot;&lt;br&gt;&lt;b&gt;Name: &lt;/b&gt;&quot; &amp; Request.Form(&quot;firstName&quot;) &amp; &quot; &quot; &amp; Request.Form(&quot;lastName&quot;)
strBody = strBody &amp; &quot;&lt;br&gt;&lt;br&gt;&lt;b&gt;Address: -&lt;/b&gt;&quot;
If (Request.Form(&quot;street1&quot;)) &gt; &quot;&quot; Then 
	strBody = strBody &amp; &quot;&lt;br&gt;  &quot; &amp; Request.Form(&quot;street1&quot;)
End If
If (Request.Form(&quot;street2&quot;)) &gt; &quot;&quot; Then 
	strBody = strBody &amp; &quot;&lt;br&gt;  &quot; &amp; Request.Form(&quot;street2&quot;) 
End If
If (Request.Form(&quot;town&quot;)) &gt; &quot;&quot; Then 
	strBody = strBody &amp; &quot;&lt;br&gt;  &quot; &amp; Request.Form(&quot;town&quot;)
End If
If (Request.Form(&quot;county&quot;)) &gt; &quot;&quot; Then 
	strBody = strBody &amp; &quot;&lt;br&gt;  &quot; &amp; Request.Form(&quot;county&quot;)
End If
If (Request.Form(&quot;country&quot;)) &gt; &quot;--- Choose One ---&quot; Then
	strBody = strBody &amp; &quot;&lt;br&gt;  &quot; &amp; Request.Form(&quot;country&quot;)
End IF
If (Request.Form(&quot;postCode&quot;)) &gt; &quot;&quot; Then 
	strBody = strBody &amp; &quot;&lt;br&gt;  &quot; &amp; Request.Form(&quot;postCode&quot;)
End If
strBody = strBody &amp; &quot;&lt;br&gt;&lt;br&gt;&lt;b&gt;Telephone: &lt;/b&gt;&quot; &amp; Request.Form(&quot;tel&quot;)
strBody = strBody &amp; &quot;&lt;br&gt;&lt;b&gt;E-mail: &lt;/b&gt;&quot; &amp; strReturnEmailAddress
strBody = strBody &amp; &quot;&lt;br&gt;&lt;br&gt;&lt;b&gt;Enquiry: - &lt;/b&gt;&lt;br&gt;&quot; &amp; Replace(Request.Form(&quot;enquiry&quot;), vbCrLf, &quot;&lt;br&gt;&quot;)


'Check to see if the user has entered an e-mail address and that it is a valid address otherwise set the e-mail address to your own otherwise the e-mail will be rejected
If Len(strReturnEmailAddress) &lt; 5 OR NOT Instr(1, strReturnEmailAddress, &quot; &quot;) = 0 OR InStr(1, strReturnEmailAddress, &quot;@&quot;, 1) &lt; 2 OR InStrRev(strReturnEmailAddress, &quot;.&quot;) &lt; InStr(1, strReturnEmailAddress, &quot;@&quot;, 1) Then
	
	'Set the return e-mail address to your own
	strReturnEmailAddress = strMyEmailAddress
End If	


'Send the e-mail

'Create the e-mail server object
Set objCDOMail = Server.CreateObject(&quot;CDONTS.NewMail&quot;)