<%
Dim data
data = ""
data = data & "Name: " & Request("theName") & vbCrLf
data = data & "Email: " & Request("theEmail") & vbCrLf
data = data & "Info: " & Request("theInfo") & vbCrLf
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="[email protected]"
myMail.To="[email protected]"
myMail.TextBody=data
myMail.Send
set myMail=nothing
%>
Thank you
|