<%@ language= vbscript %>
<%
dim connessione,strconn,rs,sql,id,testo,nome,nick,user
'effettua la connessione
id=request.querystring("b")
nick=request.querystring("nick")
set connessione=server.createobject("ADODB.connection")
'connessione.connectionstring="DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath("utenti.mdb")
strconn= "Provider = Microsoft.Jet.OLEDB.4.0; Data Source =" & Server.MapPath ("data/utenti.mdb")
connessione.open strconn
sql="select * from sorgenti where nomesorgente='"&id&"'"
set rs=server.createobject("adodb.recordset")
rs.open sql,connessione,3,3
testo = rs("sorgente")
nome=rs("nomesorgente")
user=rs("nickname")
testo = Replace (testo, VbCrLf, "<br>")
response.write("<center><h1><font color=white>Nome sorgente :" & " " & nome & " by " & user& "</font></h1><table border=2 bordercolor=green><tr><td align="&"'left'"& "><font color=black><h4>"& testo &"</font></h4></td></tr></table></center>")
%>
<%
' inizializzo le variabili oggetto a zero
rs.close()
Set rs = Nothing
connessione.close()
set connessione=nothing
%>
<html>
<head>
<body background="68.jpg" link=green alink=green vlink=green bgproperties="fixed">
<center>
<a href="http://www4.webng.com/chopin?id=<%=nick%>"><b>Home page</b></a>
<a href="http://www4.webng.com/chopin/source.asp?id=<%=nick%>"><b>Sorgenti</b></a>
</center>
</body>
</head>
</html>