<%@ Language=VBScript %>
<%option explicit%>
<%
const GLOBAL_MAILFILTER="MINIFORMULAR"
on error goto 0
DIM MODE,CONN,RS,out,title,content
dim valid_user,kundenNR,tmp,i,tmp2
dim infofile,layoutfile,block,JAVASCRIPT
dim this_file,PFLICHTFELDER,EMAILFELDER,formular,FELDER,sFELDER,submode
dim text,subject,toEmail,FromEmail,fromName,toName,mailBody,innerOut
JAVASCRIPT=""
this_file="index.asp"
mode=request("mode")
submode=request("submode")
if mode="" then mode="formular"
err.clear
on error resume next
out=getTextFile("templates","main.html")
if err.number<>0 then
response.write("NO FILE: main.html")
response.end
end if
on error goto 0
err.clear
on error resume next
infofile=getTextFile("templates",mode&".html")
if err.number<>0 then
response.write("NO FILE: "&mode&".html")
response.end
end if
on error goto 0
dim GLOBAL_MAILACCOUNT,GLOBAL_MAILPASS,GLOBAL_MAILSERVER
GLOBAL_MAILACCOUNT=substr(infofile,"GLOBAL_MAILACCOUNT")
GLOBAL_MAILPASS=substr(infofile,"GLOBAL_MAILPASS")
GLOBAL_MAILSERVER=substr(infofile,"GLOBAL_MAILSERVER")
if substr(infofile,"SEITENTYP")="FORMULAR" then
if submode="CLEAR" then
'in session speichern..
tmp=substr(infofile,"SESSIONFELDER")
if tmp<>"" then
sFELDER=split(tmp,",")
for i=0 to ubound(sFELDER)
session(sFELDER(i))=""
next
end if
submode=""
end if
if submode="" then
tmp=substr(infofile,"FELDER")
if tmp<>"" then FELDER=split(tmp,",")
innerOut=substr(infofile,"FORMULAR")
tmp=substr(infofile,"PFLICHTFELDER")
if tmp<>"" then PFLICHTFELDER=split(tmp,",")
tmp=substr(infofile,"EMAILFELDER")
if tmp<>"" then EMAILFELDER=split(tmp,",")
innerOut=replace(innerOut,"<#SUBMIT#>","")
innerOut=replace(innerOut,"<#RESET#>","")
if instr(innerOut,"<#SELECT#>")>0 then
tmp=right(innerOut,len(innerOut)-instr(innerOut,"<#SELECT#>")-9)
tmp=left(tmp,instr(tmp,"")-1)
tmp2=split(tmp,"|")
innerOut=replace(innerOut,"<#SELECT#>"&tmp&"",drawSelectSQL2(tmp2(0),tmp2(1),tmp2(2),true,"","","",null))
end if
tmp=substr(infofile,"SESSIONFELDER")
if tmp<>"" then
sFELDER=split(tmp,",")
for i=0 to ubound(sFELDER)
innerOut=replace(innerOut,"",session(sFELDER(i)))
next
end if
end if
if submode<>"SENDNOW" then
innerOut=""
javascript="function checkEmail(obj){"&vbcr
javascript=javascript&"if (obj.value=="""") return true"&vbcr
javascript=javascript&"if ("&vbcr
javascript=javascript&" (obj.value.indexOf(""â"")>=0)||"&vbcr
javascript=javascript&" (obj.value.indexOf(""ê"")>=0)||"&vbcr
javascript=javascript&" (obj.value.indexOf(""î"")>=0)||"&vbcr
javascript=javascript&" (obj.value.indexOf(""û"")>=0)||"&vbcr
javascript=javascript&" (obj.value.indexOf(""ú"")>=0)||"&vbcr
javascript=javascript&" (obj.value.indexOf(""ù"")>=0)||"&vbcr
javascript=javascript&" (obj.value.indexOf(""à"")>=0)||"&vbcr
javascript=javascript&" (obj.value.indexOf(""á"")>=0)||"&vbcr
javascript=javascript&" (obj.value.indexOf(""è"")>=0)||"&vbcr
javascript=javascript&" (obj.value.indexOf(""é"")>=0)||"&vbcr
javascript=javascript&" (obj.value.indexOf("":"")>=0)||"&vbcr
javascript=javascript&"(obj.value.indexOf("";"")>=0)||"&vbcr
javascript=javascript&" (obj.value.indexOf("","")>=0)||"&vbcr
javascript=javascript&" (obj.value.indexOf(""*"")>=0)||"&vbcr
javascript=javascript&" (obj.value.indexOf(""+"")>=0)||"&vbcr
javascript=javascript&" (obj.value.indexOf(""\\"")>=0)||"&vbcr
javascript=javascript&" (obj.value.indexOf(""/"")>=0)||"&vbcr
javascript=javascript&" (obj.value.indexOf("" "")>=0)||"&vbcr
javascript=javascript&" (obj.value.indexOf(""ß"")>=0)||"&vbcr
javascript=javascript&" (obj.value.indexOf(""ö"")>=0)||"&vbcr
javascript=javascript&" (obj.value.indexOf(""ü"")>=0)||"&vbcr
javascript=javascript&" (obj.value.indexOf(""ä"")>=0)||"&vbcr
javascript=javascript&" (obj.value.indexOf(""@"")<1)||"&vbcr
javascript=javascript&" (obj.value.indexOf(""."")<1)||"&vbcr
javascript=javascript&" (obj.value.indexOf(""."")==obj.value.length-1)||"&vbcr
javascript=javascript&" (obj.value.indexOf(""@"")==obj.value.length-1)||"&vbcr
javascript=javascript&" (Math.abs(obj.value.indexOf(""@"")-obj.value.indexOf("".""))<2)"&vbcr
javascript=javascript&" ) "&vbcr
javascript=javascript&"{alert(""Keine gültige E-Mail-Adresse."");obj.focus();return false}"&vbcr
javascript=javascript&"else return true"&vbcr
javascript=javascript&"}"&vbcr
javascript=javascript&"function checkPflichtfeld(obj){"&vbcr
javascript=javascript&"if (obj.value=="""") {alert(""Ihre Anfrage konnte nicht bearbeitet werden!\n\nBitte füllen Sie alle Felder aus und senden Sie\ndie Anfrage erneut ab. Danke!"");obj.focus();return false}"&vbcr
javascript=javascript&"else return true"&vbcr
javascript=javascript&"}"&vbcr
javascript=javascript&"function clearit(){"&vbcr
javascript=javascript&"var f=window.document.TOSUBMIT"&vbcr
javascript=javascript&"f.submode.value=""CLEAR"""&vbcr
javascript=javascript&"f.submit()"&vbcr
javascript=javascript&"}"&vbcr
javascript=javascript&"function doit(){"&vbcr
javascript=javascript&"var ts=true"&vbcr
javascript=javascript&"var f=window.document.TOSUBMIT"&vbcr
if mode="bestellen" then javascript=javascript&vbtab&vbtab&"if (ts) if (!f.agb.checked) {alert('Bitte bestätigen Sie die Geschäftsbedingungen.');ts=false}"&vbcrlf
if not isnull(PFLICHTFELDER) then
for i=0 to ubound(PFLICHTFELDER)
javascript=javascript&vbtab&vbtab&"if (ts) ts=checkPflichtfeld(f."&PFLICHTFELDER(i)&")"&vbcrlf
next
end if
if not isnull(EMAILFELDER) then
for i=0 to ubound(EMAILFELDER)
javascript=javascript&vbtab&vbtab&"if (ts) ts=checkEmail(f."&EMAILFELDER(i)&")"&vbcrlf
next
end if
javascript=javascript&"if (ts) f.submit()"&vbcr
javascript=javascript&"}"&vbcr
else
text=substr(infofile,"FEEDBACK")
'in db speichern und origtext ersetzen
tmp=substr(infofile,"FELDER")
if tmp<>"" then FELDER=split(tmp,",")
for i=0 to ubound(FELDER)
text=replace(text,"",request(FELDER(i)))
next
'in session speichern..
tmp=substr(infofile,"SESSIONFELDER")
if tmp<>"" then
sFELDER=split(tmp,",")
for i=0 to ubound(sFELDER)
session(sFELDER(i))=request(sFELDER(i))
next
end if
subject=substr(text,"BETREFF")
toEmail=substr(text,"EMPFAENGER")
toName=substr(text,"EMPFAENGERNAME")
fromEmail=substr(text,"ABSENDER")
fromName=substr(text,"ABSENDERNAME")
mailBody=substr(text,"MAILBODY")
'in DB speichern..
'
' Set Conn = Server.CreateObject("ADODB.Connection")
' Conn.Open ODBC_VALUE
' set RS = Server.CreateObject("ADODB.RecordSet")
' RS.Open "select * from data_kontakt WHERE id=-1",Conn,adOpenKeyset,adLockOptimistic
' rs.addnew
' rs("info")=mailBody
' tmp=substr(infofile,"DBFELDER")
' if tmp<>"" then
' sFELDER=split(tmp,",")
' for i=0 to ubound(sFELDER)
' on error resume next
' rs(sFELDER(i))=request(sFELDER(i))
' if err.number<>0 then response.write(sFELDER(i))
' next
' end if
' rs("modified")=now
' rs("datum")=now
' if request("newsletter")<>"" then rs("newsletter")=1
' rs.updatebatch
' RS.CLOSE
' Conn.Close
' set conn=nothing
if sendMAIL(fromName,fromEmail,toEmail, toName, subject ,"",mailBody,GLOBAL_MAILFILTER) then
'reply mail - kopie
if fromEmail&""<>"" then
tmp=sendMAIL(toName,toEmail,fromEmail, fromName, "Ihre Anfrage: "&subject ,"",""&vbcrlf&vbcrlf&mailBody,"KLICKOLAUS")
end if
innerOut=substr(infofile,"WEBTEXT")
else
innerOut="Versendefehler... Bitte später nochmal probieren..."
end if
infofile=replace(infofile,""&substr(infofile,"BLOCKSUB")&"","")
end if
end if
' out=replace(out,"",getStyle(""))
if submode="" then
out=replace(out,"<#ONLOAD#>",substr(infofile,"ONLOAD"))
else
out=replace(out,"<#ONLOAD#>","")
end if
out=replace(out,"<#HEAD#>",substr(infofile,"HEAD"))
out=replace(out,"<#TITLE#>",substr(infofile,"TITEL"))
out=replace(out,"<#CONTENT#>",innerOut)
out=replace(out,"<#JAVASCRIPT#>",JAVASCRIPT)
response.write(out)
%>