<%@ CodePage=65001 Language="VBScript"%>
<%
Dim bFormValidated
Dim bFormSubmitted
Dim strFormSubmit
Dim strFormEmail
bFormValidated = 0
strFormSubmit = fScriptFromFormFieldRemover(Request.Form("btnSubmit"))
strFormEmail = fScriptFromFormFieldRemover(Request.Form("email"))
if strFormEmail <> "" then
strFormEmail = Cstr(strFormEmail)
if strFormEmail<> "" then
blnValidEmail = RegExpTest(strFormEmail)
if blnValidEmail then
bFormValidated = 1
else
bFormValidated = 0
end if
end if
end if
If lCase(strFormSubmit) = "stáhnout vipre antivirus" then
bFormSubmitted = 1
Else
bFormSubmitted = 0
End If
%>
<%
If bFormSubmitted = 1 and bFormValidated = 1 Then
Dim email_body
email_body = "Email: " & strFormEmail & vbCrlf &_
"Verze: VIPRE Antivirus 2013" & vbCrlf &_
"IP adresa: " & fUserIP()
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Download na vipreantivirus.cz"
myMail.From="info@pbcom.cz"
myMail.To="obchod@pbcom.cz"
'myMail.Cc="jiri.hruska@pbcom.cz"
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing")=2 'Name or IP of remote SMTP server
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver")="10.0.0.114" 'Server port
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25
myMail.Configuration.Fields.Update
'set myMail.Configuration = cdoConfig
'myMail.BodyPart.Charset = "iso-8859-2"
myMail.BodyPart.Charset = "utf-8"
myMail.TextBody = email_body
Err.Clear
On Error Resume Next
myMail.Send
If Err.Number <> 0 Then
bError = true
Else
bError = false
End If
set myMail=nothing
End If
if bFormSubmitted = 1 and bFormValidated = 1 and bError = false then
response.redirect("https://www.vipreantivirus.cz/confirm/")
end if
%>
<%
' Functions
Function fUserIP
userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If userip = "" Then
userip = Request.ServerVariables("REMOTE_ADDR")
End if
fUserIP = userip
End Function
Function RegExpTest(sEmail)
RegExpTest = false
Dim regEx, retVal
Set regEx = New RegExp
' Create regular expression:
regEx.Pattern ="^[\w\.]*\@([\da-zA-Z-]{1,}\.){1,}[\da-zA-Z-]{2,6}$"
' Set pattern:
regEx.IgnoreCase = true
' Set case sensitivity.
retVal = regEx.Test(sEmail)
' Execute the search test.
If not retVal Then
exit function
End If
RegExpTest = true
End Function
Function fValidateRequired(string)
If len(string) = 0 Then
fValidateRequired = false
Else fValidateRequired = true
End If
End function
Function fScriptFromFormFieldRemover(strFormString)
strFormString = Replace(strFormString, ";", ";")
strFormString = Replace(strFormString, "<", "<")
strFormString = Replace(strFormString, ">", ">")
strFormString = Replace(strFormString, "(", "(")
strFormString = Replace(strFormString, ")", ")")
strFormString = Replace(strFormString, """", """)
strFormString = Replace(strFormString, "/", "/")
strFormString = Replace(strFormString, "\", "\")
strFormString = Replace(strFormString, "'", "'")
strFormString = Replace(strFormString, ":", ":")
strFormString = Replace(strFormString, "%3B", ";")
strFormString = Replace(strFormString, "%3C", "<")
strFormString = Replace(strFormString, "%3E", ">")
strFormString = Replace(strFormString, "%28", "(")
strFormString = Replace(strFormString, "%29", ")")
strFormString = Replace(strFormString, "%22", """)
strFormString = Replace(strFormString, "%2f", "/")
strFormString = Replace(strFormString, "%5c", "\")
strFormString = Replace(strFormString, "%27", "'")
strFormString = Replace(strFormString, "%3a", ":")
'Překódování znaku "+" a vložení do proměnné typu sting strFormStringEncoded
strFormStringEncoded = strFormString
'strFormStringEncoded = server.URLEncode(strFormString)
'strFormStringEncoded = Replace(lCase(strFormStringEncoded),"%2b","+")
fScriptFromFormFieldRemover = strFormStringEncoded
End Function
%>