help me pleaseeee!!

[GreyFilmPro]

Can someone give me an .asp script that will send the form fields to my e-mail and redirect the viewer to the page saying there message has been sent. I know how to do the ( form action="script.asp" ) but I dont know how to make the asp script.

[russell]

ok, since you know how to do action="script.asp" then this is what to put in script.asp.

Comment out the on error resume next while testing

<%
Response.ExpiresAbsolute = Date()-1

Dim f
Dim subject
Dim body
Dim strErr

subject = "A message"
body = ""

For Each f in Request.Form
body = f & ":" & vbTab & Request.Form(f) & vbCrLf
Next

If SendMail(subject, body, strErr) Then
Response.Write "Mail Sent"
Else
Response.Write "Error Sending mail<br>"
Response.Write "<span style=color:red>" & strErr & "</span>"
End If

Function SendMail(byVal subject, byVal body, byRef strErr)
Dim ObjSendMail
Dim iConf
Dim Flds

On Error Resume Next

Set ObjSendMail = Server.CreateObject("CDO.Message")
Set iConf = Server.CreateObject("CDO.Configuration")

Set Flds = iConf.Fields
With Flds
.Item(cdoSendUsingMethod) = 2
.Item(cdoSMTPServer) = "Server_Name_Or_IP_address"
.Item(cdoSMTPServerPort) = 25
.Update
End With

Set ObjSendMail.Configuration = iConf

Set ObjSendMail.Configuration = iConf
ObjSendMail.To = "you@there.com"
ObjSendMail.Subject = "this is the subject"
ObjSendMail.From = "me@here.com"

' we are sending a text email.. simply switch the comments around to send an html email instead
'ObjSendMail.HTMLBody = "this is the body"
ObjSendMail.TextBody = "this is the body"

ObjSendMail.Send

SendMail = True

Set ObjSendMail = Nothing
Set iConf = Nothing
Set Flds = Nothing

If Err.number <> 0 Then
strErr = Err.number & " " & Err.Description
SendMail = False
Err.Clear
End If

On Error Goto 0
End Function
%>