% Set cnn1 = Server.CreateObject("ADODB.Connection") openStr = "driver={Microsoft Access Driver (*.mdb)};" & _ "dbq=" & Server.MapPath("lista_alberghi.mdb") cnn1.Open openStr,"","" Set cmdQuery = Server.CreateObject("ADODB.Command") Set cmdQuery.ActiveConnection = cnn1 sql = "SELECT * FROM caltanissetta;" cmdQuery.CommandText = sql cmdQuery.CommandType = adCmdText Set rsMbrs = Server.CreateObject("ADODB.Recordset") rsMbrs.CursorType = adOpenForwardOnly rsMbrs.LockType = adLockReadOnly Set rsMbrs = cmdQuery.Execute() %>
alberghi
|
||||||||
lista alberghi |
||||||||
caltanissetta |
||||||||
categoria | nome | C.A.P. | comune | provincia | n° camere | n° letti | telefono | fax |
---|---|---|---|---|---|---|---|---|
<%=Server.HTMLEncode(rsMbrs.Fields("categoria").Value)%> | <%=Server.HTMLEncode(rsMbrs.Fields("nome").Value)%> | <%=Server.HTMLEncode(rsMbrs.Fields("CAP").Value)%> | <%=Server.HTMLEncode(rsMbrs.Fields("comune").Value)%> | <%=Server.HTMLEncode(rsMbrs.Fields("provincia").Value)%> | <%=Server.HTMLEncode(rsMbrs.Fields("n_camere").Value)%> | <%=Server.HTMLEncode(rsMbrs.Fields("n_letti").Value)%> | <%=Server.HTMLEncode(rsMbrs.Fields("telefono").Value)%> | <%=Server.HTMLEncode(rsMbrs.Fields("fax").Value)%> |