Dynamisk nummer
Jeg er ved at lave en side hvor brugeren får et nummer som han skal bruge hvis han vil have pengene for varen refunderet. Jeg har lavet en funktion som automatisk henter et nummer mellem 1 - 9 og A - Z, hvilket ser sådan her ud:(Problemet er bare at det er det samme nummer der kommer ud hver gang, nemlig PJBL!)Function GetLetter()
intLetter = Fix(Rnd * 35)
Select Case intLetter
Case 0
Letter = "1"
Case 1
Letter = "2"
Case 2
Letter = "3"
Case 3
Letter = "4"
Case 4
Letter = "5"
Case 5
Letter = "6"
Case 6
Letter = "7"
Case 7
Letter = "8"
Case 8
Letter = "9"
Case 9
Letter = "A"
Case 10
Letter = "B"
Case 11
Letter = "C"
Case 12
Letter = "D"
Case 13
Letter = "E"
Case 14
Letter = "F"
Case 15
Letter = "G"
Case 16
Letter = "H"
Case 17
Letter = "I"
Case 18
Letter = "J"
Case 19
Letter = "K"
Case 20
Letter = "L"
Case 21
Letter = "M"
Case 22
Letter = "N"
Case 23
Letter = "O"
Case 24
Letter = "P"
Case 25
Letter = "Q"
Case 26
Letter = "R"
Case 27
Letter = "S"
Case 28
Letter = "T"
Case 29
Letter = "U"
Case 30
Letter = "V"
Case 31
Letter = "W"
Case 32
Letter = "X"
Case 33
Letter = "Y"
Case 34
Letter = "Z"
End Select
GetLetter = Letter
End Function
Mit script der bruger funktionen ser sådan her ud:
intLoop = 0
strLetterString = ""
Response.Write "<TD BGCOLOR='#000000' WIDTH='100'></TD>"
Do While intLoop < 4
Response.Write "<TD BGCOLOR='#000000'>"
strLetter = GetLetter()
Response.Write "<IMG SRC='i/l/" & strLetter & ".gif' BORDER='0'>"
Response.Write "</TD>"
strLetterString = strLetterString + strLetter
intLoop = intLoop + 1
Loop
Hvad er der galt?
