Motore di ricerca..SOS!

[Alcolico]

ciao a tutti,
grazie ad un editor ho creato un motore di ricerca su un database access e funziona alla grande..il problema è ke x le mie esigenze devo modificare diverse cose ma nn sò assolutamente dove mettere mano..ogni aiuto sarà ben accetto! se ci saranno anime pie disposte al sacrificio poi spiegherò nel dettaglio il mio "problema"..

 

[alex007]

Si ma . . . di che parliamo ?

Posta lo script :boxing:

 

[Alcolico]

opsss

ciao, nn sn stato molto chiaro..
nn si tratta di un singolo script ma di un insieme di pagine create x la modifica, l'eliminazione, l'aggiunta o la visualizzazione dei record del database cn annesso un sistema di ricerca x parola all'interno dei record..cosa ke io devo assolutamente cambiare cn delle select box..nn saprei dove cercare la parte di codice riguardante la ricerca..nn sò se è possibile fare l'upload di un file zippato cn tutti i file..

 

[alex007]

Si ma . . . di che parliamo ?

Qual'è la pagina che devi modificare?
Cosa devi fare esattamente?
Quante pagine sono?
Qual'è il compito di ogni pagina?
A quale pagina ti riferisci?
Sai individuare qual'è la pagina che serve per la ricerca?
Se si, posta lo script e il problema che hai in quella pagina, in questo modo vai avanti con un pezzo (pagina) per volta. . .
Un consiglio per il futuro, cerca di essere più preciso nelle domande, altrimenti rischi che nessuno ti fila ciao.

 

[lukeonweb]

all'apparenza stai chiedendo una cosa semplice, ma in realtà c'è un problema: non parliamo la stessa lingua perchè non conosci asp!

posso solo consigliarti di studiare un po di basi, altrimenti avrai sempre e comunque problemi, anche con cose semplici...

 

[Alcolico]

questa è la parte di codice riferita alla ricerca e cosa principale ke dovrei cambiare..sn davvero alle prime armi lo sò..sto imparando da solo e nn ho molto tempo libero da dedicargli..al posto di questa ricerca dovrei mettere 3 menu a tendina in cui l'utente possa scegliere le opzioni ke desidera x poi lanciare la ricerca in base a quelle..

<p><span class="aspmaker">TABLE: immobili
</span></p>
<form id="fimmobililistsrch" name="fimmobililistsrch" action="immobililist.asp" >
<table class="ewBasicSearch">
<tr>
<td><span class="aspmaker">
<input type="text" name="psearch" size="20" value="">
<input type="Submit" name="Submit" value="Search &nbsp;(*)">&nbsp;<input type="Button" name="Reset" value="Reset" onclick="clearForm(this.form);this.form.psearchtype[0].checked = true;">&nbsp;
<a href="immobililist.asp?cmd=reset">Show all</a>&nbsp;
</span></td>
</tr>
<tr>
<td><span class="aspmaker"><input type="radio" name="psearchtype" value="" checked>Exact phrase&nbsp;&nbsp;<input type="radio" name="psearchtype" value="AND">All words&nbsp;&nbsp;<input type="radio" name="psearchtype" value="OR">Any word</span></td>
</tr>
</table>
</form>

 

[Alcolico]

nn c'è soluzione al mio problema?????? :crying: :crying: :crying:

 

[alex007]

Posta tutto lo script di immobilist.asp

Devo capire. . .

immobilist.asp - prende i dati di ricerca da un database?

posta posta :byebye:

 

[Alcolico]

immobilist.asp

questa è la pagina completa.. si i dati sn in un database access da me creato e riempito..

<!--#include file="ewconfig.asp"-->
<!--#include file="db.asp"-->
<!--#include file="immobiliinfo.asp"-->
<!--#include file="advsecu.asp"-->
<!--#include file="aspmkrfn.asp"-->
<!--#include file="ewupload.asp"-->
<%
Response.expires = 0
Response.expiresabsolute = Now() - 1
Response.addHeader "pragma", "no-cache"
Response.addHeader "cache-control", "private"
Response.addHeader "cache-control", "no-cache"
Response.addHeader "cache-control", "no-store"
Response.CacheControl = "no-cache"
%>
<%

' Initialize common variables
x_Codice = Null: ox_Codice = Null: z_Codice = Null
x_Categoria = Null: ox_Categoria = Null: z_Categoria = Null
x_Trattativa = Null: ox_Trattativa = Null: z_Trattativa = Null
x_LocalitE0 = Null: ox_LocalitE0 = Null: z_LocalitE0 = Null
x_Provincia = Null: ox_Provincia = Null: z_Provincia = Null
x_Condizioni = Null: ox_Condizioni = Null: z_Condizioni = Null
x_Metratura_MQ = Null: ox_Metratura_MQ = Null: z_Metratura_MQ = Null
x_Prezzo_20AC = Null: ox_Prezzo_20AC = Null: z_Prezzo_20AC = Null
x_Descrizione = Null: ox_Descrizione = Null: z_Descrizione = Null
%>
<%
nStartRec = 0
nStopRec = 0
nTotalRecs = 0
nRecCount = 0
nRecActual = 0
sDbWhereMaster = ""
sDbWhereDetail = ""
sSrchAdvanced = ""
psearch = ""
psearchtype = ""
sSrchBasic = ""
sSrchWhere = ""
sDbWhere = ""
sOrderBy = ""
sSqlMaster = ""
nDisplayRecs = 20
nRecRange = 10

