Hi Guys,
Ok I am getting closer to solving this baby.
One problem I am having is to retreive the array from the item associated to a key in the dictionary.
Here is some of the code.
<%
'*******************************************************
'* Subroutines that are called by the runtime script *
'*******************************************************
'
Sub loadFleet()
' Declare Local Variables
Dim oConn ' Database connection string
Dim oRS ' ADOBD recordset
Dim sSQL ' Sql command string
Dim StrImgPath ' path to images
Dim Name ' Ship Name
Dim AirStrike ' Ship AirStrike factor
Dim Gunnery ' Ship Gunnery factor
Dim Patrol ' Ship Image Icon path
Dim TOA ' Ship Turn of arrival
Dim Speed ' Ships Speed factor
Dim Armor ' Ships Armor factor
' Initialization
StrImgPath = "./images/vitp/"
'StrImgPath = "/abscanet/img/ijnpt/"
' Create an ADO Connection to connect to the database.
Set oConn = Server.CreateObject("ADODB.Connection")
'Database Connection String includes path to database
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & "c:\vitp\ABSCANET1.mdb")
'oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\abscanet\db\ABSCANET.mdb"))
' Execute a query using the connection object. It automatically
' creates and returns a recordset which we store in our oRS variable.
sSQL = "SELECT Name, Patrol, TOA, AirStrike, Attack, Speed, Armor FROM IJNSHIPS"
sSQL = sSQL & " ORDER BY TOA Asc,AirStrike Desc, Attack Desc, Name Asc,Armor Desc"
Set oRS = oConn.Execute(sSQL)
' Loop through the recordset adding each ship to the
' dFleet dictionary use MoveNext to read the next record,
' stopping when oRS.EOF is reached.
Dim fleet
Dim i, Ship, obKey, thisitem, thiskey, shipParams
Do While Not oRS.EOF
i = i + 1
Name = oRS.FIELDS("Name")
AirStrike = oRS.FIELDS("AirStrike")
Gunnery = oRS.FIELDS("Attack")
Patrol = StrImgPath & oRS.FIELDS("Patrol")
TOA = oRS.FIELDS("TOA")
Speed = oRS.FIELDS("Speed")
Armor = oRS.FIELDS("Armor")
shipParams = Array Name,AirStrike,Gunnery,Patrol,TOA,Speed,Armor)
dFleet.Add i, shipParams
oRS.MoveNext
Loop
' Close the recordset and database connection and dispose of them.
oRS.Close
oConn.Close
Set oRS = Nothing
Set oConn = Nothing
' End If
End Sub
'*******************************************************
'* *
'* showFleet *
'* This subroutin shos the available fleet *
'* *
'*******************************************************
Sub showdFleet()
Dim fkey
Dim fitem
%>
<font size=4>Available Fleet</font>
<TABLE Border=1 CellPadding=1 CellSpacing=1 width="127">
<TR>
<TD>Unit</TD>
<TD>Melee</TD>
</TR>
<%
fkeys = dFleet.Keys
fitems = dFleet.Items
For i = 0 to dFleet.Count - 1
fkey = fkeys(i)
fitem = fitems(i)
response.write fitem & "This is the item array <br>"
%>
<TR>
<TD width="46"><img width=42 height=42 border=0 vspace=0 SRC="<%= fitem%>"><br><%= fitem%></TD>
<TD ALIGN=Left valign=Bottom width="65"><A HREF="./firemission5.asp?action=AddShip&Ship=<%= fkey %>">Add</A></TD>
</TR>
<%
Next
%>
</TABLE>
<%
End Sub
I am unable to extract the items associated to the key, I keep getting subscript out of range or type mismatch.
I have tried various ways to extract it, but all have failed.
How do you code something to pull that array out and split it ?
I mean if it can store it no problem, why should it be so difficult to extract it and split it.
Angelo