<% Set cnn1 = Server.CreateObject("ADODB.Connection") openStr = "driver={Microsoft Access Driver (*.mdb)};" & _ "dbq=" & Server.MapPath("lista_campeggi.mdb") cnn1.Open openStr,"","" Set cmdQuery = Server.CreateObject("ADODB.Command") Set cmdQuery.ActiveConnection = cnn1 sql = "SELECT * FROM siracusa;" cmdQuery.CommandText = sql cmdQuery.CommandType = adCmdText Set rsMbrs = Server.CreateObject("ADODB.Recordset") rsMbrs.CursorType = adOpenForwardOnly rsMbrs.LockType = adLockReadOnly Set rsMbrs = cmdQuery.Execute() %>
belle epoque
cartoons
campeggi
certificati
catasto
e-commerce
oroscopo
cartoline
SessoSoldiSalute
progetti
edicola
compro/vendo
soprannomi
santini
locandine
WebMaster
appalti sprint
immobiliare

 

<% Do While Not rsMbrs.EOF %> <% rsMbrs.MoveNext loop rsMbrs.Close Set rsMbrs = Nothing cnn1.Close Set cnn1 = Nothing %>
Siciliani Network-Home Appalti... Home-campeggi
lista campeggi
 
siracusa
categoria nome indirizzo C.A.P. comune provincia periodo superficie posto_auto posto_letto telefono fax
<%=Server.HTMLEncode(rsMbrs.Fields("categoria").Value)%> <%=Server.HTMLEncode(rsMbrs.Fields("nome").Value)%> <%=Server.HTMLEncode(rsMbrs.Fields("indirizzo").Value)%> <%=Server.HTMLEncode(rsMbrs.Fields("cap").Value)%> <%=Server.HTMLEncode(rsMbrs.Fields("comune").Value)%> <%=Server.HTMLEncode(rsMbrs.Fields("provincia").Value)%> <%=Server.HTMLEncode(rsMbrs.Fields("periodo").Value)%> <%=Server.HTMLEncode(rsMbrs.Fields("superficie").Value)%> <%=Server.HTMLEncode(rsMbrs.Fields("posto_auto").Value)%> <%=Server.HTMLEncode(rsMbrs.Fields("posti_letto").Value)%> <%=Server.HTMLEncode(rsMbrs.Fields("telefono").Value)%> <%=Server.HTMLEncode(rsMbrs.Fields("fax").Value)%>