' Open connection to the database
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open xDb_Conn_Str

' Handle Reset Command
ResetCmd()

' Get Search Criteria for Basic Search
SetUpBasicSearch()

' Build Search Criteria
If sSrchAdvanced <> "" Then
If sSrchWhere <> "" Then sSrchWhere = sSrchWhere & " AND "
sSrchWhere = sSrchWhere & "(" & sSrchAdvanced & ")"
End If
If sSrchBasic <> "" Then
If sSrchWhere <> "" Then sSrchWhere = sSrchWhere & " AND "
sSrchWhere = sSrchWhere & "(" & sSrchBasic & ")"
End If

' Save Search Criteria
If sSrchWhere <> "" Then
Session(ewSessionTblSearchWhere) = sSrchWhere
nStartRec = 1 ' reset start record counter
Session(ewSessionTblStartRec) = nStartRec
Else
sSrchWhere = Session(ewSessionTblSearchWhere)
Call RestoreSearch()
End If

' Build Filter condition
sDbWhere = ""
If sDbWhereDetail <> "" Then
sDbWhere = sDbWhere & "(" & sDbWhereDetail & ") AND "
End If
If sSrchWhere <> "" Then
sDbWhere = sDbWhere & "(" & sSrchWhere & ") AND "
End If
If Len(sDbWhere) > 5 Then
sDbWhere = Mid(sDbWhere, 1, Len(sDbWhere)-5) ' Trim rightmost AND
End If

' Set Up Sorting Order
sOrderBy = ""
SetUpSortOrder()

' Set up SQL
sSql = ewBuildSql(ewSqlSelect, ewSqlWhere, ewSqlGroupBy, ewSqlHaving, ewSqlOrderBy, sDbWhere, sOrderBy)

'Response.Write sSql ' Uncomment to show SQL for debugging
%>
<!--#include file="header.asp"-->
<script type="text/javascript">
<!--
EW_LookupFn = "ewlookup.asp"; // ewlookup file name
EW_AddOptFn = "ewaddopt.asp"; // ewaddopt.asp file name
EW_MultiPagePage = "Page"; // multi-page Page Text
EW_MultiPageOf = "of"; // multi-page Of Text
//-->
</script>
<script type="text/javascript" src="ew.js"></script>
<script type="text/javascript">
<!--
EW_dateSep = "/"; // set date separator
//-->
</script>
<script type="text/javascript">
<!--
var firstrowoffset = 1; // first data row start at
var tablename = 'ewlistmain'; // table name
var usecss = true; // use css
//var usecss = false; // use css
var rowclass = 'ewTableRow'; // row class
var rowaltclass = 'ewTableAltRow'; // row alternate class
var rowmoverclass = 'ewTableHighlightRow'; // row mouse over class
var rowselectedclass = 'ewTableSelectRow'; // row selected class
var roweditclass = 'ewTableEditRow'; // row edit class
var rowcolor = '#FFFFFF'; // row color
var rowaltcolor = '#F5F5F5'; // row alternate color
var rowmovercolor = '#FFCCFF'; // row mouse over color
var rowselectedcolor = '#CCFFFF'; // row selected color
var roweditcolor = '#FFFF99'; // row edit color
//-->
</script>
<script type="text/javascript">
<!--
var EW_DHTMLEditors = [];
//-->
</script>
<%

