Il Forum di byluciani.com :: Leggi il Topic

serpico · Registrato: Mar Mar 01, 2005 18:21 Messaggi: 12

ho letto l'interessante lezione su sql e mi chiedevo se era possibile risolvermi questo dubbio/problema:

ho un db che si chiama ordine e all'interno la tabella giornale. ora qui ci sono diverse news e quindi c'è il campo categoria, titolo, testo, immagine, eccc. ognuna delle quali nel campo categoria ha una sua appartenenza tipo novità, sport, cronaca, ecc...
Nella parte di codice che sotto riporto, per poter far apparire solo notizie che nel campo categoria hanno sport, come posso fare? Rolling Eyes

DSNtemp.open Conect
dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
sqlstmt = "SELECT giornale.ID, giornale.ptitolo, giornale.click, giornale.pentry, giornale.pimghome, giornale.ordine_index "&_
"FROM giornale WHERE ordine_index=1 OR ordine_index= 2 ORDER BY ordine_index;"
rs.Open sqlstmt, DSNtemp, 3, 3

non so se mi sono spiegato bene...! Shocked

a propostio bylu... ti è giunta la mia email dell'upload modificato con l'aggiunta del delete?! Question

_________________
diko quello ke penso e faccio quello ke diko

byluciani · Inviato: 16/08/2005 13:51 Oggetto: Re: SQL

serpico · Registrato: Mar Mar 01, 2005 18:21 Messaggi: 12

ti è giunta la mia email dell'upload modificato con l'aggiunta del delete?!
_________________
diko quello ke penso e faccio quello ke diko

serpico · Registrato: Mar Mar 01, 2005 18:21 Messaggi: 12

poiché necessita forse di un database a parte, visto che poi da Ordine_index.asp imposto l'ordine con cui devono appaire le notizie...! Crying or Very sad

ecco qui il codice di Ordnie_index.asp:

<%@LANGUAGE="VBSCRIPT"%>
<%
Set conn=Server.CreateObject("ADODB.Connection")
StrConn="DRIVER={Microsoft Access Driver (*.mdb)}; "
StrConn=StrConn & "DBQ=" & server.mappath("miodatabase/ordine.mdb")
Conn.Open strConn

If request("Add")="new" Then

Array_id=request("id")
Split_array_id=split(array_id,",")
Array_ordine=request("ordine")
Split_array_ordine=split(Array_ordine,",")

For n=0 to ubound(Split_array_ordine)
if Len(Trim(Split_array_ordine (n)))>0 then
sql="UPDATE giornale SET ordine_index = "&Split_array_ordine(n)&" WHERE id = "&Split_array_id(n)
else
sql="UPDATE giornale SET ordine_index = '0' WHERE id = "&Split_array_id(n)
end if
Conn.Execute(SQL)
' Response.write (Split_array_ordine(n) &Split_array_id(n))
next

sql="select pTitolo, ordine_index from giornale where ordine_index >0 order by ordine_index "
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open SQL, conn ,3,3
conta=0
Do while NOT RS.EOF
if conta =0 then response.write ("Inizio Notizie in primo piano n°2 articoli. ")
conta=conta+1
response.write "n°"&conta&" ord.("&rs("ordine_index")&")"&rs("ptitolo")&" "
if conta =2 then response.write ("Fine Notizie in primo piano Inizio Notizie di spalla n° 6 aricoli. ")
if conta =8 then response.write ("Fine Notizie Di spalla Inizio Notizie in calce solo titolo n°5 articoli. ")
if conta = 13 then response.write(" Attenzioni articoli fuori dall'index della pagina !!! Non verranno visualizzati ! ")
RS.MoveNext
loop

rs.close
set rs =Nothing
conn.close
set conn=Nothing
response.write(" <a href=""ordine_index.asp"">Torna a ordine_index</a> ")
response.end
end if

page = Request("page")
if page="" then page=1
Const adOpenKeyset = 1

'Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
sql= "select pcat, ptitolo, click, pdate, ordine_index, ID from giornale order by pdate desc "
RS.Open SQL, conn ,3,3
rs.PageSize = 20
rs.AbsolutePage = page

%>
<html>
<head>
<title>Documento senza titolo</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
<form name="form1" method="post" action="Ordine_index.asp?add=new">
<table width="100%" border="0" cellpadding="0" cellspacing="0">

