% 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 trapani;" cmdQuery.CommandText = sql cmdQuery.CommandType = adCmdText Set rsMbrs = Server.CreateObject("ADODB.Recordset") rsMbrs.CursorType = adOpenForwardOnly rsMbrs.LockType = adLockReadOnly Set rsMbrs = cmdQuery.Execute() %>
campeggi
|
||||||||
lista campeggi |
|||||||||||
trapani |
|||||||||||
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)%> |