modifica database

[gloria2000]

Ho modificato il mio database aggiungendo un nuovo campo "zona" e in fase di inserimento tutto funziona bene, ma non riesco a modificare la stringa per estrarre i miei dati appunto per "zona".
la stringa originale è questa:

http://www.lamiaumbria.it/ricezione1...&cat=Ricezione

ho modificato la pagina ricezione1.asp in questo modo

catname = Request.QueryString("Cat")
cat = Request.QueryString("CatID")
cated = Request.QueryString("Cated")
zona = Request.QueryString("zona")
dim cated , zona

aggiungendo la penultima riga e modificando l'ultima aggiungendo la variabile zona.

mi potete aiutare...

www.lamiaumbria.it

[teorema55]

La stringa che inserisci viene letta come l'url della tua pagina e non si vede.......inseriscila tra i tag [ c o d e ][ / c o d e ] in modo che si possa leggere per esteso.

Comunque, in generale, il tuo codice dovrà produrre una querystring con concatenata la sottostringa

&zona=nome_della_zona

per poter passare la variabile "zona" alla pagina ricezione1.asp che ne fa la request.

[gloria2000]

la stringa per esteso è questa

http://www.lamiaumbria.it/ricezione1.asp?cated=agriturismo&catid=6&cat=Ricezione

ciaooo

[teorema55]

Deve diventare

http://www.lamiaumbria.it/ricezione1...ome_della_zona

se hai difficoltà posta lo script che la crea....cioè il link o il form (method=get) che usi per passare i valori da estrarre dal database.

[gloria2000]

Comunque se alla stringa citata (che funziona) concateno &zona=nomezona mi da dei risultati ignorando la modifica.... proprio non capisco.........

[teorema55]

Posta il codice della pagina che estrae i dati dal database

[gloria2000]

Eccolo...

<%
catname = Request.QueryString("Cat")
cat = Request.QueryString("CatID")
cated = Request.QueryString("Cated")
zona = Request.QueryString("zona")
dim cated , zona

'::::::::::::::::::::: iPagesize viene preso dal valore che hai selezionato dalla configurazione

iPageSize = paginerecord

If Request.QueryString("page") = "" Then
iPageCurrent = 1
Else
iPageCurrent = CInt(Request.QueryString("page"))
End If

If Request.QueryString("order") = "" Then
strOrderBy = "id"
Else
strOrderBy = Request.QueryString("order")
End If

strSQL = "SELECT * From annunci where sucat='" & cated & "' and show=yes order by priorita desc"

Set objPagingConn = Server.CreateObject("ADODB.Connection")
objPagingConn.Open Conn_String

Set objPagingRS = Server.CreateObject("ADODB.Recordset")
objPagingRS.PageSize = iPageSize
objPagingRS.CacheSize = iPageSize
objPagingRS.Open strSQL, objPagingConn, adOpenStatic, adLockReadOnly, adCmdText

reccount = objPagingRS.recordcount
iPageCount = objPagingRS.PageCount

If iPageCurrent > iPageCount Then iPageCurrent = iPageCount
If iPageCurrent < 1 Then iPageCurrent = 1
%>

[teorema55]

La tua query non dice niente a proposito della zona.

Una query che ne tenga conto è per esempio:

strSQL = "SELECT * From annunci where sucat='" & cated & "' and campozona = '"&zona&"' and show=yes order by priorita desc"

Come si comporta con i valori di cat e catname, anche quelli non compaiono nella query.........

[gloria2000]

Questo è il codice della pagina scusami ma come avrai capito mastico poco di ASP.



<%
catname = Request.QueryString("Cat")
cat = Request.QueryString("CatID")
cated = Request.QueryString("Cated")
zona = Request.QueryString("zona")
dim cated , zona

'::::::::::::::::::::: iPagesize viene preso dal valore che hai selezionato dalla configurazione

iPageSize = paginerecord

If Request.QueryString("page") = "" Then
iPageCurrent = 1
Else
iPageCurrent = CInt(Request.QueryString("page"))
End If

If Request.QueryString("order") = "" Then
strOrderBy = "id"
Else
strOrderBy = Request.QueryString("order")
End If

strSQL = "SELECT * From annunci where sucat='" & cated & "' and show=yes order by priorita desc"

Set objPagingConn = Server.CreateObject("ADODB.Connection")
objPagingConn.Open Conn_String

