risultati nella stessa pagina

[zeweb]

recupero dei dati dal DB e tramite link passo le variabili e leggo in un'altra pagina la news.

Se invece vorrei avere sia l'elenco dei titolo che le news in dettaglio nella stessa pagina passando sul dettaglio tramite degli anchor come posso fare ?

<%
	page = trim(request.querystring("page")) 
	Dim strLine
	If page = "" Then
	page = 1
	else
	page = cint(page)
	End If


	DisplayNum = 0
	Set oCon = Server.CreateObject ("ADODB.Connection")
	Set Rec = Server.CreateObject ("ADODB.Recordset")

	oCon.Open strCon

	Rec.PageSize = 15
	Rec.CursorLocation = adUseClient		
	ID = trim(request.querystring("IDnews"))
	sql = "Select newsletters.titolo, newsletters.ID, ISAAA.data from newsletters, ISAAA where newsletters.IDNews = "& ID & "and ISAAA.IDNews=" & ID
	'sql = "Select * from newsletters where IDnews = "& ID
	Rec.Open sql, oCon %>


<%response.write "" & Rec("titolo") & ""%>

[gold]

suddividi la pagina in frame e nel link ci metti il target settato al frame che contiene il dettaglio

[kluster]

o ti crei un secondo recordset se la variabile id <> "" mostri il dettaglio del recordset oppure potresti filtrarlo
'Ti estrai tutte le news
if Request("id") <> "" then

Rs.Filter = "id =" & Request("id")
'Mostri il dettaglio
Rs.Filter = "id <> " & Request("id")
'Mostri le altre
end if
oppure in test crei un piccolo connection.execute con where id = " & request("id")

nel link per vedere la news passa anche la variabile pagina e tutte quelle che ti servono

[zeweb]

mi aiuti a scriverlo visto che

questo è il codice che raccoglie i titoli delle news

<%
	page = trim(request.querystring("page")) 
	Dim strLine
	If page = "" Then
	page = 1
	else
	page = cint(page)
	End If


	DisplayNum = 0
	Set oCon = Server.CreateObject ("ADODB.Connection")
	Set Rec = Server.CreateObject ("ADODB.Recordset")

	oCon.Open strCon

	Rec.PageSize = 15
	Rec.CursorLocation = adUseClient		
	ID = trim(request.querystring("IDnews"))
	sql = "Select newsletters.titolo, newsletters.ID, ISAAA.data from newsletters, ISAAA where newsletters.IDNews = "& ID & "and ISAAA.IDNews=" & ID
	'sql = "Select * from newsletters where IDnews = "& ID
	Rec.Open sql, oCon %>

e questo quello della pagina che aprivo e copnteneva la news completa

<%
	id = trim(request.querystring("id")) 
	if id = "" OR isNumeric(id) = false then
		response.redirect "default.asp"
	end if
	Set Con = Server.CreateObject ("ADODB.Connection")
	Con.Open strCon
	sql = "Select * from newsletters where id = "& id
	set Rec = Con.execute(sql)%>

<%response.write "" & Rec("titolo") & ""%>
 <% 
str = rec("corpo") 
response.write replace(str,". ",". 
") 
%>

[gold]

metti la prima parte di cod in una pagina

<%
	page = trim(request.querystring("page")) 
	Dim strLine
	If page = "" Then
	page = 1
	else
	page = cint(page)
	End If


	DisplayNum = 0
	Set oCon = Server.CreateObject ("ADODB.Connection")
	Set Rec = Server.CreateObject ("ADODB.Recordset")

	oCon.Open strCon

	Rec.PageSize = 15
	Rec.CursorLocation = adUseClient		
	ID = trim(request.querystring("IDnews"))
	sql = "Select newsletters.titolo, newsletters.ID, ISAAA.data from newsletters, ISAAA where newsletters.IDNews = "& ID & "and ISAAA.IDNews=" & ID
	'sql = "Select * from newsletters where IDnews = "& ID
	Rec.Open sql, oCon 
if rec.bof or rec.eof then
response.write("nessun record")
else
count=rec.recordcount
for i = 1 to count
rec.absolutepage=cint(i)
 response.write "<a href=PaginaDettaglio.asp?id="&rec("id")&"  target=nomerame>"&rec("id")&"</a>
"
next

%>

e nel frame metti questo

<%
'quando passi id ti conviene usare cint()	
id = cint(trim(request.querystring("id"))) 
	if id = "" OR isNumeric(id) = false then
		response.redirect "default.asp"
	end if
	Set Con = Server.CreateObject ("ADODB.Connection")
	Con.Open strCon
	sql = "Select * from newsletters where id = "& id
	set Rec = Con.execute(sql)%>

<%response.write "" & Rec("titolo") & ""%>
 <% 
str = rec("corpo") 
response.write replace(str,". ",". 
") 
%>

[zeweb]

ma inserendo si usano ancora i frame oggi ? Allora devo rifare tutta la pagina visto che non li ha èd è graficamente complessa !

[gold]

no

a questo punto ti conviene mettere la seconda parte dello script da un altra parte (stessa pag) e i link piu su, invii alla stessa pagina e controlli il primo caricamento con un if o preimposti un primo record che apparira di default nella pagina in modo da non dare errore.

[zeweb]

ecco adesso ho capito ma non so se riesco a scriverlo posso postarti il codice ?

Grazie cmq molto gentile!

[gold]

Originariamente inviato da zeweb
ecco adesso ho capito ma non so se riesco a scriverlo posso postarti il codice ?

Grazie cmq molto gentile!

[kluster]

Vado di fretta e quindi non posso testare la procedura per questo ti posto una versione semplificita poi nel caso se non riesci ad ampliarla ti riseguo quando torno dal lavoro:

Lista e dettaglio

	
page = trim(request.querystring("page")) 
	Dim strLine
	If page = "" Then
	page = 1
	else
	page = cint(page)
	End If

Set oCon = Server.CreateObject ("ADODB.Connection")
	Set Rec = Server.CreateObject ("ADODB.Recordset")

	oCon.Open strCon
	Rec.PageSize = 15
	ID = trim(request.querystring("IDnews"))
	sql = "Select newsletters.titolo, newsletters.ID, ISAAA.data from newsletters 
Rec.Open sql,oCon,3,3
id = Request("id")
if id = "" then id = 0
if id <> 0 then
 'Filtro il recordset solo all'id
 Rs.Filter = "id = " & id %>
 Dettaglio news selezionatata:
 Rs("titolo")
 
 [b]<%=FormatDateTime(Rs("data"),2)%>

 'Altri campi che ti vuoi estrarre per il dettaglio
<%
end if 
' se è id è vuoto lo setto a 0 e quindi essendo numerico va bene
' il controllo non schianta
Rs.Filter = "id <> " & id 
while not Rs.eof %>   
...tua formattazione html .....     
&page=<%=page%>"><%=Rs("titolo")%>
...tua formattazione html .....        
<%
Rs.Movenext
wend

if rec.bof or rec.eof then
response.write("nessun record")
else
count=rec.recordcount
for i = 1 to count
rec.absolutepage=cint(i)
 response.write "<a href=PaginaDettaglio.asp?id="&rec("id")&"  target=nomerame>"&rec("id")&"</a>
"
next
%>

come ti ho detto non è testata il punto è farti capire
che se viene passato id
prima di mostrale la lista totale fai un filter del rs solo se id è diverso da 0 tutto questo in testa al file
subito dopo filtri il recordset per i valore diversi da id,se id è uguale a 0 filtrandolo a id <> 0 ti restituisce il set completo (id è un contatore e quindi numerico)