I've been searching for a while, and have not been able to find a working solution.
I'm trying to change the name of multiple strings within some serverside vbscript, depending on the loop integer.
The code I am trying to loop through is:
Expand|Select|Wrap|Line Numbers
- SQL = "SELECT * FROM tblPackingDetails WHERE ((tblPackingDetails.ShippmentNumber = '"&ShippingNumber&"') AND (tblPackingDetails.CaseNo = '4'))"
- Set rs = Server.CreateObject("ADODB.Recordset")
- rs.open SQL, Conn
- if Not rs.EOF Then
- Case4DimL = rs("CaseDimL")
- Case4DimL = Trim(Case4DimL)
- Case4DimW = rs("CaseDimW")
- Case4DimW = Trim(Case4DimW)
- Case4DimH = rs("CaseDimH")
- Case4DimH = Trim(Case4DimH)
- Volume4 = rs("Volume")
- Volume4 = Trim(Volume4)
- Weight4 = rs("Weight")
- Weight4 = Trim(Weight4)
- End if
Expand|Select|Wrap|Line Numbers
- i = 1
- Do
- SQL = "SELECT * FROM tblPackingDetails WHERE ((tblPackingDetails.ShippmentNumber = '"&ShippingNumber&"') AND (tblPackingDetails.CaseNo = '"&i&"'))"
- response.write(SQL)
- Set rs = Server.CreateObject("ADODB.Recordset")
- rs.open SQL, Conn
- if Not rs.EOF Then
- Case1 &i& DimL = rs("CaseDimL")
- Case1+i+DimL = Trim(Case1&i&DimL)
- Case2DimW = rs("CaseDimW")
- Case2DimW = Trim(Case2DimW)
- Case2DimH = rs("CaseDimH")
- Case2DimH = Trim(Case2DimH)
- Volume2 = rs("Volume")
- Volume2 = Trim(Volume2)
- Weight2 = rs("Weight")
- Weight2 = Trim(Weight2)
- End if
- i = i + 1
- Loop Until i = 10
Pete.