Set objPagingRS = Server.CreateObject("ADODB.Recordset")
objPagingRS.PageSize = iPageSize
objPagingRS.CacheSize = iPageSize
objPagingRS.Open strSQL, objPagingConn, adOpenStatic, adLockReadOnly, adCmdText

reccount = objPagingRS.recordcount
iPageCount = objPagingRS.PageCount

If iPageCurrent > iPageCount Then iPageCurrent = iPageCount
If iPageCurrent < 1 Then iPageCurrent = 1
%>
<html>
<h2 align="center" style="margin-top: 0; margin-bottom: 0">
<span style="font-weight: 400"><font face="Arial" size="1" color="#000080">
Strutture ricettive in Umbria, Agriturismo, Bed and Breakfast, Ostelli, Case
vacanza, Residence, Hotel
<head>
<meta http-equiv="Content-Language" content="it">
<meta name="GENERATOR" content="Microsoft FrontPage 6.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title><%=objPagingRS("sucat")%> in Umbria</title>
<META NAME="TITLE" CONTENT="Umbria cuore verde d'Italia. Turismo, storia, arte.">
<META NAME="DESCRIPTION" CONTENT="Viaggi in Umbria, Strutture ricettive, Agriturismi, Bed & Breakfast, Case Vacanza, Manifestazioni, Itinerari, Terme, Parchi naturali, Storia, Arte, Gastronomia, Informazioni turistiche, Forum, Offerte e Last Minute, Viaggi in umbria, itinerari, storia, gastronomia, eventi, strutture ricettive.">
<META NAME="KEYWORDS" CONTENT="Umbria, Storia, Storia dell'Umbria, Arte, Arte umbra, Itinerari, itinerari in Umbria, terme, terme in Umbria, parchi in Umbria, manifestazioni, eventi in Umbria, perugia, terni, foligno, spoleto, orvieto, todi, spello, bevagna, città di castello, Assisi, Norcia, Cascia, Norcia e Cascia, UmbriaJazz, Umbria Jazz, Umbria Jazz Winter, Festival dei due mondi, Quintana, Umbria Chocolate, tartufo, tartufo nero di Norcia, olio, olio extra vergine d'oliva, sagrantino, vino, Giotto, S. Francesco, Agriturismo, Agriturismo in Umbria, B&B, B&B in Umbria,bed and breakfast, bed and breakfast in Umbria, case vacanze, hotel, alberghi, vacanze, ">
<META HTTP-EQUIV="CHARSET" CONTENT="ISO-8859-1">
<META HTTP-EQUIV="VW96.OBJECT TYPE" CONTENT="general">
<META NAME="RATING" CONTENT="General">
<META NAME="ROBOTS" CONTENT="index,follow">
<META NAME="REVISIT-AFTER" CONTENT="7 days">
<style>
A:link, A:visited { text-decoration: none }
A:hover { text-decoration: underline }
</style>
<SCRIPT>
function popimmagine(str)
{
searchWin = window.open(str,'Guardafoto','scrollbars=yes,resiz able=yes,width=650,height=460,status=no,location=n o,toolbar=no');
}
</SCRIPT>
</head>

<body bgcolor="#FFFFEC">

</font></span></h2>

<div align="center">
<center>
<table border="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#008000" width="770" id="AutoNumber1">
<tr>
<td>
<caption></caption>
</td>
</tr>
</table>
</center>
</div>
<div align="center">
<center>
<table border="1" cellspacing="0" style="border-collapse: collapse" bordercolor="#008000" width="770" id="AutoNumber2" cellpadding="0">
<tr>
<td width="136" bgcolor="#FFFFFF" valign="top">
</td>
<td width="605" bgcolor="#FFFFFF" align="center" valign="top">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber4" height="63">
<tr>
<td width="100%" height="25">
<p style="margin-left: 5"><font size="2" face="Arial">Navigazione
:Categoria : </font> <font color="#000080" size="2" face="Arial"><%=catname%></font></td>
</tr>
<tr>
<td width="100%" height="19" align="center" valign="top"> <table border="0" width="100%" cellspacing="0" cellpadding="0" height="259" bgcolor="#FFFFFF" style="border-collapse: collapse" bordercolor="#111111">
<tr>
<td width="100%" height="9">
<p style="margin-left: 5"><font color="#FF9933" size="3" face="Arial"><%=cated%></font></td>
</tr>
<tr>
<td width="100%" height="21">
<p align="center">
<font face="Arial" size="4" color="#FF9933">Ci sono <%=reccount%>
<%=cated%></font></td>
</tr>
<tr>
<td width="100%" height="35"><font size="2" face="Arial">