<tr>
<td colspan="5" align="center" valign="top"> 
</td>
</tr>
<tr>
<td height="18" colspan="5" align="center" valign="middle"> <div align="center">
Ordine
Notizie
 
 
</div></td>
</tr>
<tr>
<td height="18" colspan="5" align="center" valign="middle"> </td>
</tr>
<tr>
<td height="32" bgcolor="#DDF0FF">
Titolo </td>
<td width="14%" height="32" bgcolor="#DDF0FF">
Categoria </td>
<td width="7%" bgcolor="#DDF0FF">letto</td>
<td width="13%" height="32" bgcolor="#DDF0FF">
Data </td>
<td width="16%" bgcolor="#DDF0FF">Ordine</td>
</tr>
<tr>
<td height="5"></td>
<td></td>
<td></td>
<td></td>
<td></td>
</tr>
<%
If rs.Eof=True or rs.Bof=True then
Response.Write "Nessun dato trovato"
Else

For i=1 to 30

if Not rs.EOF then
%>
<tr>
<td width="50%" height="50" valign="top"><%=rs.Fields("ptitolo")%></td>
<td valign="top"><%=rs.Fields("pcat")%></td>
<td valign="top"><%=rs.Fields("click")%></td>
<td valign="top" nowrap><%= rs("pdate") %></td>
<td valign="top"> <div align="left">
<input name="ID" type="hidden" id="ID" value="<%= rs("ID") %>">
<input name="ordine" type="text" id="ordine" value="<%= rs("ordine_index") %>" size="2" maxlength="2">
 </div></td>
</tr>
<tr>
<td height="1" bgcolor="#CCCCCC"></td>
<td bgcolor="#CCCCCC"></td>
<td bgcolor="#CCCCCC"></td>
<td bgcolor="#CCCCCC"></td>
<td bgcolor="#CCCCCC"></td>
</tr>
<%
rs.MoveNext
end if

Next

End if

'Rs.Close
'set Rs = Nothing
'Conn.Close
'set Conn = Nothing
%>
<tr>
<td height="19" colspan="5" align="center" valign="top">
<%
Response.Write "Pages: "
For pag=1 to rs.PageCount

Response.Write "<A href='ordine_index.asp?page=" & pag
'Response.Write "&" & Server.UrlEncode(strRicerca)
Response.write "'>"

Response.Write pag

Response.Write "</A> "

Next

%>
</td>
</tr>
<tr>
<td height="19" colspan="5"> <div align="center">
<% Response.Write "Pagina " & page & " di " & rs.pagecount %>
</div></td>
</tr>
<tr>
<td height="16" colspan="5" valign="top"><div align="center">
<input name="Submit" type="submit" id="Submit" value="Aggiorna">
</div>
 
Se si modifica l'ordine è necessario aggiornare per salvare la modifica.
Il cambio pagina farà perdere gli aggionamenti eventualmente eseguiti.!</td>
</tr>
</table>
</form>
</body>
</html>
_______________________________________________
e qui il codice intero di sub_index.asp:

<%
Set DSNtemp=Server.CreateObject("ADODB.Connection")
Conect="DRIVER={Microsoft Access Driver (*.mdb)}; "
Conect=Conect & "DBQ=" & server.mappath("miodatabase/ordine.mdb")
'Classe per prime due news

Function LunghezzaTesto(N_caratteri,Testo)

iMaxChar = N_caratteri
sResult = Testo
If Len(sResult) > iMaxChar Then
If InStr(iMaxChar, sResult, " ") > 0 Then
sResult = Left(sResult, InStr(iMaxChar, sResult, " ")) & "..."
End If
End If
LunghezzaTesto=sResult

End Function

''

Sub IndexRecord()
DSNtemp.open Conect
dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
sqlstmt = "SELECT giornale.ID, giornale.ptitolo, giornale.click, giornale.pentry, giornale.pimghome, giornale.ordine_index "&_
"FROM giornale WHERE ordine_index=1 OR ordine_index= 2 ORDER BY ordine_index;"
rs.Open sqlstmt, DSNtemp, 3, 3

' costruiamo la tabella
response.write "<table width=""100%"">"& vbNewLine & _
" <tr>"& vbNewLine & _
" <td>"

For i=1 to 2 ' 2 sono i record che vuoi visualizzare !!
if Not rs.EOF then
response.write "<img src=""immagini/gif/frecciar.gif"" width=""12"" height=""10"" border=""0""></a>"& vbNewLine & _
" <a href=""javascript:ShowMenu('giornale.asp?id="&rs("id")&"','window1',800,600,95,95)"">"&LunghezzaTesto(40,rs("Ptitolo"))&"</a> "
click = rs("click")
response.Write "Letto["&click&"]"& vbNewLine & _
" </td>"& vbNewLine & _
" </tr>"& vbNewLine & _
" <tr>" & vbNewLine & _
" <td><a href=""JavaScript:ShowMenu('giornale.asp?id="&rs("id")&"','window1',800,600,95,95)""><img src='"&rs("pimghome")&"' aligh='center' width='230' height='135' class='bordered_table2' border=""1"" alt=""clicca per leggere"">"& vbNewLine &_
" </td>"& vbNewLine & _
" </tr>"& vbNewLine & _
" <tr> "& vbNewLine & _
" <td class='testo1'>"

