27358 total geeks with 3535 solutions
Recent challengers:
 Welcome, you are an anonymous user! [register] [login] Get a yourname@osix.net email address 

Articles

GEEK

User's box
Username:
Password:

Forgot password?
New account

Shoutbox
ewheregoose
[b][url=http ://www.chris tianloubouti n-outlet.com /]wholesale chri<strong> <a href="http:/ /www.christi anlouboutin- outlet.com/" >wholesale christian louboutin shoes</a></s trong> <br> <strong><a href="http:/ /www.christi anlouboutin- outlet.com/" >discount christia
ewheregoose
[b][url=http ://www.pando raukchrams.c om]pandora[/ url][/b] [b][url=http ://www.pando raukchrams.c om]padora charms[/url] [/b] [b][url =http://www. pandoraukchr ams.com]pand ora bracelet[/ur l][/b] http://www.c heapjerseysp opular.com/ cheap nfl jerseys, che ap
ewheregoose
<br><strong> <a href="http:/ /www.pandora ukchrams.com ">pandora</a ></strong> < br><strong>< a href="http:/ /www.pandora ukchrams.com ">padora charms</a></ strong> <str ong><a href="http:/ /www.pandora ukchrams.com ">pandora bracelet</a> </strong> <b r><br><br><b r><br><b
ewheregoose
[b][url=http ://www.moncl erjacketsout letco.com/]m oncler kids outlet[/url] [/b] [b][url=http ://www.moncl erjacketsout letco.com/]m oncler womens jackets[/url ][/b] volving passengers.S tandard airways thus charge higher airfares to maintain those scheduled rout
ewheregoose
[b][url=http ://www.nikes hoes-onlines .com/]nike[/ url][/b] [b]<a href="http:/ /www.nikesho es-onlines.c om/">nike outlet</a>[/ b] [b]<a href="http:/ /www.nikesho es-onlines.c om/">nike free run</a>[/b] http://www.c heapjerseysp opular.com/ cheap nfl jerseys

Donate
Donate and help us fund new challenges
Donate!
Due Date: Jan 31
January Goal: $30.00
Gross: $0.00
Net Balance: $0.00
Left to go: $30.00
Contributors


News Feeds
The Register
Uber isn"t limited
by the taxi market:
It"s limited by the
Electronic Thumb
market
SUPERHANDS! Fossils
of early human
ancestors reveal a
GRIPPING
development
Sly peers attempt
to thrust hated
Snoopers" Charter
into counter-terror
and security bil
Post-pub nosh
neckfiller:
Chickpea stew à
la
Bureau des
Projets Spéciaux
Chunky Swedish ice
maiden: Volvo XC60
D4 Manual EE Lux
Nav
"Linus Torvalds is
UNFIT for the
WORKPLACE!" And
you"ve given the
world what,
exactly
Broadmoor: My
Journey Into
Hell
, The
Chimes
and
Cowboys and
Indies
YOU. Your women are
mine. Give them to
me. I want to sell
them
Hibernating
NetMundial rattles
internet governance
world at Davos
SpaceX makes nice
with Air Force,
gets shot at black
ops launches
Slashdot
Doomsday Clock
Moved Two Minutes
Forward, To 23:57
Twitter Moves To
Curb Instagram
Links
In Addition To
Project Spartan,
Windows 10 Will
Include Internet
Explorer
OpenSSL 1.0.2
Released
Bomb Threats Via
Twitter Partly Shut
Down Atlanta"s
Hartsfield Airport
Ask Slashdot: Where
Can You Get a Good
3-Button Mouse
Today?
NVIDIA Responds To
GTX 970 Memory Bug
Bjarne Stroustrup
Awarded 2015
Dahl-Nygaard Prize
UHD Spec Stomps on
Current Blu-ray
Spec, But Will
Consumers Notice?
Winklevoss Twins
Plan Regulated
Bitcoin Exchange
Article viewer

ASP Function to Produce a random IDs



Written by:dimport
Published by:dimport
Published on:2003-06-21 07:19:46
Topic:ASP
Search OSI about ASP.More articles by dimport.
 viewed 7996 times send this article printer friendly

Digg this!
    Rate this article :
This nice little function will return a nice little random string which I use to create ID's for ALL my projects, in any language (just got to edit it). In all the time I have used this sub it has NEVER created the same string twice, and if your not happy with it, just call it twice and then it will half the chances again :D


 
'==============================
'============= CODE ============
'==============================

<%
Function Cript()

    Dim strLetters, g, i

    strLetters = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
    Randomize Timer
        i = Int(Rnd * 62) + 1
        g = Mid(strLetters, i, 1)
    Cript = Int(Rnd * 999999) + 1 & g

End Function
%>

'==============================
'============= END ============
'==============================

How To Use IT :
 
<% @LANGUAGE=VBScript %>
<% Option Explicit %>
<!-- #Include file="Functions.asp" -->
<%
Dim Cript_String

Cript_String = Cript

Response.Write(Cript_String)

%>


This article was originally written by Cadey

Did you like this article? There are hundreds more.

Comments:
<none>
Anonymously add a comment: (or register here)
(registration is really fast and we send you no spam)
BB Code is enabled.
Captcha Number:



     
Your Ad Here
 
Copyright Open Source Institute, 2006