' Set up Record Set
Set rs = Server.CreateObject("ADODB.Recordset")
rs.CursorLocation = 3
rs.Open sSql, conn, 1, 2
nTotalRecs = rs.RecordCount
If nDisplayRecs <= 0 Then ' Display All Records
nDisplayRecs = nTotalRecs
End If
nStartRec = 1
SetUpStartRec() ' Set Up Start Record Position
%>
<p><span class="aspmaker">TABLE: immobili
</span></p>
<form id="fimmobililistsrch" name="fimmobililistsrch" action="immobililist.asp" >
<table class="ewBasicSearch">
<tr>
<td><span class="aspmaker">
<input type="text" name="<%=ewTblBasicSrch%>" size="20" value="<%=psearch%>">
<input type="Submit" name="Submit" value="Search &nbsp;(*)">&nbsp;<input type="Button" name="Reset" value="Reset" onclick="clearForm(this.form);this.form.<%=ewTblBasicSrchType%>[0].checked = true;">&nbsp;
<a href="immobililist.asp?cmd=reset">Show all</a>&nbsp;
</span></td>
</tr>
<tr>
<td><span class="aspmaker"><input type="radio" name="<%=ewTblBasicSrchType%>" value="" checked>Exact phrase&nbsp;&nbsp;<input type="radio" name="<%=ewTblBasicSrchType%>" value="AND">All words&nbsp;&nbsp;<input type="radio" name="<%=ewTblBasicSrchType%>" value="OR">Any word</span></td>
</tr>
</table>
</form>
<table class="ewListAdd">
<tr>
<td><span class="aspmaker"><a href="immobiliadd.asp">Add</a></span></td>
</tr>
</table>
<p>
<%
If Session(ewSessionMessage) <> "" Then
%>
<p><span class="ewmsg"><%= Session(ewSessionMessage) %></span></p>
<%
Session(ewSessionMessage) = "" ' Clear message
End If
%>
<% If nTotalRecs > 0 Then %>
<form method="post">
<table id="ewlistmain" class="ewTable">
<!-- Table header -->
<tr class="ewTableHeader">
<td valign="top"><span>
<a href="immobililist.asp?order=<%= Server.URLEncode("Codice") %>">Codice<% If Session(ewSessionTblSort & "_x_Codice") = "ASC" Then %><img src="images/sortup.gif" width="10" height="9" border="0"><% ElseIf Session(ewSessionTblSort & "_x_Codice") = "DESC" Then %><img src="images/sortdown.gif" width="10" height="9" border="0"><% End If %></a>
</span></td>
<td valign="top"><span>
<a href="immobililist.asp?order=<%= Server.URLEncode("Categoria") %>">Categoria&nbsp;(*)<% If Session(ewSessionTblSort & "_x_Categoria") = "ASC" Then %><img src="images/sortup.gif" width="10" height="9" border="0"><% ElseIf Session(ewSessionTblSort & "_x_Categoria") = "DESC" Then %><img src="images/sortdown.gif" width="10" height="9" border="0"><% End If %></a>
</span></td>
<td valign="top"><span>
<a href="immobililist.asp?order=<%= Server.URLEncode("Trattativa") %>">Trattativa&nbsp;(*)<% If Session(ewSessionTblSort & "_x_Trattativa") = "ASC" Then %><img src="images/sortup.gif" width="10" height="9" border="0"><% ElseIf Session(ewSessionTblSort & "_x_Trattativa") = "DESC" Then %><img src="images/sortdown.gif" width="10" height="9" border="0"><% End If %></a>
</span></td>
<td valign="top"><span>
<a href="immobililist.asp?order=<%= Server.URLEncode("Località") %>">Località&nbsp;(*)<% If Session(ewSessionTblSort & "_x_LocalitE0") = "ASC" Then %><img src="images/sortup.gif" width="10" height="9" border="0"><% ElseIf Session(ewSessionTblSort & "_x_LocalitE0") = "DESC" Then %><img src="images/sortdown.gif" width="10" height="9" border="0"><% End If %></a>
</span></td>
<td valign="top"><span>
<a href="immobililist.asp?order=<%= Server.URLEncode("Provincia") %>">Provincia&nbsp;(*)<% If Session(ewSessionTblSort & "_x_Provincia") = "ASC" Then %><img src="images/sortup.gif" width="10" height="9" border="0"><% ElseIf Session(ewSessionTblSort & "_x_Provincia") = "DESC" Then %><img src="images/sortdown.gif" width="10" height="9" border="0"><% End If %></a>
</span></td>
<td valign="top"><span>
<a href="immobililist.asp?order=<%= Server.URLEncode("Condizioni") %>">Condizioni&nbsp;(*)<% If Session(ewSessionTblSort & "_x_Condizioni") = "ASC" Then %><img src="images/sortup.gif" width="10" height="9" border="0"><% ElseIf Session(ewSessionTblSort & "_x_Condizioni") = "DESC" Then %><img src="images/sortdown.gif" width="10" height="9" border="0"><% End If %></a>
</span></td>
<td valign="top"><span>
<a href="immobililist.asp?order=<%= Server.URLEncode("Metratura MQ") %>">Metratura MQ&nbsp;(*)<% If Session(ewSessionTblSort & "_x_Metratura_MQ") = "ASC" Then %><img src="images/sortup.gif" width="10" height="9" border="0"><% ElseIf Session(ewSessionTblSort & "_x_Metratura_MQ") = "DESC" Then %><img src="images/sortdown.gif" width="10" height="9" border="0"><% End If %></a>
</span></td>
<td valign="top"><span>
<a href="immobililist.asp?order=<%= Server.URLEncode("Prezzo €") %>">Prezzo €&nbsp;(*)<% If Session(ewSessionTblSort & "_x_Prezzo_20AC") = "ASC" Then %><img src="images/sortup.gif" width="10" height="9" border="0"><% ElseIf Session(ewSessionTblSort & "_x_Prezzo_20AC") = "DESC" Then %><img src="images/sortdown.gif" width="10" height="9" border="0"><% End If %></a>
</span></td>
<td>&nbsp;</td>
<td>&nbsp;</td>
<td>&nbsp;</td>
<td>&nbsp;</td>
</tr>
<%

' Avoid starting record > total records
If CLng(nStartRec) > CLng(nTotalRecs) Then
nStartRec = nTotalRecs
End If

