| |
|
|
|
|
Support |
|
|
|
|
<%
Dim arraynm(23)
arraynm(1)="is4x3r"
arraynm(2)="s8vc95"
arraynm(3)="hx4vcs"
arraynm(4)="t4w3qr"
arraynm(5)="fy7ip3"
arraynm(6)="aqxe28"
arraynm(7)="8tu5mx"
arraynm(8)="d7me4w"
arraynm(9)="a6y5h9"
arraynm(0)="p359rg"
arraynm(10)="2fb3sc"
arraynm(11)="6vn85x"
arraynm(12)="z3g5h7"
arraynm(13)="yj8vm6"
arraynm(14)="nut5d4"
arraynm(15)="r25cvs"
arraynm(16)="ya6j9w"
arraynm(17)="t58uis"
arraynm(18)="g7n8me"
arraynm(19)="vc65xm"
arraynm(20)="4hytf5"
arraynm(21)="u5fg43"
arraynm(22)="p6utw3"
arraynm(23)="7gi9fc"
dim array1(23)
randomize
array1(1)="201.gif"
array1(2)="202.gif"
array1(3)="203.gif"
array1(4)="204.gif"
array1(5)="205.gif"
array1(6)="206.gif"
array1(7)="207.gif"
array1(8)="208.gif"
array1(9)="209.gif"
array1(0)="2010.gif"
array1(10)="2011.gif"
array1(11)="2012.gif"
array1(12)="2013.gif"
array1(13)="2014.gif"
array1(14)="20.gif"
array1(15)="50.gif"
array1(16)="36.gif"
array1(17)="437.gif"
array1(18)="3038.gif"
array1(19)="142.gif"
array1(20)="5043.gif"
array1(21)="6044.gif"
array1(22)="8.gif"
array1(23)="949.gif"
upperbound=ubound(array1)
lowerbound=0
lrandom = Int((upperbound - lowerbound + 1) * rnd + lowerbound)
dim pic
pic = array1(lrandom)
If Request.Form="" Then %>
<% Else
'receive the form values
Dim uName, uSubj, uEmail, uQuery, uValid, uHid, uFlg
uName=Request.Form("urName")
uSubj=Request.Form("subj")
uEmail=Request.Form("urEmail")
uQuery=Request.Form("urQuery")
uValid=Request.Form("urValid")
uHid = Request.Form("uHi")
for i = 0 to 23
if array1(i)=uHid then
if arraynm(i) = uValid then
uFlg = "perf"
else
uFlg = "nope"
end if
end if
next
if uFlg = "perf" then
Dim urEmailtxt
urEmailtxt = urEmailtxt & ""
urEmailtxt = urEmailtxt & ""
urEmailtxt = urEmailtxt & "HTML Email"
urEmailtxt = urEmailtxt & ""
urEmailtxt = urEmailtxt & ""
urEmailtxt = urEmailtxt & "Query message from: " & uName & "
"
urEmailtxt = urEmailtxt & "Subject:" & uSubj & "
"
urEmailtxt = urEmailtxt & "Message:" & uQuery & "
"
urEmailtxt = urEmailtxt & "Date & Time:" & Now() & "
"
urEmailtxt = urEmailtxt & "IP :" & Request.ServerVariables("REMOTE_ADDR")
urEmailtxt = urEmailtxt & ""
urEmailtxt = urEmailtxt & ""
'create the mail object
Set urMailObj=CreateObject("CDO.Message")
urMailObj.From=uEmail
urMailObj.To = "info@systetra.com"
urMailObj.Subject = "ContactQuery"
urMailObj.TextBody = urEmailtxt
urMailObj.Send
Set urMailObj=Nothing
Response.write "Thank you for sending your Query. "
Response.write "We will get back to you if necessary. "
Response.write " Backyou have entered wrong security code. "
Response.write "Please try again. "
Response.write " Back |
|
|
|
|
|
|
|
|
