<%@ Language=VBscript %> Domande e risposte <% dim cn dim rs dim strsql dim conta dim strqry dim cns strqry="" 'richiesta del sondaggio Voto=request("Voto") Iscrizione = request("Iscrizione") once=request("once") criterio=request("criterio") if once="" then once="first" set cns = server.CreateObject("adodb.connection") cns.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("\mdb-database\sondaggio.mdb") if Voto="Vota!" then if iscrizione = "si" then cns.Execute "UPDATE SONDAGGIO SET si=si+1 WHERE id=1" Response.Write "" end if if iscrizione = "no" then cns.Execute "UPDATE SONDAGGIO SET no=no+1 WHERE id=1" Response.Write "" end if end if pg = request("pg") conta = 0 if pg = "" then 'pg risulterà null solo al caricamento della prima pagina impostando il valore 1 per pg = 1 'l'impaginazione end if strCn="DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("\mdb-database\caaf.mdb") 'strCn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../Caaf.mdb") & ";Persist Security Info=False" 'strCn="DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../Caaf.mdb") 'creazione della connessione set cn = server.CreateObject ("adodb.connection") cn.Open strCn if criterio="" then strsql= "SELECT Domande.id, Domande.Data, Domande.Ora, Domande.RemoteIP, Tipo.Descrizione as Tipo, Classe.Descrizione as Classe, Domande.Oggetto, Domande.Domanda, Domande.Cognome, Domande.Nome, Domande.email, Domande.Risposta, Domande.nclick " & _ "FROM Tipo INNER JOIN (Classe INNER JOIN Domande ON Classe.id = Domande.id_classe) ON (Tipo.id = Domande.id_Tipo) AND (Tipo.id = Classe.id_Tipo) " & _ " Order by Domande.Data desc,Domande.Ora desc" else strsql= "SELECT Domande.id, Domande.Data, Domande.Ora, Domande.RemoteIP, Tipo.Descrizione as Tipo, Classe.Descrizione as Classe, Domande.Oggetto, Domande.Domanda, Domande.Cognome, Domande.Nome, Domande.email, Domande.Risposta, Domande.nclick " & _ "FROM Tipo INNER JOIN (Classe INNER JOIN Domande ON Classe.id = Domande.id_classe) ON (Tipo.id = Domande.id_Tipo) AND (Tipo.id = Classe.id_Tipo) " & _ "where domande.domanda like '%" & replace(criterio,"'","''") & "%' Or domande.risposta like '%" & replace(criterio,"'","''") & "%' Order by Domande.Data desc,Domande.Ora desc" end if set rs = server.CreateObject("adodb.recordset") Rs.ActiveConnection = cn Rs.CursorType = adOpenStatic 'PER UTILIZZARE IL PAGING Rs.PageSize = 3 'SETTO QUANTI ELEMENTI VOGLIO PER PAGINA rs.Open strsql if criterio<> "" and rs.EOF then %>
Siamo spiacenti non è stata trovata alcuna occorrenza per la parola/frase (<%=criterio%>)
Ritorna alla pagina principale
<% Response.End end if if int(pg) = 0 then pg=rs.PageCount if int(pg) > rs.PageCount then pg=1 if Not rs.EOF then rs.AbsolutePage = pg end if %>
 


Area Riservata
username:
password:
Clicca ->>
 
Ricerca Avanzata
Ti trovi in Home >
<< Pagina Precedente

pagina <%=pg%> di <%=rs.PageCount%>

Pagina Successiva >>
<% while not rs.EOF and conta < rs.PageSize conta=conta+1%>

<%=rs("oggetto")%>   (<%=rs("data")& " --- " & left(rs("Ora"),5) %>)
Formulata da: (<%=rs("nome") & left(rs("Cognome"),1) %>)

<% if criterio ="" then %> <%=rs("Domanda")%> <% else %> <%=Replace(rs("domanda"),criterio,"" & criterio & "")%> <% end if %>

-----------------------------------------------------------------------------

<% if criterio ="" then %> <%=rs("Risposta")%> <% else %> <%=Replace(rs("Risposta"),criterio,"" & criterio & "")%> <% end if %>
<% rs.MoveNext wend %>
<< Pagina Precedente

pagina <%=pg%> di <%=rs.PageCount%>

Pagina Successiva >>