Web Analytics Made Easy -
StatCounter Please help with an ASP Mailer from a form - CodingForum

Announcement

Collapse
No announcement yet.

Please help with an ASP Mailer from a form

Collapse
This topic is closed.
X
X
 
  • Filter
  • Time
  • Show
Clear All
new posts

  • Please help with an ASP Mailer from a form

    I need serious help
    I need to take a form and submit the following data:

    Name: <text>
    Email: <text>
    Location: <text>
    Age: <drop-down>
    Website Rating: <drop-down>
    Comments: <textarea>

    and grabs a timestamp...

    I have the form setup already but I've been told ASP is good to take in the info and submit it to an email. (I was using a straight email script from the form but it doesnt work with some ISP's) If anyone has a script out there to do this is would be greatly appreciated if you could sen it my way.

    Thanks,

    ME!

  • #2
    Why did you start another thread? FYI, you can edit your original thread and modify the subject. But since you've already started a new thread and deleting post is disabled, maybe whammy can remove this thread.
    Glenn
    vBulletin Mods That Rock!

    Comment


    • #3
      I'm new to this and dont' know how to edit a started thread... I was trying to take your advice on the subject line.

      Comment


      • #4
        Each of the posts in a thread has a corresponding Edit button at the upper right portion.^
        Last edited by glenngv; Feb 10, 2004, 01:27 AM.
        Glenn
        vBulletin Mods That Rock!

        Comment


        • #5
          I see that now sorry for the confusion. I don't mean to be rude but I could really use some help rather than criticism. Thank you

          Comment


          • #6
            I didn't imply you were rude. I was just trying to guide you to make a good post and get better responses in the future.

            Now getting back to the topic. Have you read my reply to your original thread?
            Glenn
            vBulletin Mods That Rock!

            Comment


            • #7
              To be honost I really don't understand any of that... I have an ASP form but for some reason it is not working with my server and I do not know how to fix it... If I show it to you can you spot what is wrong?

              Comment


              • #8
                What is it exactly that does not work? Please be specific and post the code as well as error message if any.
                Glenn
                vBulletin Mods That Rock!

                Comment


                • #9
                  When I submit the form I get back an Error 500 Message from the server... the code is below

                  <%@language = "VBscript"%>
                  <%
                  'Tom Germain's Standard Cgiware Global Variables and set-up
                  'DO NOT REMOVE THIS SECTION OR NOTHING WILL WORK
                  Dim strError
                  Response.Buffer = True
                  If ScriptEngineMajorVersion < 2 Then
                  ReportError "Host system needs scripting engine upgrade to use this script"
                  End If
                  Set objFM = CreateObject("Scripting.Dictionary")
                  If IsObject(objFM) = False Then
                  ReportError "Host system lacks component(s) required by this script"
                  End If
                  Set objMailx = CreateObject("CDONTS.Newmail")
                  If IsObject(objMailx) = False Then
                  ReportError "Host system lacks component(s) required by this script"
                  End If
                  Set objMailx = Nothing
                  %>
                  <%
                  'aspmailer.asp by Tom Germain, Copyright 1998-1999
                  'Version 1.0
                  '[email protected]
                  'Visit http://www.cgiware.com for latest version, documentation, and other resources
                  'This is freeware - Use at your own risk. No warranties provided.
                  'Redistribution of this program, in whole or in part, is strictly
                  'prohibited without the expressed written consent of the author.
                  'Custom programming available on hourly fee basis.
                  %>

                  <%'variables you can set start here%>
                  <%
                  strRcpt = "[email protected]" 'Put the address you want the form sent to here

                  strFromVar = "" 'If you want a reply-to email address to be taken from the form
                  ' put the name of the input item here.

                  strDefFrom = "[email protected]" 'Put a default, even fake, From address here

                  strDefSubject = "DKF Guestbook Posting" 'Put the subject of the letter here. If an input item called
                  'subject exists in the form, its value will be used instead.

                  strRedirect = "../BookConfirm.htm" 'Url to redirect to after a successful form submission. If an input item called
                  'redirect exists in the form, its value will be used instead.

                  %>
                  <%'variables you can set end here%>

                  <%
                  ParseForm
                  CheckForm
                  If Len(strError) > 0 Then
                  ReportError strError
                  End If
                  strOutX = SeqForm
                  If Len(strOutX) < 1 Then
                  strOutX = FormToString
                  End If
                  If Len(strOutX) < 1 Then
                  ReportError "Submitted form is empty"
                  End If
                  strSubject = strDefSubject
                  If objFM.Exists("TGsubject") Then
                  strSubject = objFM.Item("TGsubject")
                  End If
                  strFrom = strDefFrom
                  If Len(strFromVar) > 0 Then
                  If objFM.Exists(strFromVar) Then strFrom = objFM.Item(strFromVar) End If
                  End If
                  SendMail strFrom,strRcpt,strSubject,strOutX
                  If Len(strRedirect) > 0 Then
                  Response.redirect(strRedirect)
                  Response.End
                  End If
                  If objFM.Exists("TGredirect") = True Then
                  If Len(objFM.Item("TGredirect")) > 0 Then
                  Response.redirect(objFM.Item("TGredirect"))
                  Response.End
                  End If
                  End If
                  %>

                  <!--*******SUCCESSFUL SUBMISSION RESPONSE - START*******-->
                  <!--ADD YOUR OWN HTML TOP SECTION STARTING HERE-->
                  <h1>Form Sent!</h1>
                  Your request has been received and will be processed shortly.
                  <!--ADD YOUR OWN HTML TOP SECTION UP TO HERE-->
                  <!--*******SUCCESSFUL SUBMISSION RESPONSE - END********-->

                  <%
                  Credit
                  Response.End
                  %>
                  <%
                  Function IsValidEmail(Email)
                  Dim Temp,Temp2
                  strNotValid = "<br>Email address not valid"
                  strTooLong = "<br>Email address too long"
                  If Len(Email) > 100 Then
                  ReportError strTooLong
                  End If
                  Email = LCase(Email)
                  Temp = Split(Email,"@",2,1)
                  If UBound(Temp) < 1 Then
                  ReportError strNotValid
                  End If
                  Temp2 = Split(Temp(1),".",-1,1)
                  If UBound(Temp2) < 1 Then
                  ReportError strNotValid
                  End If
                  End Function
                  %>
                  <%
                  Function SendMail(From,Rcpt,Subject,Body)
                  Trim(From)
                  Trim(Rcpt)
                  If Len(From) < 1 Then
                  ReportError strError & "<br>No Reply-to address (From) for this letter"
                  End If
                  If Len(Rcpt) < 1 Then
                  ReportError strError & "<br>No recipient for this letter"
                  End If
                  IsValidEmail Rcpt
                  IsValidEmail From
                  Set objMailer = CreateObject("CDONTS.Newmail")
                  objMailer.From = From
                  objMailer.To = Rcpt
                  objMailer.Subject = Subject
                  objMailer.Body = Body & vbCrLf & vbCrLf & "Time Sent: " & Now()
                  objMailer.Send
                  Set objMailer = Nothing
                  End Function
                  %>
                  <%
                  Function CheckForm()
                  Dim Temp,strTmp,strForce
                  strInputReq = "<br>Input required for "
                  If objFM.Exists("TGrequire") = False Then
                  Exit Function
                  ElseIf isEmpty(objFM.Item("TGrequire")) Then
                  Exit Function
                  End If
                  strForce = objFM.Item("TGrequire")
                  Temp = Split(strForce,",",-1,1)
                  For Each strTmp in Temp
                  If objFM.Exists(strTmp) = False Then
                  strError = strError & strInputReq & strTmp
                  ElseIf Len(objFM.Item(strTmp)) < 1 Then
                  strError = strError & strInputReq & strTmp
                  End If
                  Next
                  End Function
                  %>
                  <%
                  Function ParseForm()
                  For Each Item in Request.Form
                  If objFM.Exists(Item) Then
                  objFM.Item(Item) = objFM.Item(Item) & "," & Request.QueryString(Item)
                  Else
                  objFM.Add Item,Request.Form(Item)
                  End If
                  Next
                  For Each Item in Request.QueryString
                  If objFM.Exists(Item) Then
                  objFM.Item(Item) = objFM.Item(Item) & "," & Request.QueryString(Item)
                  Else
                  objFM.Add Item,Request.QueryString(Item)
                  End If
                  Next
                  End Function
                  %>
                  <%
                  Function SeqForm()
                  Dim Temp,strTmp,strOrder,strOut
                  If objFM.Exists("TGorder") = False Then
                  Exit Function
                  ElseIf isEmpty(objFM.Item("TGorder")) Then
                  Exit Function
                  End If
                  strOrder = objFM.Item("TGorder")
                  Temp = Split(strOrder,",",-1,1)
                  For Each strTmp in Temp
                  If objFM.Exists(strTmp) Then
                  strOut = strOut & strTmp & "=" & objFM.Item(strTmp) & Chr(10)
                  End If
                  Next
                  SeqForm = strOut
                  End Function
                  %>
                  <%
                  Function FormToString()
                  Dim strOut
                  strKeys = objFM.Keys
                  strValues = objFM.Items
                  For intCnt = 0 To objFM.Count -1
                  strOut = strOut & strKeys(intCnt) & "=" & strValues(intCnt) & Chr(10)
                  Next
                  FormToString = strOut
                  End Function
                  %>
                  <%
                  Function ReportError(strMess)
                  If Len(strMess) < 1 Then
                  strMess = strError
                  End If
                  strErr = "The following error(s) happened: <br>" & strMess
                  Response.Clear
                  %>

                  <!--*******ERRONEOUS SUBMISSION RESPONSE - START*******-->
                  <!--ADD YOUR OWN HTML TOP SECTION STARTING HERE-->
                  <h1>Error!</h1>
                  <!--ADD YOUR OWN HTML TOP SECTION UP TO HERE-->

                  <%'Error messages will be output here, between your html%>
                  <%
                  Response.Write(strErr)
                  %>

                  <!--ADD YOUR OWN HTML BOTTOM SECTION STARTING HERE-->
                  <p>
                  <b>Click on you browser's <i>Back</i> button to correct any mistakes in your input</b>
                  </p>
                  <!--ADD YOUR OWN HTML BOTTOM SECTION UP TO HERE-->
                  <!--******ERRONEOUS SUBMISSION RESPONSE - END*******-->

                  <%
                  Credit
                  Response.End
                  End Function
                  %>

                  <%Function Credit%>
                  <!--START OF CREDIT - DO NOT CHANGE OR REMOVE ANYTHING BELOW THIS LINE-->
                  <p align=center>
                  <font face="Arial,Helvetica" size=1>
                  Mailer software is freeware by
                  <a href="http://www.cgiware.com/" target="_top">CGIware</a> &nbsp;
                  <a href="http://www.cgiware.com/" target="_top"><img src="http://www.cgiware.com/powered.gif" align="absmiddle" border="0"></a>
                  </font>
                  </p>
                  <!--END OF CREDIT-->
                  <%End Function%>

                  Comment


                  • #10
                    Seems all too familiar. Are you and jalves18 the same and one person?
                    Glenn
                    vBulletin Mods That Rock!

                    Comment


                    • #11
                      No but hes the one that gave me the script... He said it works

                      Comment


                      • #12
                        I got the following message back from the help center for my server... I dont know what to change or where to put what they said should fix it...

                        We do not support JMail, CDONTS, ASPEmail you can use ASPMail. To create object use the following syntax :
                        Set mail = Server.CreateObject("SoftArtisans.SMTPMail")

                        Comment


                        • #13
                          Ask them for the documentation of the component or google it.
                          Ok, I googled it up for you.
                          Glenn
                          vBulletin Mods That Rock!

                          Comment


                          • #14
                            I hate to be a jerk but you obviously don't get it! I DO NOT KNOW ANY ASP!!!!! I NEED YOU OR SOMEONE WHO ISN'T OBLIVIOUS TO THE QUESTION TO EXPLAIN TO ME IN SIMPLE TERMS HOW TO FIX MY SCRIPT!!!

                            (Whammy says: If you hate to be a jerk, then either take the advice provided, and try it, or keep your mouth shut! GlennGV knows ASP VERY well.)
                            Last edited by whammy; Feb 11, 2004, 09:27 PM.

                            Comment


                            • #15
                              http://www.serverobjects.com/comp/Aspmail4.htm

                              Thats the link they gave me for documentation

                              Comment

                              Working...
                              X