<% 'randomise and generate a new code number randomize(timer) ss=Cstr(cint(rnd()*9)) 'write out new code number Set fs = CreateObject("Scripting.FileSystemObject") Set wfile = fs.CreateTextFile("\\Ws-server\cdisc\Inetpub\wwwroot\images\code.txt", True) wfile.Writeline (ss) wfile.close Set wfile=nothing Set fs=nothing 'Get code number Set fs = CreateObject("Scripting.FileSystemObject") Set wfile = fs.OpenTextFile("\\Ws-server\cdisc\Inetpub\wwwroot\images\code.txt") singleline=wfile.readline code=singleline wfile.close Set wfile=nothing select case code case 0 sp="Ms2Vz" case 1 sp="19734" case 2 sp="85373" case 3 sp="5921" case 4 sp="44810" case 5 sp="37296" case 6 sp="dvYek" case 7 sp="A578p" case 8 sp="FV2Jv" case 9 sp="h7139" end select %>
 
39 Field Squadron Royal Engineers in Aden


<% if request.querystring("err") = "1" then%>
Error: you must enter your Name


<%end if if request.querystring("err") = "2" then%>
Error: you must enter your Email Address


<%end if if request.querystring("err") = "3" then%>
Error: you must leave some Comments


<%end if if request.querystring("err") = "4" then%>
Error: you must enter the numbers and letters exactly as displayed


<%end if if request.querystring("err") = "5" then%>
Error: you must enter a valid Email Address


<%end if %>
Name:
E-mail:
Homepage:
 

Leave Blank if you don't have a Home Page

Comments:
Input these numbers
and letters exactly
as displayed:

     <% =sp%>

   
   
 

By clicking on the above button some of your personal details such as your name and email address will be made visible to others who may read the Guest Book. Clicking the button infers that you agree with the conditions of this site.

  Please refer to the Privacy Page
   
 
 

 

<% 'Random number/letter generator 'generates random groups of leters and numbers of random lengths 1 to 7 characters long For t = 1 To 1000 Randomize (Timer) product = "" For y = 1 To Int(Rnd() * 7) Randomize numberorletter = (Int(Rnd() * 2)) If numberorletter = 0 Then sp = CStr(CInt(Rnd() * 9)): product = product + sp If numberorletter = 1 Then xx = CStr(CInt(Rnd() * 80)) + 65: sp = Chr(xx): product = product + sp Next response.write (product & " ") Next %>