gwayne
02-28-2003, 04:23 AM
Hello,
I'm having a problem using a numeric data element submitted by my form. I'm checking for a numeric value, but it seems to be coming in blank. Is it necessary to convert the item to an integer?
*** This code doesn't work - Num_PPAC form item sets TNT:
If ((Request("Num_PPAC") <> "") And (isnumeric(Request("Num_PPAC")))) Then
TNT = CInt(Num_PPAC)
ReDim Temp_PPADCode(TNT)
If Request("GenCodes") <> "" Then
X = 1
Do while X <= TNT
RandStuff = RndStr(7,"123456789abcdefghijkmnpqrstuvwxyz")
Temp_PPADCode(X) = Request("PPAC_PREFIX") & RandStuff
X = X + 1
Loop
pMsg = "TNT = " & TNT
Session("STemp_PPADCode") = Temp_PPADCode
End If
*** This code does work - TNT set to 10:
If ((Request("Num_PPAC") <> "") And (isnumeric(Request("Num_PPAC")))) Then
TNT = 10
ReDim Temp_PPADCode(TNT)
If Request("GenCodes") <> "" Then
X = 1
Do while X <= TNT
RandStuff = RndStr(7,"123456789abcdefghijkmnpqrstuvwxyz")
Temp_PPADCode(X) = Request("PPAC_PREFIX") & RandStuff
X = X + 1
Loop
pMsg = "TNT = " & TNT
Session("STemp_PPADCode") = Temp_PPADCode
End If
Thanks.
I'm having a problem using a numeric data element submitted by my form. I'm checking for a numeric value, but it seems to be coming in blank. Is it necessary to convert the item to an integer?
*** This code doesn't work - Num_PPAC form item sets TNT:
If ((Request("Num_PPAC") <> "") And (isnumeric(Request("Num_PPAC")))) Then
TNT = CInt(Num_PPAC)
ReDim Temp_PPADCode(TNT)
If Request("GenCodes") <> "" Then
X = 1
Do while X <= TNT
RandStuff = RndStr(7,"123456789abcdefghijkmnpqrstuvwxyz")
Temp_PPADCode(X) = Request("PPAC_PREFIX") & RandStuff
X = X + 1
Loop
pMsg = "TNT = " & TNT
Session("STemp_PPADCode") = Temp_PPADCode
End If
*** This code does work - TNT set to 10:
If ((Request("Num_PPAC") <> "") And (isnumeric(Request("Num_PPAC")))) Then
TNT = 10
ReDim Temp_PPADCode(TNT)
If Request("GenCodes") <> "" Then
X = 1
Do while X <= TNT
RandStuff = RndStr(7,"123456789abcdefghijkmnpqrstuvwxyz")
Temp_PPADCode(X) = Request("PPAC_PREFIX") & RandStuff
X = X + 1
Loop
pMsg = "TNT = " & TNT
Session("STemp_PPADCode") = Temp_PPADCode
End If
Thanks.