%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>s <% Dim oEmail, Err Set oEmail = Server.Createobject("Dynu.Email") oEmail.Host = "mail.pathfinderpublications.com" oEmail.AddAddress ("joe@pathfinderpublications.com") oEmail.From = "joe@pathfinderpublications.com" oEmail.Subject = "Web Site Subscription Request from " & Request("YourName") oEmail.Body = "Hi" & VbCrlf &"First name=" & Request("Firstname") & VbCrlf & "Second name="& Request("SecondName") & VbCrlf & "Email = "& Request("Email") oEmail.SetPriority(1) %>
|
|||||||||||||||||
|
<% If oEmail.Send() Then Response.write("") Else Response.write("") End If Set oEmail = nothing %> Thank you. You have now been subscribed to our newsletter service. » Home
|
|||||||||||||||||
|
|||||||||||||||||