ASP Subroutines

Hej alle eksperter!

For laaaang tid siden skrev jeg med en fra USA.
Mit spørgsmål var dengang hvordan jeg fik lavet mig et landkort til mit tekstbaserede spil her på nettet..

Ham og jeg fik i løbet af samtalen skrevet følgende kode - hvori han skrev kommentarer ved noget jeg skulle ændre.. Problemet er bare - at jeg slet ikke kan forstå hvad koden skal gøre og derfor ikke aner hvad jeg skal rette... :s ? ?

Håber I kan hjælpe - selvom der er en hel del kode..
I får self top point for, at hjælpe mig igennem mit problem..

<%@Language=VBSCRIPT%>
   
    <%
    Const ROWS = 7
    Const COLS = 7
   
    ' This says return text, do you really want that in a web page
    ' Response.ContentType="text/plain"
   
    ' 1,1 is clearly just a test
    ' Call WriteState(1, 1)
   
    ' Read the code, this stops the page dead
    ' Response.End
   
    function getDb()
        strConn = "Driver={MySQL ODBC 3.51 Driver};server=mydb17.surftown.dk;Database=WorldWa_Bkock;uid=WorldWa_bkock;pwd=coolspil;"
        set Net= Server.CreateObject("ADODB.Connection")
        Net.Open strConn
        strIP = Request.ServerVariables("REMOTE_ADDR")
      set getDb = Net
    end function
   
    Sub WriteState(x, y)
            Response.Write "var MapState = {"
            Response.Write "'X' : " & x & ","
            Response.Write "'Y' : " & y & ","
            Response.Write "'ROWS' : " & ROWS & ","
            Response.Write "'COLS' : " & COLS & ","
            Response.Write "'IMG_WIDTH' : 40,"
            Response.Write "'IMG_HEIGHT' : 40,"
            Response.Write "'IMG_KEY' : ["
            Response.Write "'http://www.public-domain-photos.com/free-cliparts-1/signs_and_symbols/led/led_square_yellow.png',"
            Response.Write "'http://www.public-domain-photos.com/free-cliparts-1/signs_and_symbols/led/led_square_purple.png',"
            Response.Write "'http://www.public-domain-photos.com/free-cliparts-1/signs_and_symbols/led/led_square_red.png',"
            Response.Write "],"
            Response.Write "'DETAIL' : ["
            Call WriteStateDetail(x, y)
            Response.Write "],"
            Response.Write "};"
    End Sub
   
    Sub WriteStateDetail(x, y)
            Dim sql, rs, x2, y2, db
            Dim grid()
            ReDim grid(COLS,ROWS)
     
            for y2=0 to ROWS-1
                    for x2=0 to COLS-1
                            grid(x2,y2) = 0
                    next
            next
     
            sql = "SELECT x,y,tip FROM map" _
                    & " where x between " & x & " and " & (x+COLS-1) _
                    & " and y between " & y & " and " & (y+ROWS-1)
            Set db = getDb()
            Set rs = db.execute(sql)
            Do While Not rs.EOF
                x2 = CInt(rs("x")) - x
                    y2 = CInt(rs("y")) - y
                    grid(x2,y2) = rs("tip")
                    rs.MoveNext
            Loop
            db.close
           
            for y2=0 to ROWS-1
                    Response.Write "["
                    for x2=0 to COLS-1
                            if x2>0 then Response.Write ","
                            Response.Write grid(x2,y2)
                    next
                    Response.Write "],"
            next
    End Sub
    %>
           
           
    <script type="application/javascript">
    <%
        ' where, exactly, do x2 and y2 come from?
        'Call WriteState(x2, y2)
        reqX = 0
        reqY = 0
        If Request.querystring("x") <> "" Then
            reqX = CInt(Request.querystring("x"))
        End If
        If Request.querystring("y") <> "" Then
            reqY = CInt(Request.querystring("y"))
        End If
        Call WriteState(reqX, reqY)
    %>
drawDetail(MapState);
<!-- this script tag is a concern; you will want to define drawDetail and the rest of the web page -->
    </script>


Er der nogen der har et foreslag! Al hjælp vil være værdsat! :)