---

heyza

Jeg er ved at lave en side hvor folk kan uploade 3 billeder af
deres kabinet samme med noget info...
Derfor bruger jeg ASPsmartupload til at uploade med og så vil jeg
have den til at gemme de 3 filer som her: <nicknavn> - <fil nr.>
<endelse>. Hvis I forstår..

Jeg bruge denne commando:
*file.SaveAs("/gallery/images/" &request.form"nick" & "-" & < og
*hvordan laver jeg den slags counter?> &"-" & file.FileExt )

Hvordan får jeg den til at skrive 1.2.3 ved de forskellige
uploads? Jeg har jo 3 forms..
* <input type="file" name="File1">
* <input type="file" name="File2">
* <input type="file" name="File3">


Her kommer så mit andet problem....
Hvordan laver jeg så jeg har et script som auto laver en password
på f.eks 8 cifre? Skal bruges til at sende ud per mail, så folk
kan ændre i deres oplysninger..

--
Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

---

Her er noget gammel kode jeg havde liggende. Der udskrives 50 pwd, men du
kan jo bare nøjes med at udskrive 1 og så sende det med en mail

bemærk linien ********* strPWD = RandomPW(8) ********** det er tallet i ()
der bestemmer antal karakterer i pwd

<%
Function RandomPW(myLength)


Dim X, Y, strPW


For X = 1 To myLength
'Randomize the type of this character
Y = Int((3 * Rnd) + 1) '(1) Numeric, (2) Uppercase, (3) Lowercase

Select Case Y
Case 1
'Numeric character
Randomize
strPW = strPW & CHR(Int((9 * Rnd) + 48))
Case 2
'Uppercase character
Randomize
strPW = strPW & CHR(Int((25 * Rnd) + 65))
Case 3
'Lowercase character
Randomize
strPW = strPW & CHR(Int((25 * Rnd) + 97))

End Select
Next

RandomPW = strPW

End Function


dim strPWD

strPWD = RandomPW(8)

Response.Write strPWD

Dim fs, i, x
Dim strTemp

Response.Write "<U><B>Here are 50 Random " & _
"Passwords:</B></U><BR>"

Set fs = CreateObject("Scripting.FileSystemObject")

For x = 1 to 50
'Get just the filename part of the temp name path
strTemp = fs.GetBaseName(fs.GetTempName)

'Hack off the 'rad'
strTemp = Right(strTemp, Len(strTemp) -3 )

Response.Write strTemp & "<br>"
Next

Set fs = Nothing


%>

--

Mvh / Regards
-=< Christian >=-
What capital has 164 letters in its name? See my web page to find out.
http://www.cmnielsen.dk ICQ: 25308942
" If something's hard to do, then it's not worth doing. Homer J. Simpson"