' Set the last record to display
nStopRec = nStartRec + nDisplayRecs - 1

' Move to first record directly for performance reason
nRecCount = nStartRec - 1
If Not rs.Eof Then
rs.MoveFirst
rs.Move nStartRec - 1
End If
nRecActual = 0
Do While (Not rs.Eof) And (nRecCount < nStopRec)
nRecCount = nRecCount + 1
If CLng(nRecCount) >= CLng(nStartRec) Then
nRecActual = nRecActual + 1

' Set row color
sItemRowClass = " class=""ewTableRow"""
sListTrJs = " onmouseover='ew_mouseover(this);' onmouseout='ew_mouseout(this);' onclick='ew_click(this);'"

' Display alternate color for rows
If nRecCount Mod 2 <> 1 Then
sItemRowClass = " class=""ewTableAltRow"""
End If
x_Codice = rs("Codice")
x_Categoria = rs("Categoria")
x_Trattativa = rs("Trattativa")
x_LocalitE0 = rs("Località")
x_Provincia = rs("Provincia")
x_Condizioni = rs("Condizioni")
x_Metratura_MQ = rs("Metratura MQ")
x_Prezzo_20AC = rs("Prezzo €")
x_Descrizione = rs("Descrizione")
%>
<!-- Table body -->
<tr<%=sItemRowClass%><%=sListTrJs%>>
<!-- Codice -->
<td><span>
<% Response.Write x_Codice %>
</span></td>
<!-- Categoria -->
<td><span>
<% Response.Write x_Categoria %>
</span></td>
<!-- Trattativa -->
<td><span>
<% Response.Write x_Trattativa %>
</span></td>
<!-- Località -->
<td><span>
<% Response.Write x_LocalitE0 %>
</span></td>
<!-- Provincia -->
<td><span>
<% Response.Write x_Provincia %>
</span></td>
<!-- Condizioni -->
<td><span>
<% Response.Write x_Condizioni %>
</span></td>
<!-- Metratura MQ -->
<td><span>
<% Response.Write x_Metratura_MQ %>
</span></td>
<!-- Prezzo € -->
<td><span>
<% Response.Write x_Prezzo_20AC %>
</span></td>
<td><span class="aspmaker"><a href="<% If Not IsNull(x_Codice) Then Response.Write "immobiliview.asp?Codice=" & Server.URLEncode(x_Codice) Else Response.Write "javascript:alert('Invalid Record! Key is null');" End If %>">View</a></span></td>
<td><span class="aspmaker"><a href="<% If Not IsNull(x_Codice) Then Response.Write "immobiliedit.asp?Codice=" & Server.URLEncode(x_Codice) Else Response.Write "javascript:alert('Invalid Record! Key is null');" End If %>">Edit</a></span></td>
<td><span class="aspmaker"><a href="<% If Not IsNull(x_Codice) Then Response.Write "immobiliadd.asp?Codice=" & Server.URLEncode(x_Codice) Else Response.Write "javascript:alert('Invalid Record! Key is null');" End If %>">Copy</a></span></td>
<td><span class="aspmaker"><a href="<% If Not IsNull(x_Codice) Then Response.Write "immobilidelete.asp?Codice=" & Server.URLEncode(x_Codice) Else Response.Write "javascript:alert('Invalid Record! Key is null');" End If %>">Delete</a></span></td>
</tr>
<%
End If
rs.MoveNext
Loop
%>
</table>
</form>
<% End If %>
<%

' Close recordset and connection
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
%>
<form action="immobililist.asp" name="ewpagerform" id="ewpagerform">
<table border="0" cellspacing="0" cellpadding="0">
<tr>
<td nowrap>
<%
If nTotalRecs > 0 Then
rsEof = (nTotalRecs < (nStartRec + nDisplayRecs))
PrevStart = nStartRec - nDisplayRecs
If PrevStart < 1 Then PrevStart = 1
NextStart = nStartRec + nDisplayRecs
If NextStart > nTotalRecs Then NextStart = nStartRec
LastStart = ((nTotalRecs-1)\nDisplayRecs)*nDisplayRecs+1
%>
<table border="0" cellspacing="0" cellpadding="0"><tr><td><span class="aspmaker">Page&nbsp;</span></td>

 

[Alcolico]

continua immobilist.asp

