Esempio in questa pagina (reale) cosa devo chiudere in fondo alla pagina?
codice:
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("/mdb-database/dbase.mdb")
set oRs= Server.CreateObject("ADODB.Recordset")
strsql="SELECT DISTINCT A.usernameAutore, A.idAutore, A.LETTO FROM msgPvt A WHERE A.idDestinatario="& Session("ID_access") &" AND A.cancellatoAutore="& "0" &" AND A.cancellatoDestinatario="& "0" &" AND LETTO = (SELECT MIN(LETTO) FROM msgPvt WHERE msgPvt.idDestinatario="& Session("ID_access")&" AND IDAUTORE = A.IDAUTORE) ORDER by A.usernameAutore"
oRs.Open strsql, Conn
set oRs2= Server.CreateObject("ADODB.Recordset")
strsql="SELECT DISTINCT msgPvt.usernameDestinatario, msgpvt.idDestinatario FROM msgPvt WHERE msgPvt.idAutore="& Session("ID_access") &" AND msgPvt.cancellatoAutore="& "0" &" AND msgPvt.cancellatoDestinatario="& "0" &" order by msgPvt.usernameDestinatario"
oRs2.Open strsql, Conn
%>
codice:
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("/mdb-database/dbase.mdb")
set mRs= Server.CreateObject("ADODB.Recordset")
strsqlmRs="SELECT * FROM msgPvt WHERE (msgPvt.idDestinatario="& Session("ID_access") & " AND msgPvt.idAutore="& MyIdArray(MsgCounter) & ") OR ( msgPvt.idDestinatario="& MyIdArray(MsgCounter) &" AND msgPvt.idAutore="& Session("ID_access")&")"
mRs.Open strsqlmRs, Conn
set mRs2= Server.CreateObject("ADODB.Recordset")
strsqlmRs2="SELECT * FROM incontri WHERE ID="& MyIdArray(MsgCounter) & ""
mRs2.Open strsqlmRs2, Conn
%>