<% gsreqSymbol="" ' *** Funktionen für Captcha-Check ************************************************** ' Im Formular nur die Funktion "createcaptcha" ausgeben ' *** *** captcha auswerten nach Formpost *** *** ' if request.form("captcha") <> Decrypt(request.form("captchacode"), "WzGr2bc") then ' response.write "Sorry, Sie haben den Sicherheitscode falsch eingegeben. Bitte mit dem Zurück-Button zum Formular!" ' else ' ' *** Hier den Code rein, der ausgeführt werden soll, wenn das Captcha richtig ist *** ' end if ' ********************************* Function Encrypt(Uncoded, Phrases) For Char = 1 to LEN(Uncoded) TxtChar = ASC(MID(Uncoded, Char, 1)) PwdChar = ASC(MID(Phrases, (Char MOD LEN(Phrases) + 1), 1)) NewChar = TxtChar + PwdChar If NewChar > 255 Then NewChar = NewChar - 255 Encrypt = Encrypt & Chr(NewChar) Next End Function Function Decrypt(Coded, Phrases) For Char = 1 to LEN(Coded) CodChar = ASC(MID(Coded, Char, 1)) PwdChar = ASC(MID(Phrases, (Char MOD LEN(Phrases) + 1), 1)) NewChar = CodChar - PwdChar if NewChar < 1 then NewChar = NewChar + 255 Decrypt = Decrypt & Chr(NewChar) Next End Function Function URLDecode(sConvert) ' ----------------------------------------- ' URL decode to retrieve the original value Dim aSplit Dim sOutput Dim I If IsNull(sConvert) Then URLDecode = "" Exit Function End If ' convert all pluses to spaces sOutput = REPLACE(sConvert, "+", " ") ' next convert %hexdigits to the character aSplit = Split(sOutput, "%") If IsArray(aSplit) Then sOutput = aSplit(0) For I = 0 to UBound(aSplit) - 1 sOutput = sOutput & _ Chr("&H" & Left(aSplit(i + 1), 2)) &_ Right(aSplit(i + 1), Len(aSplit(i + 1)) - 2) Next End If URLDecode = sOutput End Function Function CreateGUID(tmpLength) Randomize Timer Dim tmpCounter,tmpGUID Const strValid = "012346789" For tmpCounter = 1 To tmpLength tmpGUID = tmpGUID & Mid(strValid, Int(Rnd(1) * Len(strValid)) + 1, 1) Next CreateGUID = tmpGUID End Function function blockdigits(nummer) ctemp="" sdigits = array ("**** * **** **** * * **** **** **** **** **** %% %%%% %%% %%%% %%% %%%% %%%% % % %%% % % % ",_ "* * * * * * * * * * * * * * % % % % % % % % % % % % % % % % ",_ "* * * **** **** **** **** **** * **** **** %%%% %%% % % % %%% %%% % %% %%%% % % %% ",_ "* * * * * * * * * * * * * % % % % % % % % % % % % % % % % % % ",_ "**** * **** **** * **** **** * **** **** % % %%%% %%% %%%% %%% % %%%% % % %%% %% % % ") ctemp = ctemp & "" for lines = 0 to 4 ozahl="" for i=1 to len(nummer) cpos = asc(mid(nummer,i,1))-48 if cpos>16 then cpos=cpos-7 ozahl=ozahl & mid(sdigits(lines),cpos*5+1,5) next ctemp = ctemp & replace(replace(ozahl," "," "),"*"," ")&vbcrlf ctemp= replace(ctemp,"%"," ") if lines<4 then ctemp=ctemp & "
" next ctemp = ctemp & "
" blockdigits = ctemp end function function createcaptcha captcha = CreateGUID(5) captchacode = Encrypt(captcha, "WzGr2bc") ctemp = "
"&vbcrlf ctemp2 = "" ctemp2 = ctemp2 & "
" createcaptcha = ctemp & blockdigits(captcha) & ctemp2 end function ' *** Captcha Funcs Ende ********************************************************* modus=request.querystring("action") if modus="submit" and Request.Form("email") <> "" then if request.form("captcha") <> Decrypt(request.form("captchacode"), "WzGr2bc") then response.write "Sorry, Sie haben den Sicherheitscode falsch eingegeben. Bitte mit dem Zurück-Button erneut zum Formular!" else Dim strBody 'Holds the body of the e-mail Dim objJMail 'Holds the mail server object Dim strMyEmailAddress 'Holds your e-mail address Dim strSMTPServerAddress 'Holds the SMTP Server address Dim strReturnEmailAddress 'Holds the return e-mail address of the user strMysubject = "Mailantwort aus Kontaktformular von techno-design.de" strMyEmailAddress = "wilmering@techno-design.de" ' strCCEmailAddress = Request.Form("email") 'Use this string only if you want to send the carbon copies of the e-mail strReturnEmailAddress = Request.Form("email") strBody = strMysubject & vbCrLf &vbCrLf strBody = strBody & "Anrede oder Firma: " & Request.Form("anredefirma") & vbCrLf strBody = strBody & "Name: " & Request.Form("name") & vbCrLf If (Request.Form("strasse")) > "" Then strBody = strBody & "Strasse: " & Request.Form("strasse") & vbCrLf End If If (Request.Form("ort")) > "" Then strBody = strBody & "PLZ/Ort: " & Request.Form("ort") & vbCrLf End If If (Request.Form("telefon")) > "" Then strBody = strBody & "Telefon: " & Request.Form("telefon") & vbCrLf End If If (Request.Form("telefax")) > "" Then strBody = strBody & "Telefax: " & Request.Form("telefax") & vbCrLf End If strBody = strBody & "Fahrzeugtyp: " & Request.Form("fztyp") & vbCrLf strBody = strBody & "Lichttechnik: " & Request.Form("lichtt") & vbCrLf strBody = strBody & "Wie wird Anlage montiert: " & Request.Form("montiert") & vbCrLf strBody = strBody & "Wo soll Lautsprecher hin: " & Request.Form("lautsprecher") & vbCrLf strBody = strBody & "E-Mail: " & strReturnEmailAddress & vbCrLf strBody = strBody & "IP-Adresse Absender: " & Request.ServerVariables("REMOTE_ADDR") & vbCrLf&vbcrlf strBody = strBody & "Anfragetext:" & vbCrlf & Request.Form("message")& vbCrLf strBody = strBody & vbcrlf& "Anbieterinformation: Techno Design Sondersignalanlagen Wilmering GmbH, Sitz: Nottuln, Amtsgericht Coesfeld HRB 1498, Geschäftsführer: F.J. Wilmering" If Len(strReturnEmailAddress) < 5 OR NOT Instr(1, strReturnEmailAddress, " ") = 0 OR InStr(1, strReturnEmailAddress, "@", 1) < 2 OR InStrRev(strReturnEmailAddress, ".") < InStr(1, strReturnEmailAddress, "@", 1) Then strReturnEmailAddress = strMyEmailAddress End If set msg = Server.CreateOBject( "JMail.Message" ) msg.Logging = true msg.silent = true msg.From = strReturnEmailAddress msg.FromName = Request.Form("anredefirma") & " " & Request.Form("name") msg.AddRecipient strMyEmailAddress msg.AddRecipientCC strCCEmailAddress msg.AddRecipientBCC strBCCEmailAddress msg.Subject = strMysubject msg.Body = strBody if not msg.Send( "10.10.10.1" ) then mailsendestatus = msg.log else mailsendestatus= "Message sent / Nachricht versendet." end if Set objJMail = Nothing %>
  <% response.write "    "&vbcrlf %>
