<%@LANGUAGE="VBSCRIPT"%> <% Dim id, url_db, conn, rs, sql id = request.querystring("i") if id = "" then id = 1 end if URL_DB = "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("db/giardino.mdb") Set Conn = Server.CreateObject("ADODB.Connection") conn.Open URL_DB Set RS = Server.CreateObject("ADODB.Recordset") sql = "SELECT * FROM info WHERE id="& id RS.Open sql, conn %> .:: Adriano Giardino ::. <%=RS("title")%>
<%=RS("title")%>
<%=RS("info")%>
<% RS.Close Set RS = Nothing Conn.Close %>