Codigo de compra aleatorio

[webartist]

Hola quisiera saber cómo hacer para que en un carrito de compra, cuando se remita el formulario con la tarjeta de credito, me de un codigo aleatorio de compra. Por ejemplo:
AANSMMAS124asda12
O algo, de por lo menos 8 digitos
Saludos.
Alguien sabe si se puede hacer algo asi?

[lexus]

Hla, yo uso este codigo para generar un codigo aleatorio para claves y me funciona perfecto, usalo talcual


coloca esto primero


<%
Dim nCardId, sNameTo, sNameFrom, sEmailFrom, sText, sBGColor, sTextColor, sEmailTo
Dim sOtherId
Function Password_GenPass( nNoChars, sValidChars )


Const szDefault = "abcdefghijklmnopqrstuvxyzABCDEFGHIJKLMNOPQRS TUVXYZ0123456789"
Dim nCount
Dim sRet
Dim nNumber
Dim nLength

Randomize

If sValidChars = "" Then
sValidChars = szDefault
End If
nLength = Len( sValidChars )

For nCount = 1 To nNoChars
nNumber = Int((nLength * Rnd) + 1)
sRet = sRet & Mid( sValidChars, nNumber, 1 )
Next
Password_GenPass = sRet
End Function
sOtherId = Password_GenPass( 10, "" )
' donde vez el numero 10 es para el numero
'de digitos que deseas para tu codigo.
%>


y donde quieras colocar el codigo generado por esta funcion coloca esto

& sOtherId &

o <%=sOtherId&>


espero te sirva

suerte

PD: lo que hace este codigo es generarte una caddena de caracteres de 10 digitos con letras y numeros, mayusculas y minusculas.
por ejemplo: qMi78k3Sp1


<img src="http://www.lexus.com/images/nav/nav_i_logo.gif" width="109" height="47" alt="Lexus" border="0">

[webartist]

Gracias, funciona muy bien, era exactamente eso lo que buscaba.
Muchas Gracias amigo.

GastoN.
Buenos Aires.
-------------
Vení a conocer la nueva era en música digital on line