November 30th, 2006, 09:51 AM
|
|
Contributing User
|
|
Join Date: Aug 2005
Location: North East, UK
|
|
Here is a script to generate a random string. 8 letters 1 number.
It also has a check to make sure a duplicate record is not inserted.
Code:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open Server.MapPath("RandomOrderNumber.mdb")
%>
<%
Function getRand()
Randomize
lowestNumber=0
highestNumber=9
MyOrderNum = Int((highestNumber - lowestNumber + 1) * Rnd + lowestNumber)
lowestLetter=65
highestLetter=90
For x=1 To 8
MyOrderLetter = MyOrderLetter & Chr(Int((highestLetter - lowestLetter + 1) * Rnd + lowestLetter))
Next
getRand = MyOrderLetter & MyOrderNum
End Function
Function InsertData(ordernum)
sql = "SELECT orderno FROM orders WHERE orderno = '" & ordernum & "'"
'Response.Write sql
set rs=Server.CreateObject("ADODB.recordset")
rs.Open sql, conn
If Not rs.EOF Then
InsertData = False
Response.Write "<span style=""color:red"">" & ordernum & ": " & "NOT ADDED</span><br>"
rs.Close
Else
sql = "INSERT INTO orders (orderno) VALUES ('" & ordernum & "')"
InsertData = True
Response.Write ordernum & ": " & "ADDED<br>"
conn.Execute sql
End If
End Function
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Untitled Document</title>
</head>
<body>
<form name="form1" method="post" action="">
<input name="Add" type="submit" id="Add" value="Add Records">
<input name="Show" type="submit" id="Show" value="Show All Records">
<input name="Clear" type="submit" id="Clear" value="Delete All Records">
<input name="Test" type="submit" id="Test" value="Test">
<input name="orderno" type="text" id="orderno" maxlength="10">
</form>
<%
If Len(Request.Form("Add")) > 0 Then
Count = 0
Called = 0
Do Until Count = 100
tmp = InsertData(getRand)
If tmp <> False Then
Count = Count + 1
End If
Called = Called + 1
Loop
Response.Write "Called " & Called & " Times<br>"
Response.Write Count & " Records Added"
End If
If Len(Request.Form("Show")) > 0 Then
set rs=Server.CreateObject("ADODB.recordset")
sql = "SELECT id, orderno FROM orders"
rs.Open sql, conn
Response.Write "<table border=""1"" cellspacing=""0""><tr><td>Count</td><td>ID</td><td>OrderNo</td></tr>"
Do While Not rs.EOF
Count = Count + 1
Response.Write "<tr><td>" & Count & "</td><td>" & rs("id") & "</td><td>" & rs("orderno") & "</td></tr>"
rs.MoveNext
Loop
Response.Write "</table>"
rs.Close
End If
If Len(Request.Form("Test")) > 0 Then
If Request.Form("orderno") <> "" Then
orderno = Request.Form("orderno")
Else
orderno = 0
End If
set rs=Server.CreateObject("ADODB.recordset")
sql = "SELECT id, orderno FROM orders WHERE orderno='" & orderno & "'"
rs.Open sql, conn
If Not rs.EOF Then
Response.Write orderno & " Exists<br>"
Else
Response.Write orderno & " does not exist<br>"
End If
End If
If Len(Request.Form("Clear")) > 0 Then
set rs=Server.CreateObject("ADODB.recordset")
sql = "DELETE FROM orders"
rs.Open sql, conn
Response.Write "Records Deleted"
End If
%>
</body>
</html>
<%
conn.Close
%>
|
ASP Free Forums Sponsor:
Create new id
Del.icio.us
Digg
Google
Spurl
Blink
Furl
Simpy
Y! MyWeb
Linear Mode
