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