<%
id = request("id")
If id <> "" Then
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open Server.MapPath("./database/SingingBusDB.mdb")
conn.execute "update guestbook set counts = counts + 1 where id=" & id
set rs=Server.CreateObject("ADODB.recordset")
strSQL="SELECT * from guestbook where id=" & id
rs.Open strSQL,conn
If Not rs.eof Then
%>