Solved

How to generate a random number (13 digits) between 9999999999999 - 0000000000001

Posted on 2003-11-06
7
307 Views
Last Modified: 2008-02-01
Hello,
I am trying to generate a random number and I am sucessful doing that:
       Randomize
          strOrderNo = INT((9999999999999 - 0000000000001 + 1) * RND + 0000000000001)

Then update the database with this number plus other options for example depending on what I passed and evently when the click the link I would check the querystring to update the database for each click they do or tell them it is expired:

Function Randomize(Clicks,ExpireDate,ExpireTime)
      Dim sql
      If bGoodToGo = True Then
            sql = "insert into NewTravelRequest" &_
            "(ID,Number,Clicks,ExpireDate,ExpireTime)" &_
              "values(" & ID & ", '" & Number & "', '" & Clicks & "', '" & ExpireDate & "', '" ExpireTime & "')"
      Else
                Do Until bGoodToGo
                Randomize
                strOrderNo = INT((9999999999999 - 0000000000001 + 1) * RND + 0000000000001)
                'strOrderNo = "8888888888888"
           
                bGoodToGo = False
                If Len(strOrderNo) = 13 Then
            ' we have a 13 char string so now test DB that this 13 char Key is unique
                  Response.Write "We have 13 chars<br>" & VBCRLF
                  ' TODO: Do DB test here
                  sql = "SELECT * FROM DownloadID"
                  oRS.Open sql, oConn, 3, 3
                  Do until oRS.EOF
                  strDBNo = Trim(oRS("Number"))
                  Response.Write "Database Numbers: " & strDBNo & "<br>" & VBCRLF
                        If strDBNo <> strOrderNo Then
                                 bGoodToGo = True
                                 Response.Write "Number doesn't exist<br>" & VBCRLF
                         Else
                               ' was already used so
                                bGoodToGo = False
                                Response.Write "Number does exist<br>" & VBCRLF
                                Exit Do
                        End If
                 oRS.MoveNext
                 Loop
                End If    
              loop
        End If
End Function
0
Comment
Question by:mfwebteam
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 3
  • 3
7 Comments
 

Author Comment

by:mfwebteam
ID: 9696846
The line sql = "insert into NewTravelRequest" &_
Should read : "insert into DownloadID" &_
0
 
LVL 58

Expert Comment

by:Gary
ID: 9697000
...and the problem is?
0
 
LVL 3

Expert Comment

by:Neil Thompson
ID: 9699805
The easiest way for a truly random mix (including upper/lower characters) how about:

<% Option Explicit %>

<%
Response.Write RandomPW(13) & "<br>" & vbCrLf

Function RandomPW(myLength)

      
      Dim X, Y, strPW
      
      If myLength = 0 Then
            Randomize
            myLength = Int((10 * Rnd) + 10)
      End If

            For X = 1 To myLength
            'Randomize the type of this character
            Y = Int((3 * Rnd) + 1)
            
            Select Case Y
                  Case 1'Numeric character
                        Randomize
                        strPW = strPW & CHR(Int((9 * Rnd) + 48))
                  Case 2
                        Randomize
                        strPW = strPW & CHR(Int((25 * Rnd) + 65))
                  Case 3
                        Randomize
                        strPW = strPW & CHR(Int((25 * Rnd) + 97))

            End Select
      Next
      
      RandomPW = strPW

End Function

%>



Neil
0
Technology Partners: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 
LVL 3

Expert Comment

by:Neil Thompson
ID: 9699806
The easiest way for a truly random mix (including upper/lower characters) how about:

<% Option Explicit %>

<%
Response.Write RandomPW(13) & "<br>" & vbCrLf

Function RandomPW(myLength)

      
      Dim X, Y, strPW
      
      If myLength = 0 Then
            Randomize
            myLength = Int((10 * Rnd) + 10)
      End If

            For X = 1 To myLength
            'Randomize the type of this character
            Y = Int((3 * Rnd) + 1)
            
            Select Case Y
                  Case 1'Numeric character
                        Randomize
                        strPW = strPW & CHR(Int((9 * Rnd) + 48))
                  Case 2
                        Randomize
                        strPW = strPW & CHR(Int((25 * Rnd) + 65))
                  Case 3
                        Randomize
                        strPW = strPW & CHR(Int((25 * Rnd) + 97))

            End Select
      Next
      
      RandomPW = strPW

End Function

%>



Neil
0
 

Author Comment

by:mfwebteam
ID: 9701071
The problem is that I am not sure how to do it in the following steps.
1. Generate the random number
2. Check if it is in the databse
        - If not: then insert into database
        - If yes: then run the random generator again
3. have a parameter like "click" that I can specify so that everytime the user clicks on the link it will update the database in the clicks column with 1 then 2 then 3 then 4 and so on until it hits the number I specified.

Hopes this clears up what I want to do.
0
 
LVL 3

Accepted Solution

by:
Neil Thompson earned 125 total points
ID: 9701207
1) if you use my code above simply:

Open the db connection

'Set a variable
varRandNum = RandomPW(13)

...select * from DB WHERE [YOUR NUMBER FIELD] = '" & varRandNum & "'"

'check if it is EOF :

if oRS.eof ' number does not exist
   '... add to database
   '... update
else
   ' call the random generator again
varRandNum = RandomPW(13)
' recheck with another loop if required
' update the database
end if

' close oRS and db



why do you want to update the database with clicks 1 ++ ?

Neil
0
 

Author Comment

by:mfwebteam
ID: 9701360
I want to set the number of clicks on the url so that I can expire the link after a certain number.
0

Featured Post

Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

I recently decide that I needed a way to make my pages scream on the net.   While searching around how I can accomplish this I stumbled across a great article that stated "minimize the server requests." I got to thinking, hey, I use more than one…
I have helped a lot of people on EE with their coding sources and have enjoyed near about every minute of it. Sometimes it can get a little tedious but it is always a challenge and the one thing that I always say is:   The Exchange of informatio…
I've attached the XLSM Excel spreadsheet I used in the video and also text files containing the macros used below. https://filedb.experts-exchange.com/incoming/2017/03_w12/1151775/Permutations.txt https://filedb.experts-exchange.com/incoming/201…
How to Install VMware Tools in Red Hat Enterprise Linux 6.4 (RHEL 6.4) Step-by-Step Tutorial

734 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question