<!--first page button-->
<% If CLng(nStartRec)=1 Then %>
<td><img src="images/firstdisab.gif" alt="First" width="16" height="16" border="0"></td>
<% Else %>
<td><a href="immobililist.asp?start=1"><img src="images/first.gif" alt="First" width="16" height="16" border="0"></a></td>
<% End If %>
<!--previous page button-->
<% If CLng(PrevStart) = CLng(nStartRec) Then %>
<td><img src="images/prevdisab.gif" alt="Previous" width="16" height="16" border="0"></td>
<% Else %>
<td><a href="immobililist.asp?start=<%=PrevStart%>"><img src="images/prev.gif" alt="Previous" width="16" height="16" border="0"></a></td>
<% End If %>
<!--current page number-->
<td><input type="text" name="pageno" value="<%=(nStartRec-1)\nDisplayRecs+1%>" size="4"></td>
<!--next page button-->
<% If CLng(NextStart) = CLng(nStartRec) Then %>
<td><img src="images/nextdisab.gif" alt="Next" width="16" height="16" border="0"></td>
<% Else %>
<td><a href="immobililist.asp?start=<%=NextStart%>"><img src="images/next.gif" alt="Next" width="16" height="16" border="0"></a></td>
<% End If %>
<!--last page button-->
<% If CLng(LastStart) = CLng(nStartRec) Then %>
<td><img src="images/lastdisab.gif" alt="Last" width="16" height="16" border="0"></td>
<% Else %>
<td><a href="immobililist.asp?start=<%=LastStart%>"><img src="images/last.gif" alt="Last" width="16" height="16" border="0"></a></td>
<% End If %>
<td><span class="aspmaker">&nbsp;of <%=(nTotalRecs-1)\nDisplayRecs+1%></span></td>
</tr></table>
<% If CLng(nStartRec) > CLng(nTotalRecs) Then nStartRec = nTotalRecs
nStopRec = nStartRec + nDisplayRecs - 1
nRecCount = nTotalRecs - 1
If rsEOF Then nRecCount = nTotalRecs
If nStopRec > nRecCount Then nStopRec = nRecCount %>
<span class="aspmaker">Records <%= nStartRec %> to <%= nStopRec %> of <%= nTotalRecs %></span>
<% Else %>
<% If sSrchWhere = "0=101" Then %>
<span class="aspmaker"></span>
<% Else %>
<span class="aspmaker">No records found</span>
<% End If %>
<% End If %>
</td>
</tr>
</table>
</form>
<!--#include file="footer.asp"-->
<%

'-------------------------------------------------------------------------------
' Function BasicSearchSQL
' - Build WHERE clause for a keyword

Function BasicSearchSQL(Keyword)
Dim sKeyword
sKeyword = AdjustSql(Keyword)
BasicSearchSQL = ""
BasicSearchSQL = BasicSearchSQL & "[Categoria] LIKE '%" & sKeyword & "%' OR "
BasicSearchSQL = BasicSearchSQL & "[Trattativa] LIKE '%" & sKeyword & "%' OR "
BasicSearchSQL = BasicSearchSQL & "[Località] LIKE '%" & sKeyword & "%' OR "
BasicSearchSQL = BasicSearchSQL & "[Provincia] LIKE '%" & sKeyword & "%' OR "
BasicSearchSQL = BasicSearchSQL & "[Condizioni] LIKE '%" & sKeyword & "%' OR "
BasicSearchSQL = BasicSearchSQL & "[Metratura MQ] LIKE '%" & sKeyword & "%' OR "
BasicSearchSQL = BasicSearchSQL & "[Prezzo €] LIKE '%" & sKeyword & "%' OR "
BasicSearchSQL = BasicSearchSQL & "[Descrizione] LIKE '%" & sKeyword & "%' OR "
If Right(BasicSearchSQL, 4) = " OR " Then BasicSearchSQL = Left(BasicSearchSQL, Len(BasicSearchSQL)-4)
End Function

'-------------------------------------------------------------------------------
' Function SetUpBasicSearch
' - Set up Basic Search parameter based on form elements pSearch & pSearchType
' - Variables setup: sSrchBasic

Sub SetUpBasicSearch()
Dim arKeyword, sKeyword
psearch = Request.QueryString(ewTblBasicSrch)
psearchtype = Request.QueryString(ewTblBasicSrchType)
If psearch <> "" Then
If psearchtype <> "" Then
While InStr(psearch, " ") > 0
sSearch = Replace(psearch, " ", " ")
Wend
arKeyword = Split(Trim(psearch), " ")
For Each sKeyword In arKeyword
sSrchBasic = sSrchBasic & "(" & BasicSearchSQL(sKeyword) & ") " & psearch & " "
Next
Else
sSrchBasic = BasicSearchSQL(psearch)
End If
End If
If Right(sSrchBasic, 4) = " OR " Then sSrchBasic = Left(sSrchBasic, Len(sSrchBasic)-4)
If Right(sSrchBasic, 5) = " AND " Then sSrchBasic = Left(sSrchBasic, Len(sSrchBasic)-5)
If psearch <> "" then
Session(ewSessionTblBasicSrch) = psearch
Session(ewSessionTblBasicSrchType) = psearchtype
End If
End Sub

'-------------------------------------------------------------------------------
' Function ResetSearch
' - Clear all search parameters
'

Sub ResetSearch()

' Clear search where
sSrchWhere = ""
Session(ewSessionTblSearchWhere) = sSrchWhere

