<% set Conn = server.createobject("adodb.connection") conn.open "provider=sqloledb;server=.\SQLEXPRESS;uid=sa;pwd=imtech;database=meldingen" set rsparent = Server.CreateObject("ADODB.Recordset") rsparent.CursorType = 0 rsparent.CursorLocation = 2 rsparent.LockType = 3 rsparent.open "Select top 10 meldnummer, wegnummer, wegletter, melddatum, tijdstip, hectometeraanduiding, rijbaanaanduiding, hectometerletter from VHDMAIL order by id desc",conn,1 set Conn_coord = server.createobject("adodb.connection") Conn_coord.Open "provider=sqloledb;server=.\SQLEXPRESS;uid=sa;pwd=imtech;database=meldingen" set rsparent_coord = Server.CreateObject("ADODB.Recordset") rsparent_coord.CursorType = 0 rsparent_coord.CursorLocation = 2 rsparent_coord.LockType = 3 %>

<% while not rsparent.eof l_wegletter = rsparent("wegletter") l_hectometerletter = rsparent("hectometerletter") If isnull(l_wegletter) then l_wegletter ="A" End if If l_wegletter ="A" then If isnull(l_hectometerletter) then rsparent_coord.open "Select * from stbl_hectometercoordinaten where wegletter is null and rijkswegnummer =" & rsparent("wegnummer") & " and hectometeraanduiding = " & rsparent("hectometeraanduiding") & " and rijbaanaanduiding = '" & rsparent("rijbaanaanduiding") & "' and hectometerletter = '" & rsparent("hectometerletter") & "'",conn_coord,1 If rsparent_coord.eof then rsparent_coord.close l_wegletter ="N" rsparent_coord.open "Select * from stbl_hectometercoordinaten where wegletter='N' and rijkswegnummer =" & rsparent("wegnummer") & " and hectometeraanduiding = " & rsparent("hectometeraanduiding") ,conn_coord,1 End if Else rsparent_coord.open "Select * from stbl_hectometercoordinaten where wegletter is null and rijkswegnummer =" & rsparent("wegnummer") & " and hectometeraanduiding = " & rsparent("hectometeraanduiding") & " and rijbaanaanduiding = '" & rsparent("rijbaanaanduiding") & "'",conn_coord,1 If rsparent_coord.eof then rsparent_coord.close l_wegletter ="N" rsparent_coord.open "Select * from stbl_hectometercoordinaten where wegletter='N' and rijkswegnummer =" & rsparent("wegnummer") & " and hectometeraanduiding = " & rsparent("hectometeraanduiding") ,conn_coord,1 End if End if Else rsparent_coord.open "Select * from stbl_hectometercoordinaten where wegletter='" & l_wegletter & "' and rijkswegnummer =" & rsparent("wegnummer") & " and hectometeraanduiding = " & rsparent("hectometeraanduiding") & " and rijbaanaanduiding = '" & rsparent("rijbaanaanduiding") & "'",conn_coord,1 If rsparent_coord.eof then rsparent_coord.close l_wegletter ="N" rsparent_coord.open "Select * from stbl_hectometercoordinaten where wegletter='N' and rijkswegnummer =" & rsparent("wegnummer") & " and hectometeraanduiding = " & rsparent("hectometeraanduiding") ,conn_coord,1 end if End if If rsparent_coord.eof then l_latitude = 0 l_longitude =0 else l_latitude = rsparent_coord("latitude") l_longitude = rsparent_coord("longitude") end if %> <% rsparent.movenext rsparent_coord.close wend %>

Datum	Tijd	Weg	Rijbaan	Hectometer	Selecteer
<% response.write rsparent("melddatum") %>	<% response.write rsparent("tijdstip") %>	<% response.write l_wegletter & rsparent("wegnummer") %>	<% response.write rsparent("rijbaanaanduiding") %>	<% response.write rsparent("hectometeraanduiding") %>	<% if l_latitude =0 then else response.write "Selecteer " end if %>