<%'legge dal form
titolo=request.QueryString("titolo")
'--------Stringa piccola LCASE
Key = request.QueryString("Key")
'--------Stringa piccola LCASE
%>
Aziende che hanno partecipato al lavoro
<%
Dim objConn, objRS, strSQL
Set objConn =Server.CreateObject("ADODB.Connection")
objConn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& Server.MapPath("soluzioni.mdb")
strSQL ="Select * from loghi_Azienda Where IdAzienda IN (select Id from quatitolo WHERE id = "&titolo& ")"
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open strsql, objConn, 1
strrecord_totali = objRS.RecordCount
' imposta il numero di colonne da visualizzare
strnumero_colonne = 3
' il resto
strresto = (strrecord_totali mod strnumero_colonne)
' i record totali meno il resto divisi per le colonne
'response.Write(objRS("IdAzienda"))
strrecord_parziali = ((strrecord_totali - strresto) / strnumero_colonne )
Response.Write ""
for n = 1 to strrecord_parziali
Response.Write ""
' stampa i record nelle colonne
for m =1 to strnumero_colonne
Response.Write " "& " | "
objRS.MoveNext
next
Response.Write " "
next
Response.Write " "
' controlla se esiste il resto
if strresto <> "0" then
Response.Write ""
for f = 1 to strresto
Response.Write "| "& " | "
objRS.MoveNext
next
Response.Write " "
end if
%>
<%
strSQL ="Select * from Loghi_Azienda_Potenziale Where IdAzienda IN (select Id from quatitolo WHERE id = "&titolo& ")"
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open strsql, objConn, 1
strrecord_totali = objRS.RecordCount
' imposta il numero di colonne da visualizzare
strnumero_colonne = 3
' il resto
strresto = (strrecord_totali mod strnumero_colonne)
' i record totali meno il resto divisi per le colonne
strrecord_parziali = ((strrecord_totali - strresto) / strnumero_colonne )
Response.Write ""
for n = 1 to strrecord_parziali
Response.Write ""
' stampa i record nelle colonne
for m =1 to strnumero_colonne
Response.Write "Pierre segnala
"& " | "
objRS.MoveNext
next
Response.Write " "
next
Response.Write " "
' controlla se esiste il resto
if strresto <> "0" then
Response.Write ""
for f = 1 to strresto
Response.Write "Pierre segnala
"& " | "
objRS.MoveNext
next
Response.Write " "
end if
' pulizia
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
%>
<% 'Campo di scelta CERCA IN PIERRE
if titolo="" then
else
Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& Server.MapPath("soluzioni.mdb")
Set Rec = Server.CreateObject("ADODB.Recordset")
sql="Select * from quatitolo where ID="& titolo
Rec.Open SQL, Conn, 3, 3, 1
Do While Not Rec.EOF
response.Write "
"%>
<%response.write(UCase(Rec("titolo")))&"
"
'_________________
'response.write(Rec("Id")) Utile per trovare i record in quatitolo
Set Conn1 = Server.CreateObject("ADODB.Connection")
conn1.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& Server.MapPath("soluzioni.mdb")
Set Rs = Server.CreateObject("ADODB.Recordset")
sql="Select * from Quaderno where ID = "& Rec("quaderno")
Rs.Open SQL, Conn, 3, 3, 1
response.write(Rs("titolo"))&"
"
rs.close
set rs = nothing
conn1.close
set conn1 = nothing
'__________________
response.write(Rec("sottotitolo"))&"
"
response.write ("")&"
"
'---------TUTTO PICCOLO---------------------
'testo = LCase(Rec("Testo"))
'-----------------------------------------
response.Write (Replace(Rec("Testo"),Key, response.Write("")&""& KEY & ""))
response.Write("
")
Rec.MoveNext
Loop%>
<%
rec.close
set rec = nothing
conn.close
set conn = nothing
End if%>
|
<% else
if Lang = "eg" then%>
<%else%>
<%response.Write("
<%'response.Write(" ")
else%>
<%response.Write("
<%'response.Write(" ")
else%>