' Clear advanced search parameters
Session(ewSessionTblAdvSrch & "_x_Codice") = ""
Session(ewSessionTblAdvSrch & "_x_Categoria") = ""
Session(ewSessionTblAdvSrch & "_x_Trattativa") = ""
Session(ewSessionTblAdvSrch & "_x_LocalitE0") = ""
Session(ewSessionTblAdvSrch & "_x_Provincia") = ""
Session(ewSessionTblAdvSrch & "_x_Condizioni") = ""
Session(ewSessionTblAdvSrch & "_x_Metratura_MQ") = ""
Session(ewSessionTblAdvSrch & "_x_Prezzo_20AC") = ""
Session(ewSessionTblAdvSrch & "_x_Descrizione") = ""
Session(ewSessionTblBasicSrch) = ""
Session(ewSessionTblBasicSrchType) = ""
End Sub

'-------------------------------------------------------------------------------
' Function RestoreSearch
' - Restore all search parameters
'

Sub RestoreSearch()

' Restore advanced search settings
x_Codice = Session(ewSessionTblAdvSrch & "_x_Codice")
x_Categoria = Session(ewSessionTblAdvSrch & "_x_Categoria")
x_Trattativa = Session(ewSessionTblAdvSrch & "_x_Trattativa")
x_LocalitE0 = Session(ewSessionTblAdvSrch & "_x_LocalitE0")
x_Provincia = Session(ewSessionTblAdvSrch & "_x_Provincia")
x_Condizioni = Session(ewSessionTblAdvSrch & "_x_Condizioni")
x_Metratura_MQ = Session(ewSessionTblAdvSrch & "_x_Metratura_MQ")
x_Prezzo_20AC = Session(ewSessionTblAdvSrch & "_x_Prezzo_20AC")
x_Descrizione = Session(ewSessionTblAdvSrch & "_x_Descrizione")
psearch = Session(ewSessionTblBasicSrch)
psearchtype = Session(ewSessionTblBasicSrchType)
End Sub

'-------------------------------------------------------------------------------
' Function SetUpSortOrder
' - Set up Sort parameters based on Sort Links clicked
' - Variables setup: sOrderBy, Session(TblOrderBy), Session(Tbl_Field_Sort)

Sub SetUpSortOrder()
Dim sOrder, sSortField, sLastSort, sThisSort
Dim bCtrl

' Check for an Order parameter
If Request.QueryString("order").Count > 0 Then
sOrder = Request.QueryString("order")

' Field [Codice]
If sOrder = "Codice" Then
sSortField = "[Codice]"
sLastSort = Session(ewSessionTblSort & "_x_Codice")
If sLastSort = "ASC" Then sThisSort = "DESC" Else sThisSort = "ASC"
Session(ewSessionTblSort & "_x_Codice") = sThisSort
Else
If Session(ewSessionTblSort & "_x_Codice") <> "" Then Session(ewSessionTblSort & "_x_Codice") = ""
End If

' Field [Categoria]
If sOrder = "Categoria" Then
sSortField = "[Categoria]"
sLastSort = Session(ewSessionTblSort & "_x_Categoria")
If sLastSort = "ASC" Then sThisSort = "DESC" Else sThisSort = "ASC"
Session(ewSessionTblSort & "_x_Categoria") = sThisSort
Else
If Session(ewSessionTblSort & "_x_Categoria") <> "" Then Session(ewSessionTblSort & "_x_Categoria") = ""
End If

' Field [Trattativa]
If sOrder = "Trattativa" Then
sSortField = "[Trattativa]"
sLastSort = Session(ewSessionTblSort & "_x_Trattativa")
If sLastSort = "ASC" Then sThisSort = "DESC" Else sThisSort = "ASC"
Session(ewSessionTblSort & "_x_Trattativa") = sThisSort
Else
If Session(ewSessionTblSort & "_x_Trattativa") <> "" Then Session(ewSessionTblSort & "_x_Trattativa") = ""
End If

' Field [Località]
If sOrder = "Località" Then
sSortField = "[Località]"
sLastSort = Session(ewSessionTblSort & "_x_LocalitE0")
If sLastSort = "ASC" Then sThisSort = "DESC" Else sThisSort = "ASC"
Session(ewSessionTblSort & "_x_LocalitE0") = sThisSort
Else
If Session(ewSessionTblSort & "_x_LocalitE0") <> "" Then Session(ewSessionTblSort & "_x_LocalitE0") = ""
End If

' Field [Provincia]
If sOrder = "Provincia" Then
sSortField = "[Provincia]"
sLastSort = Session(ewSessionTblSort & "_x_Provincia")
If sLastSort = "ASC" Then sThisSort = "DESC" Else sThisSort = "ASC"
Session(ewSessionTblSort & "_x_Provincia") = sThisSort
Else
If Session(ewSessionTblSort & "_x_Provincia") <> "" Then Session(ewSessionTblSort & "_x_Provincia") = ""
End If

' Field [Condizioni]
If sOrder = "Condizioni" Then
sSortField = "[Condizioni]"
sLastSort = Session(ewSessionTblSort & "_x_Condizioni")
If sLastSort = "ASC" Then sThisSort = "DESC" Else sThisSort = "ASC"
Session(ewSessionTblSort & "_x_Condizioni") = sThisSort
Else
If Session(ewSessionTblSort & "_x_Condizioni") <> "" Then Session(ewSessionTblSort & "_x_Condizioni") = ""
End If

