<%
set objDBConn = Server.CreateObject("ADODB.Connection")
objDBConn.Provider = ConnectionProvider
objDBConn.Open ConnectionString
if request.form("fc_sn")<>"" then
fc_sn = cint(request.form("fc_sn"))
else
fc_sn = request.querystring("fc_sn")
end if
if fc_sn<>"" then fc_sn=cint(fc_sn) else fc_sn=1 end if
Str="123456789"
for i=1 to len(str)
str1=str1&mid(str,i,1)&","
next
str2=split(str1,",")
num1=ubound(str2)
Randomize
select1=cint(right(int(num1*rnd+1),1))
%>
