Script erstellen bzw. modifizieren

Dieses Thema Script erstellen bzw. modifizieren im Forum "Windows XP Forum" wurde erstellt von giga2000, 2. Aug. 2005.

Thema: Script erstellen bzw. modifizieren Hallo, ich würde gerne ein Script erstellen, damit wenn jemand ein Formular ausfüllt und abschickt, soll er eine...

  1. Hallo,

    ich würde gerne ein Script erstellen, damit wenn jemand ein Formular ausfüllt und abschickt, soll er eine vorgefertigte Mail von mir zurückbekommen.

    Ich habe einen Webserver auf dem Frontpage 2003 läuft, aber keine Ahnung wie man das macht.
    Momentan habe ich ein Formular, dass die Daten an mich schickt, kann ich das anpassen, so
    das automatsch an die von Ihm angegebene Adresse eine Mail versendet wird`?

    Anbei das aktuelle Formular, wie es momentan ist:
    Danke für eure Hilfe!!!
    Code:
    <%
    ' Empfänger
    strTo = xxx@xxx.com
    
    ' Absender
    strFrom = Request.QueryString(email)
    
    ' Betreff
    strSubject = Formular - Test
    ' Emailtext
    strBody  = Formular - Test &<br><br>&</b><br>Firmenname = <b> & Request.QueryString(firma)&</b><br>Name = <b> &  Request.QueryString(name)&</b><br>Vorname = <b> & Request.QueryString(vorname)&</b><br>Strasse = <b> &  Request.QueryString(strasse)&</b><br>Land = <b> & Request.QueryString(land)&</b><br>Ort = <b> & Request.QueryString(ort)&</b><br>PLZ = <b> & Request.QueryString(plz)& <br></b>Tel: <b> &   Request.QueryString(tel)& <br></b>Fax:<b>  &Request.QueryString(fax)& <br></b>email:<b>  &Request.QueryString(email)& <br></b>Sie sind:<b>  &Request.QueryString(haendler)&Request.QueryString(endkunde)& <br></b>Wie finden Sie die Seite :<b>  &Request.QueryString(news)
    
    
    ' Message und Configuration Objekte instanzieren
    Set objMessage = CreateObject(CDO.Message)
    
    objMessage.To    = strTo  -> Empfaenger
    objMessage.From   = strFrom -> Absender
    objMessage.Subject = strSubject-> Betreff
    ' Versender der Nachricht:
    ' objMessage.Sender  = xxx@xxx.com 
    objMessage.HTMLBody = strBody -> Nachricht
    
    ' Checkbox
    If Instr(strFrom,@) = 0 Then
    Response.Redirect (wrong.htm)
    ElseIf Instr(strFrom,.) = 0 Then
    Response.Redirect (wrong.htm)
    End If
    
    ' Error Handling waehrend dem Versenden:
    On Error Resume Next
    
    ' Checkbox
    objMessage.Send
    Response.Redirect( danke.htm)
    
    
    If Err.Number = 0 Then
      Response.Write Email wurde an  & strTo &  verschickt!
    Else
     Response.Write(Waehrend des Versendens ist  & _
     ein Fehler aufgetreten, ueberpruefen Sie die  & _
     Verbindung zum Internet oder dem Mailserver! & _
     <br> Moeglicherweise akzeptiert der Emailserver  & _
     Ihre Nachricht nicht. )
     Err.Number = 0
    End If
    On Error Goto 0
    
    %>
    

    * Code-Tags eingefügt *
     
Die Seite wird geladen...

Script erstellen bzw. modifizieren - Ähnliche Themen

Forum Datum
Script zum erstellen mehrerer Dateien aus einer Textdatei Webentwicklung, Hosting & Programmierung 26. Feb. 2005
Anmeldescript erstellen Windows Server-Systeme 11. Feb. 2004
HTML Seite dynamisch mit JavaScript erstellen? Webentwicklung, Hosting & Programmierung 20. Nov. 2003
Mit JavaScript Text auf HTML Seite erstellen Webentwicklung, Hosting & Programmierung 10. Sep. 2003
Java Script in Firefox 24.0 nicht zu aktivieren Windows XP Forum 21. Okt. 2013