' Field [Metratura MQ]
If sOrder = "Metratura MQ" Then
sSortField = "[Metratura MQ]"
sLastSort = Session(ewSessionTblSort & "_x_Metratura_MQ")
If sLastSort = "ASC" Then sThisSort = "DESC" Else sThisSort = "ASC"
Session(ewSessionTblSort & "_x_Metratura_MQ") = sThisSort
Else
If Session(ewSessionTblSort & "_x_Metratura_MQ") <> "" Then Session(ewSessionTblSort & "_x_Metratura_MQ") = ""
End If

' Field [Prezzo €]
If sOrder = "Prezzo €" Then
sSortField = "[Prezzo €]"
sLastSort = Session(ewSessionTblSort & "_x_Prezzo_20AC")
If sLastSort = "ASC" Then sThisSort = "DESC" Else sThisSort = "ASC"
Session(ewSessionTblSort & "_x_Prezzo_20AC") = sThisSort
Else
If Session(ewSessionTblSort & "_x_Prezzo_20AC") <> "" Then Session(ewSessionTblSort & "_x_Prezzo_20AC") = ""
End If
Session(ewSessionTblOrderBy) = sSortField & " " & sThisSort
Session(ewSessionTblStartRec) = 1
End If
sOrderBy = Session(ewSessionTblOrderBy)
If sOrderBy = "" Then
sOrderBy = ewSqlOrderBy
Session(ewSessionTblOrderBy) = sOrderBy
End If
End Sub

'-------------------------------------------------------------------------------
' Function SetUpStartRec
' - Set up Starting Record parameters based on Pager Navigation
' - Variables setup: nStartRec

Sub SetUpStartRec()
Dim nPageNo

' Check for a START parameter
If Request.QueryString(ewTblStartRec).Count > 0 Then
nStartRec = Request.QueryString(ewTblStartRec)
Session(ewSessionTblStartRec) = nStartRec
ElseIf Request.QueryString("pageno").Count > 0 Then
nPageNo = Request.QueryString("pageno")
If IsNumeric(nPageNo) Then
nStartRec = (nPageNo-1)*nDisplayRecs+1
If nStartRec <= 0 Then
nStartRec = 1
ElseIf nStartRec >= ((nTotalRecs-1)\nDisplayRecs)*nDisplayRecs+1 Then
nStartRec = ((nTotalRecs-1)\nDisplayRecs)*nDisplayRecs+1
End If
Session(ewSessionTblStartRec) = nStartRec
Else
nStartRec = Session(ewSessionTblStartRec)
If Not IsNumeric(nStartRec) Or nStartRec = "" Then
nStartRec = 1 ' Reset start record counter
Session(ewSessionTblStartRec) = nStartRec
End If
End If
Else
nStartRec = Session(ewSessionTblStartRec)
If Not IsNumeric(nStartRec) Or nStartRec = "" Then
nStartRec = 1 'Reset start record counter
Session(ewSessionTblStartRec) = nStartRec
End If
End If
End Sub

'-------------------------------------------------------------------------------
' Function ResetCmd
' - Clear list page parameters
' - RESET: reset search parameters
' - RESETALL: reset search & master/detail parameters
' - RESETSORT: reset sort parameters

Sub ResetCmd()
Dim sCmd

' Get Reset Cmd
If Request.QueryString("cmd").Count > 0 Then
sCmd = Request.QueryString("cmd")

' Reset Search Criteria
If LCase(sCmd) = "reset" Then
Call ResetSearch()

' Reset Search Criteria & Session Keys
ElseIf LCase(sCmd) = "resetall" Then
Call ResetSearch()

' Reset Sort Criteria
ElseIf LCase(sCmd) = "resetsort" Then
sOrderBy = ""
Session(ewSessionTblOrderBy) = sOrderBy
If Session(ewSessionTblSort & "_x_Codice") <> "" Then Session(ewSessionTblSort & "_x_Codice") = ""
If Session(ewSessionTblSort & "_x_Categoria") <> "" Then Session(ewSessionTblSort & "_x_Categoria") = ""
If Session(ewSessionTblSort & "_x_Trattativa") <> "" Then Session(ewSessionTblSort & "_x_Trattativa") = ""
If Session(ewSessionTblSort & "_x_LocalitE0") <> "" Then Session(ewSessionTblSort & "_x_LocalitE0") = ""
If Session(ewSessionTblSort & "_x_Provincia") <> "" Then Session(ewSessionTblSort & "_x_Provincia") = ""
If Session(ewSessionTblSort & "_x_Condizioni") <> "" Then Session(ewSessionTblSort & "_x_Condizioni") = ""
If Session(ewSessionTblSort & "_x_Metratura_MQ") <> "" Then Session(ewSessionTblSort & "_x_Metratura_MQ") = ""
If Session(ewSessionTblSort & "_x_Prezzo_20AC") <> "" Then Session(ewSessionTblSort & "_x_Prezzo_20AC") = ""
End If

' Reset Start Position (Reset Command)
nStartRec = 1
Session(ewSessionTblStartRec) = nStartRec
End If
End Sub
%>

