|
Two snippets of code are inserted using the ASP Server
Behavior CDO Email Form for Dreamweaver
UltraDev.
(a) First block is inserted above the </html> tag.
This executes the CDO script and uses the values passed from the form.
(b) The second block inserts a form named 'CDO_Email_Form'
and required fields for CDO.
-- don't have UltraDev - or just want the code? then
copy below and paste into a blank .asp page --
<%@LANGUAGE="VBSCRIPT"%>
<%
' CDO Email Form v1.0
If (cStr(Request("Submit")) <> "") Then
Dim objCDO
Set objCDO = Server.CreateObject("CDONTS.NewMail")
objCDO.From = cStr(Request("varFrom")) 'Senders
Email Address
objCDO.To = cStr(Request("varTo")) 'Recipient
Email Address
objCDO.CC = cStr(Request("varCC")) 'Carbon
Copy Address
objCDO.Subject = cStr(Request("varSubject")) 'Email
Subject
objCDO.Body = cStr(Request("varMessage")) 'Email
Message
objCDO.Send() 'Send
email
Set objCDO = Nothing 'Clean
up your objects!!!
'Response.Redirect("thanks.asp") 'use
this to redirect page after delivery
Response.Write("Message Delivered") 'default
response
End If
%>
<html>
<head>
<title>CDO Email Form - ASP Server Behavior</title>
</head>
<body>
<!-- Start CDO Email Form -->
<form name="CDO_Email_Form" method="post">
<table>
<tr>
<td>From</td>
<td>
<input type="text" name="varFrom" size="50">
</td>
</tr>
<tr>
<td>To</td>
<td>
<input type="text" name="varTo" size="50">
</td>
</tr>
<tr>
<td>CC</td>
<td>
<input type="text" name="varCC" size="50">
</td>
</tr>
<tr>
<td>Subject</td>
<td>
<input type="text" name="varSubject" size="50">
</td>
</tr>
<tr>
<td>Message</td>
<td>
<textarea name="varMessage" cols="50" rows="5"></textarea>
</td>
</tr>
<tr>
<td colspan="2">
<input type="submit" name="Submit" value="Submit">
</td>
</tr>
</table>
</form>
<!-- End CDO Email Form -->
</body>
</html>
|
Assonet River Design Group : Portfolio
: Code Snippets : Contact