Nachrichtenübermittlung - Vielen Dank, <% = Request.Form("anredefirma") %> - <% = Request.Form("name") %>
Status: <%=mailsendestatus%>


Ihre Antwortadresse: <% = Request.Form("email") %>
Ihre Nachricht: <% = Request.Form("message") %>
<% end if 'captcha %> <% else response.write "" shoptext="Kontakt

Gern können Sie im folgenden Formular Ihre Wünsche äußern. Felder mit "&gsreqsymbol&" müssen ausgefüllt werden. Wir freuen uns " shoptext=shoptext & "auch auf Ihren Anruf." response.write "
"&vbcrlf response.write "
"&vbcrlf response.write shoptext & vbcrlf response.write "
"&vbcrlf response.write "
"&vbcrlf %>     <% response.write "    "&vbcrlf %>
Kontakt | contact form and itinery
TECHNO DESIGN Wilmering GmbH Sondersignalanlagen
Franz-Ballhorn-Weg 6
48301 Nottuln
Germany
Tel: +49 (25 02) 2 28 91 - 0
Fax: +49 (25 02) 2 28 91 - 20

Standort mit Google Maps ansehen     Klicken Sie hier für einen kostenlosen Rückruf

Nachricht
<% response.write "" response.write "" response.write "" response.write "" response.write "" response.write ""&vbcrlf response.write "" Response.write "" response.write "" response.write ""&vbcrlf %>
Ihr Name "&gsreqsymbol&"" &vbcrlf response.write "
E-Mail-Adresse "&gsreqsymbol&"" response.write "
Firma/Organisation "&gsreqsymbol&"" response.write "
Bemerkungen "&gsreqsymbol&"" response.write "
Bitte 5-stelligen Code eingeben (SPAM-Schutz) "&gsreqsymbol&" "&createcaptcha&"
" response.write "
<% end if %>