SysTetra
SysTetra Home Services Products Download Contact

 

 

 
Support


 

Contact


<% 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 %>
Name:
Subject:
Email:
Query:
Enter security code
(as in image):
 

<% 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 "

Back
" else Response.write "

you have entered wrong security code.
" Response.write "Please try again.
" Response.write "

Back
" end if End If %>

 
 
Contact Us
 
  Contact
 
 
© Copyright 2007, SysTetra

Home | Contact us | Terms and Conditions | Downloads | Products | Services | Site map