<%idChi = request.querystring("id") if isnumeric(idChi) then idChi = CInt(idChi)%>

<% set RS1 = Server.CreateObject("ADODB.Recordset") RS1.ActiveConnection = "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE="& Server.mappath("db/webcom.mdb") & ";" if idChi <> 0 then RS1.Source = "SELECT * FROM presentazione WHERE id = "&idChi else RS1.Source = "SELECT TOP 1 * FROM presentazione order by ID" end if RS1.CursorType = 0 RS1.CursorLocation = 2 RS1.LockType = 3 RS1.Open if (NOT RS1.EOF) then if db("allegato") <> "" then %>

" target="_blank"><%=db("allegato")%>

<% end if %>

<%=db("titolo")%>

<% testo = db("testoHTM") if instr(testo,vbCrLf) then testo = replace(testo,vbCrLf,"

") end if testo = "

"&testo&"

" %>

<%=db("sottotitolo")%>

<%=testo%> <%if db("Link") <> "" then%> More info:
" target="blank"><%=db("Link")%> <%end if%> <% end if RS1.Close Set RS1 = Nothing %>



<%if idChi = 0 then%> sei il visitatore n°: <% '---------------------------------------------------------------------- ' exaCOUNTER V0.2 '---------------------------------------------------------------------- ' Nome del file del contatore bFileName = "cnt/index.txt" '---------------------------------------------------------------------- strCountFileName = Server.MapPath(bFileName) Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objCountFile = objFSO.OpenTextFile(strCountFileName, 1, True) If Not objCountFile.AtEndOfStream Then iCount = CDbl(objCountFile.ReadAll) Else iCount = 0 End If objCountFile.Close Set objCountFile = Nothing iCount = iCount + 1 Set objCountFile = objFSO.CreateTextFile(strCountFileName, True) objCountFile.Write iCount objCountFile.Close Set objCountFile = Nothing Set objFSO = Nothing Response.Write ""& iCount &"" %> <%end if%>