</font></td>
</tr>
<tr>
<td width="100%" height="156"><p align="center">
<%
If iPageCount = 0 Then
Response.Write "<center><font color=red size=3>Non ci sono Annunci...</font></center>"
Else
objPagingRS.AbsolutePage = iPageCurrent
sss = (iPageSize * iPageCurrent) - iPageSize
iRecordsShown = 0
Do While iRecordsShown < iPageSize And Not objPagingRS.EOF
pluscount = pluscount+1
%>
<div align="center">
<center>
<table border=0 width=591 cellspacing=1 bgcolor="#98A0B8">
<tr><td bgcolor="#FFFFFF" width="587">
<table border="0" cellspacing="0" cellpadding="0" width="582" bgcolor="#FFFFFF" style="border-collapse: collapse" bordercolor="#111111">
<tr>
<td bgcolor="#FFFFFF" rowspan="2" width="62"><%if objPagingRS("FileName") <> "" then %> &amp;catid=<%=cat%>&amp;cat=<%=catname%>">[img]immagine.asp?id=<%=objPagingRS([/img]" alt="Disponibile una fotografia" width="60" height="54"><% else %><%end if %></td>
<td bgcolor="#FFFFFF" width="8"><font size="2" face="Arial"><%=sss+pluscount%>.</font></td>
<td width="246" bgcolor="#FFFFFF"><font size="2" face="Arial">&amp;catid=<%=cat%>&amp;cat=<%=catname%>"><%=objPa gingRS("titolo")%> </font></td>
<td width="171" bgcolor="#FFFFFF"></td>
<td width="95" bgcolor="#FFFFFF"><p align="right"><font size="1" face="Arial">Data : <%=objPagingRS("DataPost")%> </font>
</td>
</tr>
<tr>
<td width="425" bgcolor="#FFFFFF" colspan="3"><font face="Arial" size="1"><%response.write Left(objPagingRS("descrizione"), 65)%>
</font>&amp;catid=<%=cat%>&amp;cat=<%=catname%>"><font face="Arial" size="1">Conti..</font><font face="Arial" size="1">.</font> </td>
<td width="95" bgcolor="#FFFFFF">
<p align="right"><font face="Arial" size="1">Visto ( <font color="#800000"><%=objPagingRS("hit")%> </font> )</font>
</td>
</tr>
</table>
</td>
</tr>
</table>
</center>
</div>
<p align="center">
<%
iRecordsShown = iRecordsShown + 1
objPagingRS.MoveNext
Loop
END IF

objPagingRS.Close
Set objPagingRS = Nothing
objPagingConn.Close
Set objPagingConn = Nothing
Conn.Close
Set Conn = Nothing

If iPageCurrent <> 1 Then
%>
<font face="Verdana" size="2"><< Indietro</font>
<%
End If
If iPageCurrent < iPageCount Then
%> <font size="2" face="Verdana">Avanti >></font><p align="left">
<%
End If
%>
<p align="center">

<font face="Verdana" size="2">Pagina <%= iPageCurrent %> OF <%= iPageCount %>
</font>


</td>
</tr>
<tr>
<td width="100%" height="1"></td>
</tr>
<tr>
<td width="100%" height="28">
<p align="center">
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%" height="19"></td>
</tr>
</table>
</td>
</tr>
</table>
</center>
</div>
<div align="center">
<center>
<table border="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#008000" width="770" id="AutoNumber3">
<tr>
<td></td>
</tr>
</table>
</center>
</div>

</body>

</html>

[teorema55]

Whew .... ok, devi fare questi passi:

- vedere DOVE e COME l'utente (o il programma) inserisce il nome della zona da cercare nel database. In questo modo saprai dove e come acquisirne il valore. In generale, comunque, bisognerà:

- modificare la query sql come ti ho suggerito sopra (cioè aggiungendo "and campozona = '"&zona&"'") dove "campozona" è il nome del campo, nel database, che contiene la zona

- per la paginazione devi aggiungere la sottostringa

&zona=<%=zona%>

nelle querystring della procedura di impaginazione

Il codice è lungoe complesso, nessuno può fare il lavoro per te, ma con pazienza e con prove eseguite man mano che fai delle modifiche ne verrai a capo. Eventualmente chiedi ancora.