grazie x la pazienza.. :beer:

 

[alex007]

Qui ci vuole tempo

Dove hai preso lo script ? :byebye:

 

[Alcolico]

ho usato l'editor aspmaker.. ho inserito il mio database in questo prog e mi ha generato automaticamente tutto il codice in questione..

 

[alex007]

Re - Alcolico

Ma che devi fare esattamente posso saperlo?
Ho capito che ha a che fare con l'immobiliare, ma esattamente cosa vuoi fare?

 

[Alcolico]

devo creare un motore di ricerca sui record del database access ke ho.. x la ricerca devo creare 3 menu a tendina cn le varie opzioni e in base a queste mostrare i risultati..

 

[alex007]

Re

Scusami tanto ma mi sa che tu fai un po di confusione, allora tanto per cominciare, crea un progetto su carta o come ti pare con tutte le funzionalità del sito che devi fare, non puoi affidarti ad un sistema automatizzato per fare questo.
Quindi:

Primo passo creare,

1) Home page
2) Iscriviti
3 Registra o segnala il tuo immobile
4) Cerca immobili su www.miosito.it
5) Cerca il tuo immobile con le caratteristiche a te più
convenienti
6) Cerca ville
7) Cerca per camere
8) Cerca per servizi ecc.ecc.

O come ti pare che sia, poi . . .

2)° Passo

Costruisci tutte le pagine in html o in asp come ti pare, per tutto il progetto che devi fare, ti consiglio in asp per mille motivi, specialmente per gli script.

3)° Passo
Vai nelle sezioni script, anche di questo sito, oppure
ti consiglio come sezioni tutorial http://www.html.it vai
a cercare la sezione javascript una volta dentro cerca
tra le voci "Menù"
a questo punto ti guardi tutti i menù, e scegli
quello a te più adatto, ce ne sono a tendina, di lato, di
sopra, di sotto, come ti pare e già pronti. . .
Cerca di capire il loro funzionamento, ti consiglio quelli
dove è presente la parte demo in html.it ci sono, in
maniera che apprendi prima.

4)° Passo
Collega il menù a tutte le pagine ok?
Ad es. Dal menù iscriviti alla pagina iscriviti.asp

Fatto questo costruisci il motore adattandolo alle pagine, e non viceversa.

Chiedi in questo sito a (luke), io stesso ho usato un suo script formidabile come motore di ricerca, che poi mi sono adattato alle mie esigenze.
Ti da la possibilità di effettuare ricerche in base a parole chiavi, ad esempio X APPARTAMENTI, O X CIPOLLE OK?
Credo che lo trovi anche qui, in questo sito nella sezione script, cmq su html.it c'è, credimi è molto più semplice ed intuitivo, fai cento volte prima, e secondo me ti renderai più conto di quello che stai facendo.
Specialmente per il futuro non cercare di costruire con gli automatismi tipo programmi eccetera, per farti un esempio lo script di cui ti parlavo si e no sono 20 righe, contro le tue pagine automatizzate che non finiscono più, e ci vuole uno studio per interpretarle, e capire quello che il programma ha generato, forse andrà anche bene per chi ha molta dimistichezza con il linguaggio, ma per chi è all'inizio no.
Anche io sono un'autodidatta, finora ho capito molto, ma quello che di più ho capito, è che devi fare un pezzo per volta, perchè se impari una cosa, poi ce l'hai per sempre.

Non credere di fare tutto con un giorno chiaramente. . .

Lo script di luche, provalo in demo prima, anche sul tuo sito, il database contiene delle parole chiavi di prova al suo interno aprilo con access, e vedi che parole usa, quindi fai la ricerca tramite il form (campo di ricerca) presente nella pagina di prova, ti rendi conto. . ., poi . . ., apri la pagina in html, anche con il programma "blocco note" confronta nello script e cerca la tabella di comunicazione con il database, dovrebbe essere "risultati", quindi troverai sia "risultati" nella pagina, sia "risultati" nel database. fino qui spero di essere stato chiaro.
Poi apri la tabella nel database con access in modalità modifica, e vedi il contenuto dei record, se guardi bene uno corrisponde al "record" dello script, presente nella pagina di ricerca, come pagina intendo quella che hai scaricato all'interno del file scrip.zip, e che avrai messo sul sito per provalrla.
Quindi se ipotesi la pagina esegue la ricerca per mezzo della tabella "risultati", e del record "pippo", non ti rimane che trasformare il record "pippo" in appartamenti,camere,ville,bagni ecc.ecc. oppure aggiungere record a seconda delle tue esigenze, adattandolo ad ogni pagina di ricerca presente nel tuo sito o "Progetto" che abbiamo già realizzato dal passo 1/4,
Capito ?
Lo so che vista cosi sembra difficile, ma è molto più facile te lo assicuro, inizia e vedrai, in meno di un mese avrai ottimi risultati, e sarai vicino alla fine del tuo progetto, ne sono sicuro.
Spero con questo di averti illuminato un pò.
:mavieni: