게시판 본문 ASP, ASP.NET, IIS & Script - Read Only

<!--#include file="include/connections.asp"-->
<!-- 추천 시리얼 넘버 -->
<%
'첫 번째 자리
count = 0
do until 0
if count = 4 then
exit do
end if

randomize
A = int((1 - 90 + 65) * Rnd + 90)
strA = strA&chr(A)
count = count + 1
loop
%>
<%
'두 번째 자리
count = 0
do until 0
if count = 4 then
exit do
end if

randomize
B = int((1 - 57 + 48) * Rnd + 57)
strB = strB&chr(B)
count = count + 1
loop
%>
<%
'세 번째 자리
count = 0
do until 0
if count = 4 then
exit do
end if

randomize
C = int((1 - 57 + 48) * Rnd + 57)
strC = strC&chr(C)
count = count + 1
loop
%>
<%
'네 번째 자리
count = 0
do until 0
if count = 4 then
exit do
end if

randomize
D = int((1 - 90 + 65) * Rnd + 90)
strD = strD&chr(D)
count = count + 1
loop
%>

<%
'결과
SerialNumber = strA&"-"&strB&"-"&strC&"-"&strD
%>
<%
'테이블에서 확인
openconnection
strSQL = "SELECT * FROM sw_SN_tbl WHERE sn_Number = '" & SerialNumber & "'"
set rs=cn.execute(strSQL)
if Not(rs.EOF) then
NoData = false
else
NoData = true
end if
set rs=nothing
closeconnection
%>
<%if NoData = true then%>
시리얼 넘버는 <%=SerialNumber%>를 추천 합니다.
<%Else%>
<script language="javascript">
window.setTimeout('window.location.reload()',1000);
</script>
<%End IF%>

허접하게나마 웹에서 시리얼 넘버 생성 하는 것을 만들어 보았습니다.
랜덤 함수를 사용 하여 영문과 숫자 조합으로 된 시리얼 넘버인데요....
문제가 좀 있네요.
테이블에서 확인을 하는데 이미 값이 있으면 다른 시리얼 넘버를 생성 해야 하는데
그래서 NoData 가 False이면 다시 값을 생성해서 또 테이블과 비교 한 후에 없으면 NoData= Ture가 된 후 메시지를 뿌려 줘야 하는데....
어떤 부분에서 조건문을 걸어야 하는 지 난감합니다.

즉 순서는 이렇습니다.
랜덤으로 시리얼 넘버 생성한다.
테이블과 값을 비교 한다
비교 대상의 값이 없으면 메시지를 뿌려 준다.
비교 대상의 값이 있으면 다시 랜덤으로 시리얼 넘버 생성 한다.

근데 한가지만 더요.
속도 문제 인데요. 이렇게 랜덤 함수 사용 하여 시리얼 넘버 생성 하면 속도의 문제는 없나요?
만약 속도 문제가 있다면 다른 더 좋은 방법은 없나요?