estesflyer
Programmer
for some odd reason, this script isnt working anymore. anymore you ask? well, my friend wrote it. then he put it up on his site, and it worked just fine, then he gave it to me. (we both use the same server for our hosting) and it didnt work, also, it stopped working for him.
if you wanna see mah page w/ the script running, go to
anywho, here is the script...
<%
Dim sReqName
Dim sReqEMail
Dim sReqComments
sReqName = Trim(Request.Form(name")
sReqEMail = Trim(Request.Form("email")
sReqSubject = Trim(Request.Form("subject")
sReqComments = Trim(Request.Form("comments")
' Email the feedback
Set Mail = Server.CreateObject("SoftArtisans.SMTPMail"
Mail.RemoteHost = "mail.cfm-resources.net"
Mail.AddRecipient "Rusty", "rustyestes&#64;softhome.net"
Mail.FromAddress = sReqEMail
Mail.FromName = sReqName
Mail.WordWrap = True
Mail.WordWrapLen = 72
Mail.Subject = sReqSubject
Mail.BodyText = "E-mail sent" & VbCrLf & VbCrLf & _
"Name: " & sReqName & VbCrLf & VbCrLf & _
"EMail Address: " & sReqEMail & VbCrLf & VbCrLf & _
"Comments: " & VbCrLf & _
sReqComments
On Error Resume Next
Mail.Send
If Err = 0 Then
%>
<br>
Thank you. Your message have been sent.<br>
</font>
<%
Else
%>
<br>
<b>Error</b><br>
<br>
An error has occured while sending your comments. Please try again. If this error persists, please contact me at <A HREF="mailto:rustyestes&#64;softhome.net">rustyestes&#64;softhome.net</A><br>
<%
End If
Set Mail = Nothing
%>
what happens, is nothing. go there, and you will c. i already matched up the names and everything for the script and the html form names...
TIA
- Rusty
if you wanna see mah page w/ the script running, go to
anywho, here is the script...
<%
Dim sReqName
Dim sReqEMail
Dim sReqComments
sReqName = Trim(Request.Form(name")
sReqEMail = Trim(Request.Form("email")
sReqSubject = Trim(Request.Form("subject")
sReqComments = Trim(Request.Form("comments")
' Email the feedback
Set Mail = Server.CreateObject("SoftArtisans.SMTPMail"
Mail.RemoteHost = "mail.cfm-resources.net"
Mail.AddRecipient "Rusty", "rustyestes&#64;softhome.net"
Mail.FromAddress = sReqEMail
Mail.FromName = sReqName
Mail.WordWrap = True
Mail.WordWrapLen = 72
Mail.Subject = sReqSubject
Mail.BodyText = "E-mail sent" & VbCrLf & VbCrLf & _
"Name: " & sReqName & VbCrLf & VbCrLf & _
"EMail Address: " & sReqEMail & VbCrLf & VbCrLf & _
"Comments: " & VbCrLf & _
sReqComments
On Error Resume Next
Mail.Send
If Err = 0 Then
%>
<br>
Thank you. Your message have been sent.<br>
</font>
<%
Else
%>
<br>
<b>Error</b><br>
<br>
An error has occured while sending your comments. Please try again. If this error persists, please contact me at <A HREF="mailto:rustyestes&#64;softhome.net">rustyestes&#64;softhome.net</A><br>
<%
End If
Set Mail = Nothing
%>
what happens, is nothing. go there, and you will c. i already matched up the names and everything for the script and the html form names...
TIA
- Rusty