'iMaxChar = 150
'sResult = rs("pentry")
'If Len(sResult) > iMaxChar Then
' If InStr(iMaxChar, sResult, " ") > 0 Then
'sResult = Left(sResult, InStr(iMaxChar, sResult, " ")) & "..."
'End If
' End If
Response.Write (LunghezzaTesto(310,rs("pentry")) & _
" </td>"& vbNewLine & _
" </tr>"& vbNewLine & _
" <tr>" & vbNewLine & _
" <td><img src=""immagini/gif/trasparency.gif"" width='230'></td>"& vbNewLine & _
" </tr>"& vbNewLine & _
" <tr> "& vbNewLine & _
" <td>")
rs.MoveNext
end if
Next
response.write " </td>"& vbNewLine & _
" </tr>"& vbNewLine & _
" </table>"

Rs.close
set RS = Nothing
DSNtemp.close
'Set DSNtemp=Nothing
End Sub

'Call IndexRecord()

Sub IndexRecord_2()
DSNtemp.open Conect
dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
sqlstmt = "SELECT ID, ptitolo, click, pentry, pimghome, ordine_index "&_
"FROM giornale WHERE ordine_index >2 ORDER BY ordine_index;"
rs.Open sqlstmt, DSNtemp, 3, 3

Response.Write "<table width=""98%""class=""bordered_td"">"& vbNewLine & _
" <tr>"

For i=1 to 6 ' 2 sono i record che vuoi visualizzare !!
if Not rs.EOF then
response.write "<td colspan=""2""><img src=""immagini/gif/frecciar.gif"" width=""12"" height=""10"" border=""0"">"
click = rs("click")
response.Write "["&click&"]"
response.write "<a href=""JavaScript:ShowMenu('giornale.asp?id="&rs("id")&"','window1',800,600,95,95)"">"&LunghezzaTesto(35,rs("Ptitolo"))&"</a></td>"& vbNewLine & _
" </tr>"& vbNewLine & _
" <tr>"& vbNewLine & _
" <td width=""37%"">"& vbNewLine & _
" <a href=""JavaScript:ShowMenu('giornale.asp?id="&rs("id")&"','window1',800,600,95,95)""><img src="&Rs("Pimghome")&" width=""76"" height=""48"" table class='bordered_table2' border=""1"" alt=""clicca per leggere"">"& vbNewLine & _
" </td>"& vbNewLine & _
" <td width=""63%"" class='testo1'>"

' iMaxChar = 80
'sResult = rs("pentry")
'If Len(sResult) > iMaxChar Then
' If InStr(iMaxChar, sResult, " ") > 0 Then
'sResult = Left(sResult, InStr(iMaxChar, sResult, " ")) & "..."
'End If
' End If
Response.Write (LunghezzaTesto(50,rs("pentry"))) & _
" </td>"& vbNewLine & _
" </td>"& vbNewLine & _
" </tr>"& vbNewLine & _
" <tr>"& vbNewLine & _
" <td colspan=""2""><img src=""immagini/gif/trasparency.gif""></td></tr>"

rs.MoveNext
end if
Next

response.write " </tr>"& vbNewLine & _
" </table>"

Rs.close
set RS = Nothing
Dsntemp.close
'Set DSNtemp=Nothing
End Sub

'call indexRecord_2()

Sub indexRecord_3()
DSNtemp.open Conect
dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
sqlstmt = "SELECT ID, ptitolo, click, ordine_index "&_
"FROM giornale WHERE ordine_index >8 ORDER BY ordine_index;"
rs.Open sqlstmt, DSNtemp, 3,3

For i=1 to 5 ' 2 sono i record che vuoi visualizzare !!
if Not rs.EOF then

response.write " <tr> "& vbNewLine & _
" <td valign=""top"">.:</td>"& vbNewLine & _
" <td height=""20"" valign=""top"">"
click = rs("click")
response.Write "["&click&"]"& vbNewLine & _
" <a href=""JavaScript:ShowMenu('giornale.asp?id="&rs("id")&"','window1',800,600,95,95)"">"& vbNewLine & _
" "&LunghezzaTesto(40,rs("Ptitolo"))&"</a></td>"& vbNewLine & _
" </tr> "

rs.MoveNext
end if
Next

Rs.close
set RS = Nothing
Dsntemp.close
Set DSNtemp=Nothing

end sub

'Call indexRecord_3()

%>
_________________
diko quello ke penso e faccio quello ke diko

serpico · Registrato: Mar Mar 01, 2005 18:21 Messaggi: 12

risolto
_________________
diko quello ke penso e faccio quello ke diko