Ik heb de volgende asp site.
<head>
<title>Halteschouw Lijn X</title>
</head>
<body alink="#000000" vlink="#000000" link="#000000" topmargin="0" leftmargin="0" bottommargin="0">
[img]"afbeeldingen/Kaart%20Arnhem-Apeldoorn.jpg"[/img]
<%
response.write "<style type='text/css'>" & vbCrLf
response.write "img.achtergrond" & vbCrLf
response.write "{" & vbCrLf
response.write "position:absolute;" & vbCrLf
response.write "left:11px;" & vbCrLf
response.write "top:6px;" & vbCrLf
response.write "z-index:0" & vbCrLf
response.write "}" & vbCrLf
response.write "</style>" & vbCrLf
Dim Connection 'Als ADODB.Connection
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" & Server.MapPath("database\database.mdb") & ";"
Connection.Open
Dim rs'Als ADODB.Recordset
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "Select distinct * from halte order by Z", Connection
rs.movefirst
While NOT rs.EOF
response.write "<style type='text/css'>" & vbCrLf
response.write "img." & rs("Z") &"" & vbCrLf
response.write "{" & vbCrLf
response.write "position:absolute;" & vbCrLf
response.write "left:"& rs("X") &"px;" & vbCrLf
response.write "top:"& rs("Y") &"px;" & vbCrLf
response.write "z-index:"& rs("Z") &";" & vbCrLf
response.write "}" & vbCrLf
response.write "</style>" & vbCrLf
response.write "<a href=""halteschouw.asp"">
[img]""afbeeldingen/sterretje.gif""[/img]</a>" & vbCrLf
rs.MoveNext
WEnd
rs.Close
Connection.Close
set rs = nothing
set Connection = nothing
%>
</body>
</html>
Ik kan op een of andere manier niet alle sterretjes op de juiste plek in beeld krijgen. Ik heb een recorset met 33 records
de recordset ziet er als volgt uit.
X Y Z
1 1 1
21 21 2
41 41 3
61 61 4
81 81 5
101 101 6
121 121 7
141 141 8
161 161 9
181 181 10
201 201 11
221 221 12
241 241 13
261 261 14
281 281 15
301 301 16
321 321 17
341 341 18
361 361 19
381 381 20
401 401 21
421 421 22
441 441 23
461 461 24
481 481 25
501 501 26
521 521 27
541 541 28
561 561 29
581 581 30
601 601 31
621 621 32
641 641 33
tot en met record 31 gaat het goed.
daarna de overige 2 sterretje worden linksboven in de browser geplaatst.
Wie weet hoe dit kan, en belangrijker nog, wie weet hoe je dit kunt voorkomen.
Ik daag jullie uit.
Groet Wouter.
<head>
<title>Halteschouw Lijn X</title>
</head>
<body alink="#000000" vlink="#000000" link="#000000" topmargin="0" leftmargin="0" bottommargin="0">
[img]"afbeeldingen/Kaart%20Arnhem-Apeldoorn.jpg"[/img]
<%
response.write "<style type='text/css'>" & vbCrLf
response.write "img.achtergrond" & vbCrLf
response.write "{" & vbCrLf
response.write "position:absolute;" & vbCrLf
response.write "left:11px;" & vbCrLf
response.write "top:6px;" & vbCrLf
response.write "z-index:0" & vbCrLf
response.write "}" & vbCrLf
response.write "</style>" & vbCrLf
Dim Connection 'Als ADODB.Connection
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" & Server.MapPath("database\database.mdb") & ";"
Connection.Open
Dim rs'Als ADODB.Recordset
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "Select distinct * from halte order by Z", Connection
rs.movefirst
While NOT rs.EOF
response.write "<style type='text/css'>" & vbCrLf
response.write "img." & rs("Z") &"" & vbCrLf
response.write "{" & vbCrLf
response.write "position:absolute;" & vbCrLf
response.write "left:"& rs("X") &"px;" & vbCrLf
response.write "top:"& rs("Y") &"px;" & vbCrLf
response.write "z-index:"& rs("Z") &";" & vbCrLf
response.write "}" & vbCrLf
response.write "</style>" & vbCrLf
response.write "<a href=""halteschouw.asp"">
[img]""afbeeldingen/sterretje.gif""[/img]</a>" & vbCrLf
rs.MoveNext
WEnd
rs.Close
Connection.Close
set rs = nothing
set Connection = nothing
%>
</body>
</html>
Ik kan op een of andere manier niet alle sterretjes op de juiste plek in beeld krijgen. Ik heb een recorset met 33 records
de recordset ziet er als volgt uit.
X Y Z
1 1 1
21 21 2
41 41 3
61 61 4
81 81 5
101 101 6
121 121 7
141 141 8
161 161 9
181 181 10
201 201 11
221 221 12
241 241 13
261 261 14
281 281 15
301 301 16
321 321 17
341 341 18
361 361 19
381 381 20
401 401 21
421 421 22
441 441 23
461 461 24
481 481 25
501 501 26
521 521 27
541 541 28
561 561 29
581 581 30
601 601 31
621 621 32
641 641 33
tot en met record 31 gaat het goed.
daarna de overige 2 sterretje worden linksboven in de browser geplaatst.
Wie weet hoe dit kan, en belangrijker nog, wie weet hoe je dit kunt voorkomen.
Ik daag jullie uit.
Groet Wouter.