codice:
<%
'connessione a DB
set Cn = Server.createObject("ADODB.Connection")
PosizioneDB = Server.mappath("nf.mdb")
Cn.open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" + PosizioneDB
set strutture = Server.createObject("ADODB.Recordset") 'tabella con strutture della città
strutture.open "SELECT [strutture costruite].ID AS ID, [strutture costruite].[codice struttura tipo] AS cod_struttipo, [strutture costruite].[base moduli x] AS x, [strutture costruite].[base moduli y] AS y, [strutture costruite].[base moduli z] AS z, [strutture costruite].[direzione sviluppo] AS direzione, [strutture costruite].[lunghezze variabili] AS quanti FROM [strutture costruite] WHERE [strutture costruite].[codice città]=" + Request.QueryString("città") + " and [strutture costruite].[codice pianeta]=" + Request.QueryString("pianeta"),Cn
'--------------------------------------------------------------------------------
set struttipo = Server.createObject("ADODB.Recordset") 'tabella strutture tipi
do while not(strutture.eof)
'coordinate locali
xc = 0+(strutture.Fields("x") * 5)
yc = 0+(strutture.Fields("y") * 5)
zc = 502.5+(strutture.Fields("z") * 5)
'query strutture tipi
struttipo.open "SELECT [strutture tipi].tipo AS tipo, [strutture tipi].[codice forma] AS cod_forma, [strutture tipi].x AS x, [strutture tipi].y AS y, [strutture tipi].z AS z, [strutture tipi].r AS r, [strutture tipi].h AS h FROM strutture INNER JOIN [strutture tipi] ON strutture.cod_struttipo=[strutture tipi].ID WHERE strutture.ID= 1" ,Cn
'chiusura tabella strutture tipi
struttipo.close
set struttipo = nothing
'------------------------------
strutture.movenext
loop
%>
<%
'chiusura connessioni----------------------------------------
strutture.Close
set strutture = Nothing
Cn.Close
set Cn = Nothing
'------------------------------------------------------------%>
naturalmente non state a guardare il significato del codice che non è rilevante