Wer kann mir helfen ein Formmail skript zu konfigurieren?

Einklappen
X
 
  • Filter
  • Zeit
  • Anzeigen
Alles löschen
neue Beiträge

  • Wer kann mir helfen ein Formmail skript zu konfigurieren?



    Hallo,

    ich arbeite seit ein paar Monaten daran ein Formmail Skript auf einer Webseite zu konfigurieren. Habe schon verschiedene Skipte ausprobiert, aber keins arbeitet erfolgreich.

    Die webseite heißt Welcome to The Siding B&B - Lahinch und das Formmail ist auf der Seite Contact & Booking - The Siding B&B - Lahinch
    ich denke das man die daten im Qelltext alle lesen kann. Falls ich noch mehr hier posten soll, bitte ich mir dieses mitzuteilen.
    Ich weis mir echt keinen rat mehr. ich möchte dieses Form so gerne fertig bekommen. Ich bin euch sehr dankbar wenn ich hier nun doch noch Hilfe bekomme.
    Ich poste den Skript dann mal in einem zweitem Eintrag seperat.

    Ich schon jetzt für eure Hilfe

    Gruß von der grünen Insel

    Joachim

  • #2
    Hier das Script

    Leider ist die Datei zu groß, kann den script hier nicht komplett posten.

    die adresse lautet Bad Referrer - Access Denied

    http://www.scriptarchive.com/formmail.html

    Ich hoffe das hilft.
    Zuletzt geändert von joeire; 14.07.2009, 03:59.

    Kommentar


    • #3
      Hi,

      Du solltest das Formular auch an das Perlscript schicken und nicht an irgendeine ominöse "formmail.asp", die gar nicht existiert (gibt einen 404er...).

      LG

      Kommentar


      • #4
        Danke, bin neuling auf diesem Gebiet

        Danke für deine Antwort

        Kannst du mir das bitte etwas besser erklären, ich habe sowas noch nie gemacht. Habe immer mit dem internem Outlook formmail gearbeitet und das funktionierte immer.

        Ist das formmail.pl denn nicht richtig? ich habe es auf meinem Server im Ordner cgi-bin in stalliert, aber es funktioniert auch so noch nicht.
        Wenn ich es einaml schaffe so ein script richtig zu konfigurieren, dann werde ich in zukunft auch besser mit diesem Thema umgehen können.

        Danke nochmal

        Joachim

        Kommentar


        • #5
          Hi,

          Zitat von joeire Beitrag anzeigen
          Ist das formmail.pl denn nicht richtig? ich habe es auf meinem Server im Ordner cgi-bin in stalliert, aber es funktioniert auch so noch nicht.
          Wenn ich es einaml schaffe so ein script richtig zu konfigurieren, dann werde ich in zukunft auch besser mit diesem Thema umgehen können.
          bis jetzt hast Du noch gar kein Konfigurationsproblem, Du rufst formmail.pl ja überhaupt nicht auf. Bis jetzt hast Du ein HTML-Formular erstellt, in dem aber seltsamerweise ein nichtexistentes "formular.asp" aufgerufen wird. Ändere das, erst dann wirst Du sehen, ob Du noch etwas für das Perlscript einstellen musst.

          LG

          Kommentar


          • #6
            Habe es geändert

            Danke für diien Hilfe, bin schon mal ein wenig weiter gekommen, allerdings kann ich den lese und schreibmodus nicht ändern, warum auch immer? ich verwende zum hochladen Core FTP, habe Vista auf dem Rechner und WS_FTP funktioniert da nicht, jedenfalls nicht meine Version. Müsste es sonst doch kaufen.

            Ich versuche mal noch ein wenig weiter, vielleicht klappt ja irgendwann mal mit dem Script.
            Wie gesagt ich lerne ja immer noch, bin kein Experte!

            Falls du weitere Fehler siehst, bitte ich um deine weitere Hilfestellung.
            Will dich aber nicht nerven. Möchte es nur so langsam mal zum laufen bekommen. Ist frustrierend.

            Vielen dank

            Joachim

            Kommentar


            • #7
              Hallo, nun habe ich endlich erfahren das mein Peart skript nicht auf dem Server des provider läuft, statt dessen funktioniert dort nur ein [COLOR=Black]ASP Skript[/COLOR].

              Bitte bitte helft mir diese Skript zu Konfigurieren!!!

              Ich wäre dem jenigen sehr dankbar wenn ich nun endlich zum Erfolg komme und dieses ASP Formmail endlich funktioniert.

              http://www.thesiding.ie/asp-bin/formmail.asp

              Contact & Booking - The Siding B&B - Lahinch

              Ich Danke Euch im Voraus

              Joe

              Kommentar


              • #8
                Hallo,

                hast du ASP-Grundkenntnisse? Wenn ja, bitte konkretere Frage und Code posten. Wenn nicht, bitte Code posten und wir verschieben es in die "Projekthilfe".

                Da kommt "The url specified is invalid!"

                Gruß,

                Amica
                [COLOR="DarkSlateGray"]Hast du die [COLOR="DarkSlateGray"]Grundlagen zur Fehlersuche[/color] gelesen? Hast du Code-Tags benutzt?
                Hast du als URL oder Domain-Beispiele example.com, example.net oder example.org benutzt?
                Super, danke!
                [/COLOR]

                Kommentar


                • #9
                  ASP Code

                  Nein habe keine Kenntnisse von ASP, leider. habe mir auch das Webdesign selbst erlernt.

                  hier der ASP Code:


                  Kann den vollen code hier nicht posten, ist zu lang aber er ist hier zu finden:

                  http://www.thesiding.ie/asp-bin/formmail.asp

                  ich hoffe das funktioniert

                  der code der webseite ist hier zu finden:

                  Contact & Booking - The Siding B&B - Lahinch


                  würde es gerne hier als code posten, ist aber wohl zu lang

                  Kommentar


                  • #10
                    bin unter skype: joachimmg zu erreichen

                    Kommentar


                    • #11
                      Zitat von joeire Beitrag anzeigen
                      Kann den vollen code hier nicht posten, ist zu lang aber er ist hier zu finden:

                      [B]http://www.thesiding.ie/asp-bin/formmail.asp

                      ich hoffe das funktioniert
                      Dass es nicht funktioniert, habe ich dir schon geschrieben. Wenn du die URLs zweimal postest, ändert sich auch nichts daran.

                      *verschieb*
                      [COLOR="DarkSlateGray"]Hast du die [COLOR="DarkSlateGray"]Grundlagen zur Fehlersuche[/color] gelesen? Hast du Code-Tags benutzt?
                      Hast du als URL oder Domain-Beispiele example.com, example.net oder example.org benutzt?
                      Super, danke!
                      [/COLOR]

                      Kommentar


                      • #12
                        code TEIL 1

                        Code:
                        <%@ Language = vbscript%>
                        <%option explicit %>
                        <%server.scripttimeout = 600 %>
                        <%
                        '------------------------------------------- FORMMAIL V1.3 ------------------------------------------
                        
                        '----------------------------------------------------------------------------------------------------
                        'copyright information
                        '----------------------------------------------------------------------------------------------------
                        'Copyright 2002: Sorted Sites [URL="http://www.sortedsites.com"]Web Site Design and Internet Marketing in Spain with Sorted Sites, a leading provider of Internet Solutions[/URL]
                        'Authors Jonas Tornqvist, David Parkes and Karl Snares
                        'This script is Freeware, which means you are free to use and modify 
                        'the script for your own use.
                        'The only condition is this copyright header remain intact and you don't 
                        'try and sell this script for profit without first asking us. 
                        'And of course also ask Matt Wright who wrote the original perl version of Formmail.
                        
                        '----------------------------------------------------------------------------------------------------
                        'license agreement - Important
                        '----------------------------------------------------------------------------------------------------
                        'By using this script you agree to indeminfy the developers - Sorted Sites of any loss
                        'or damages that may arise from its use or missue.
                        'This script is provided as is with all faults - no warranties and no guarantees.
                        'basically its free - use it at your own risk and cost.
                        'No warranties and no tech support - if you need help with this don't ask us!
                        'The documentation is provided as is with all the help we can offer.
                        'As we develop this script we shall post updates hopefully fix any bugs
                        'We are not obliged to release any future versions and we might not bother...
                        'By using this script you accept this license agreement!
                        
                        '----------------------------------------------------------------------------------------------------
                        'documentation v1.3
                        '----------------------------------------------------------------------------------------------------
                        
                        '####################################################################################################
                        'this is where the code starts for real
                        '####################################################################################################
                        
                        '----------------------------------------------------------------------------------------------------
                        'declare variables
                        '----------------------------------------------------------------------------------------------------
                        Dim strFrom, strTo, strSubject, strBody
                        Dim objMessage, objConfig, strServer, intPort
                        Dim recipient, redirect, subject, realname, email, required, strEmail1, strEmail2
                        Dim referer, url, url_verified, icounter, query, iloop, query2, query3, i, agree, validation, error0, error0ok
                        
                        '############################## CONFIGURATION VARIABLES ####################################
                        
                        'These are the only lines you will need to change
                        '----------------------------------------------------------------------------------------------------
                        strServer = "smtp.your-domain.com" 'set which smtp server will be used to send the email. enter ip address or domain name. eg: "xxx.xxx.xxx.xxx" or "smtp.your-domain.com"
                        intPort = 25 'set the smtp port to be used when sending mail (by default port 25 is used)
                        'Referrer's Array is defined here. Enter the valid domains which may use this script.
                        url = Array("www.thesiding.ie","thesiding.ie")'Set which urls that will be accepted. [URL="http://xxxxx/"]Parallels Confixx[/URL]
                            'Seperate multiple domains by commas 
                            'eg: url= Array("www.your-domain.com","your-domain.com","www.my-domain.com")
                            'computer names can be used instead of domains if this script is being run locally
                            'eg: url = Array("computername")
                        
                        '######################################### IMPORTANT NOTICE #########################################
                        'IMPORTANT: do not modify anything below this line unless you know what you are doing!!
                        '######################################### IMPORTANT NOTICE #########################################
                            
                        '----------------------------------------------------------------------------------------------------
                        'information type and CDOSYS constants
                        '----------------------------------------------------------------------------------------------------
                        %>
                        <!--METADATA TYPE="typelib"
                        UUID="CD000000-8B95-11D1-82DB-00C04FB1625D"
                        NAME="CDO for Windows 2000 Library" -->
                        <!--METADATA TYPE="typelib"
                        UUID="00000205-0000-0010-8000-00AA006D2EA4"
                        NAME="ADODB Type Library" -->
                        <%
                        '----------------------------------------------------------------------------------------------------
                        'retrieved default fields
                        '----------------------------------------------------------------------------------------------------
                        recipient = request("recipient")
                        redirect = request("redirect")
                        subject = request("subject")
                        email = request("email")
                        required = request("required") 
                        if required = "" then
                            required = "recipient,subject,email,redirect"
                        else
                            required = "recipient,subject,email,redirect," & required
                        end if
                        
                        '----------------------------------------------------------------------------------------------------
                        'verify the referer
                        '----------------------------------------------------------------------------------------------------
                        referer = request.ServerVariables("HTTP_REFERER") 
                        referer = split(referer,"/")
                        url_verified = "no"
                        for icounter = Lbound(url) to Ubound(url) '
                            if referer(2) = url(icounter) then
                                url_verified = "yes"
                            end if
                        next
                        if not url_verified = "yes" then 
                            response.write("The url specified is invalid!")
                            response.End
                        end if
                        
                        '----------------------------------------------------------------------------------------------------
                        'verify the recipient(not tested)
                        '----------------------------------------------------------------------------------------------------
                        'trimed_referer = split(referer(2),".")'
                        'response.write recipient & "<br>" & referer(2) & "=" & trimed_referer(0) & "<br>"
                        'if trimed_referer(0) = "www" then
                        '    if InStr(1,recipient,trimed_referer(1),1) = 0 then
                        '        response.write "recipient don't match the referer"
                        '        response.end
                        '    end if
                        'else
                        '    if InStr(1,recipient,trimed_referer(0),1) = 0 then
                        '        response.write "recipient don't match the referer"
                        '        response.end
                        '    end if
                        'end if
                        
                        '----------------------------------------------------------------------------------------------------
                        'retrieve form contents and create email fields
                        '---------------------------------------------------------------------------------------------------- 
                        query = Request.ServerVariables("QUERY_STRING") 
                        query = split(query,"&")
                        query3 = split(required,",")
                            For iLoop = Lbound(query) to UBound(query)
                                query2 = split(query(iloop),"=")
                            
                        '----------------------------------------------------------------------------------------------------
                        'form validation, checks required fields are not null
                        '----------------------------------------------------------------------------------------------------
                                for i = LBound(query3) to UBound(query3)
                                    if query3(i) = query2(0) then
                                        if query2(1) = "" then
                                            response.write ("you must enter a valid ") & query2(0)
                                            response.end
                                        end if
                                    end if
                                    
                                    'if query2(0) = "agree" then
                                        'if query2(1) <> "on" or query2(1) = "" then
                                        '    response.write("You must agree to terms and conditions to enable Formmailv1.3 to execute!")
                                        'response.end
                                        'end if
                                    'end if
                        Zuletzt geändert von joeire; 29.10.2009, 15:40.

                        Kommentar


                        • #13
                          code teil 2

                          Code:
                          '----------------------------------------------------------------------------------------------------
                          'form validation, checks a valid email address has been specified
                          '----------------------------------------------------------------------------------------------------            
                                      if query2(0) = "email" then
                                          trim(query2(0))
                                          if len(query2(1))<8 then
                                              response.Write("You must specify a valid ") & query2(0)
                                              response.end
                                          end if
                                          if instr(query2(1),"@")=0 and instr(query2(1),".")=0 then
                                              response.write query2(1)
                                              response.Write("You must specify a valid ") & query2(0)
                                              response.end
                                          end if
                                          strEmail1 = split(query2(1),"@")
                                          if len(strEmail1(1))<3 then
                                              response.Write("You must specify a valid ") & query2(0)
                                              response.end
                                          end if
                                          strEmail2 = split(strEmail1(1),".")
                                          if len(strEmail2(0))<3 then
                                              response.Write("You must specify a valid ") & query2(0)
                                              response.end
                                          end if
                                          if len(strEmail2(1))<2 then
                                              response.Write("You must specify a valid ") & query2(0)
                                              response.end
                                          end if
                                      end if
                          
                          '----------------------------------------------------------------------------------------------------
                          'form validation, checks terms and conditions checkbox has been ticked
                          '----------------------------------------------------------------------------------------------------
                                      
                                  Next
                                  if not query2(0) = "recipient" and not query2(0) = "redirect" and not query2(0) = "subject" and not query2(0) = "realname" and not query2(0) = "email" and not query2(0) = "required" and not query2(0) = "agree" then
                                      strBody = strBody & vbnewline & vbnewline & query2(0) &": " & query2(1) 
                                  end if
                              Next
                          if email = "" then
                              email = "formmail@" & referer(2)
                          end if
                          '----------------------------------------------------------------------------------------------------
                          'replaces any special characters parsed through the query string
                          '----------------------------------------------------------------------------------------------------
                          strbody = replace(strbody, "+"," ")
                          strbody = replace(strbody, "%26%238364%3B","€")
                          strbody = replace(strbody, "%A1","¡")
                          strbody = replace(strbody, "%A3","£")
                          strbody = replace(strbody, "%A8","¨")
                          strbody = replace(strbody, "%AA","ª")
                          strbody = replace(strbody, "%AC","¬")
                          strbody = replace(strbody, "%B4","´")
                          strbody = replace(strbody, "%B7","·")
                          strbody = replace(strbody, "%BA","º")
                          strbody = replace(strbody, "%BF","¿")
                          strbody = replace(strbody, "%C7","Ç")
                          strbody = replace(strbody, "%E7","ç")
                          strbody = replace(strbody, "%0D%0A",vbnewline)
                          strbody = replace(strbody, "%21","!")
                          strbody = replace(strbody, "%23","#")
                          strbody = replace(strbody, "%24","$")
                          strbody = replace(strbody, "%25","%")
                          strbody = replace(strbody, "%26","&")
                          strbody = replace(strbody, "%27","'")
                          strbody = replace(strbody, "%28","(")
                          strbody = replace(strbody, "%29",")")
                          strbody = replace(strbody, "%2B","+")
                          strbody = replace(strbody, "%2C",",")
                          strbody = replace(strbody, "%2D","-")
                          strbody = replace(strbody, "%2E",".")
                          strbody = replace(strbody, "%2F","/")
                          strbody = replace(strbody, "%3A",":")
                          strbody = replace(strbody, "%3B",";")
                          strbody = replace(strbody, "%3C","<")
                          strbody = replace(strbody, "%3D","=")
                          strbody = replace(strbody, "%3E",">")
                          strbody = replace(strbody, "%3F","?")
                          strbody = replace(strbody, "%5B","[")
                          strbody = replace(strbody, "%5C","\")
                          strbody = replace(strbody, "%5D","]")
                          strbody = replace(strbody, "%5E","^")
                          strbody = replace(strbody, "%5F","_")
                          strbody = replace(strbody, "%60","`")
                          strbody = replace(strbody, "%7B","{")
                          strbody = replace(strbody, "%7C","|")
                          strbody = replace(strbody, "%7D","}")
                          strbody = replace(strbody, "%7E","~")
                          
                          '----------------------------------------------------------------------------------------------------
                          'this creates the body of the mail message, the text in quotes can be modified accordingly 
                          '---------------------------------------------------------------------------------------------------
                          strBody = "Here is the results of your form submitted from" & referer(2)  & vbnewline & vbnewline & "Name: " & realname & vbnewline &  vbnewline & "Email: " & email & vbnewline & strBody & vbnewline &  vbnewline & "############# End Formmail Tranmission #############" 
                          
                          '----------------------------------------------------------------------------------------------------
                          'checks if a smtp port has been specified, if not it uses the default port 25
                          '----------------------------------------------------------------------------------------------------
                          if intport <> 25 then
                              intport = intport
                          else
                              intport = 25
                          end if
                          
                          '----------------------------------------------------------------------------------------------------
                          'send the mail message
                          '----------------------------------------------------------------------------------------------------    
                          set objMessage = CreateObject("CDO.Message")
                          objMessage.To = recipient
                          objMessage.From = email
                          objMessage.Subject = subject
                          objMessage.Sender = email
                          objMessage.Textbody = strBody
                          
                          '----------------------------------------------------------------------------------------------------
                          'cdosys configuration setup
                          '----------------------------------------------------------------------------------------------------
                          set objConfig = CreateObject("CDO.Configuration")
                          objConfig.Fields(cdoSendUsingMethod) = cdoSendUsingPort
                          objConfig.Fields(cdoSMTPServer) = strServer
                          objConfig.Fields(cdoSMTPServerPort) = intPort
                          objConfig.Fields(cdoSMTPAuthenticate) = cdoAnonymous
                          objConfig.Fields.Update
                          set objMessage.Configuration = objConfig
                          
                          '----------------------------------------------------------------------------------------------------
                          'define error handling procedures
                          '----------------------------------------------------------------------------------------------------
                          On Error Resume Next
                              objMessage.Send
                          If Err.Number = 0 then
                              response.write("Formmail v1.3 processed all operations successfully!")
                          else
                              response.write("Formmail v1.3 detected the following errors:")& "<br>"
                              response.write("error no.: ")&err.number & "<br>"
                              response.write("description: ")&err.description & "<br>"
                              response.end
                          End If
                          On Error Goto 0
                              
                          '----------------------------------------------------------------------------------------------------
                          'send them to the page specified
                          '----------------------------------------------------------------------------------------------------
                          Response.Redirect redirect
                          
                          '####################################################################################################
                          'This is where the code ends
                          '####################################################################################################
                          %>
                          <!-- That's All Folks -->
                          <!-- Happy Surfing -->
                          <!-- Credits -->
                          <!-- David Parkes - Project Planning -->
                          <!-- Jonas Tornqvist - Lead Programmer version 1-->
                          <!-- Karl Snares - Lead Programmer version 1.2 & 1.3
                          <!-- Matt Wright - Original Formmail CGI Developer -->
                          Zuletzt geändert von joeire; 29.10.2009, 15:39.

                          Kommentar


                          • #14
                            Bitte ändere den Beitrag unter Benutzung des Code-Button ([Erweitert] -> )
                            [COLOR="DarkSlateGray"]Hast du die [COLOR="DarkSlateGray"]Grundlagen zur Fehlersuche[/color] gelesen? Hast du Code-Tags benutzt?
                            Hast du als URL oder Domain-Beispiele example.com, example.net oder example.org benutzt?
                            Super, danke!
                            [/COLOR]

                            Kommentar


                            • #15
                              code

                              Ich hoffe so ist es besser

                              Kommentar

                              Lädt...
                              X