ho bisogno di aiuto

**clark1** · 10-02-2009, 13:50

ti faccio capire
http://www.livemusicdoor.net/locali.asp se tu vai su questo link
forse capisci
se tu vedi dove si scrive il nome del locale se scrivi ( alcatraz di milano) lui ti trova la riga se pero' scrivi solo alcatraz nn ti trova nulla
io quale ti devo mandare?

**Roby_72** · 10-02-2009, 13:53

Te l'ho già detto: http://www.livemusicdoor.net/ricercalocali.asp

Roby

**clark1** · 10-02-2009, 13:54

forse ho trovato quello che mi chiedi

<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td colspan="8"><table width="1%" border="0" align="right">
<tr>
<td>[img]img/bottoneinizio.jpg[/img]</td>
<td>[img]img/bottonepreview.jpg[/img]</td>
<td>[img]img/bottonenext.jpg[/img]</td>
<td>[img]img/bottonefine.jpg[/img]</td>
</tr>
</table></td>
</tr>
<tr>
<td colspan="8"></td>
</tr>
<tr>
<td width="13%" height="30"></td>
<td width="2%" height="30"></td>
<td width="35%" height="30">Locale[img]img/bottoneordina.jpg[/img]</td>
<td width="21%" height="30">Provincia[img]img/bottoneordina.jpg[/img]</td>
<td height="30">Regione[img]img/bottoneordina.jpg[/img]</td>
<td width="9%" height="30">Dettagli</td>
</tr>
<%
While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF))
%>
<tr>
<td></td>
</tr>
<tr>
<td rowspan="3">[img]/public/FotoMusiche/<%=(Recordset1.Fields.Item([/img]L.jpg" alt="non disponibile" name="IMG2" width="90" height="50" align="top" class="style_logolocali" id="IMG2" /></td>
</tr>
<tr>
<td><input name="HiddenID" type="hidden" id="HiddenID" value="<%=(Recordset1.Fields.Item("LocaleID").Valu e)%>" /> </td>
<td><span class="aggiungi"><%=(Recordset1.Fields.Item("Clien te").Value)%></span>

<span class="frase"><%=(Recordset1.Fields.Item("via").Va lue)%></span></td>
<td><%=(Recordset1.Fields.Item("Provincia").Value) %></td>
<td width="20%"><%=(Recordset1.Fields.Item("Regione"). Value)%></td>
<td colspan="2">">[img]img/bottonedettagli.jpg[/img]</td>
</tr>
<tr> </tr>
<tr>
<td></td>
</tr>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
Recordset1.MoveNext()
Wend
%>
</table>

**Roby_72** · 10-02-2009, 13:58

No, ragiona. Devi trovare la query! Sai di cosa sto parlando!?

Roby

**clark1** · 10-02-2009, 14:06

mi viene da piangere sono nel panico

di solito una query inizia con il select ma non la trovo nella pagina

**Roby_72** · 10-02-2009, 14:10

Chi cerca trova...

Roby

**clark1** · 10-02-2009, 14:15

la devo cercare nella pagina ricercalocali.asp?

**clark1** · 10-02-2009, 14:19

roby dammi dell'imbranato dimmi quello che merito ma non lo trovo questa e la pagina aiutami tu ti prego (pagina ricercalocali.asp)

<%@LANGUAGE="VBSCRIPT"%>

<%
Dim Recordset1__value1
Recordset1__value1 = "%"
If (Request("Cliente") <> "") Then
Recordset1__value1 = Request("Cliente")
End If
%>
<%
Dim Recordset1__value2
Recordset1__value2 = "%"
If (Request("Regione") <> "") Then
Recordset1__value2 = Request("Regione")
End If
%>
<%
Dim Recordset1__value3
Recordset1__value3 = "%"
If (Request("Provincia") <> "") Then
Recordset1__value3 = Request("Provincia")
End If
%>

<%
set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_Case_STRING
Recordset1.Source = "SELECT * FROM `locali` WHERE Cliente like '" + Replace(Recordset1__value1, "'", "''") + "' and Regione like '" + Replace(Recordset1__value2, "'", "''") + "' and Provincia like '" + Replace(Recordset1__value3, "'", "''") + "' and Rimosso='No' ORDER BY Cliente ASC"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 3
Recordset1.Open()
Recordset1_numRows = 0
%>

<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = 10
Repeat1__index = 0
Recordset1_numRows = Recordset1_numRows + Repeat1__numRows
%>
<%
' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables

Dim Recordset1_total
Dim Recordset1_first
Dim Recordset1_last

' set the record count
Recordset1_total = Recordset1.RecordCount

' set the number of rows displayed on this page
If (Recordset1_numRows < 0) Then
Recordset1_numRows = Recordset1_total
Elseif (Recordset1_numRows = 0) Then
Recordset1_numRows = 1
End If

' set the first and last displayed record
Recordset1_first = 1
Recordset1_last = Recordset1_first + Recordset1_numRows - 1

' if we have the correct record count, check the other stats
If (Recordset1_total <> -1) Then
If (Recordset1_first > Recordset1_total) Then
Recordset1_first = Recordset1_total
End If
If (Recordset1_last > Recordset1_total) Then
Recordset1_last = Recordset1_total
End If
If (Recordset1_numRows > Recordset1_total) Then
Recordset1_numRows = Recordset1_total
End If
End If
%>
<%
Dim MM_paramName
%>
<%
' *** Move To Record and Go To Record: declare variables

Dim MM_rs
Dim MM_rsCount
Dim MM_size
Dim MM_uniqueCol
Dim MM_offset
Dim MM_atTotal
Dim MM_paramIsDefined

Dim MM_param
Dim MM_index

Set MM_rs = Recordset1
MM_rsCount = Recordset1_total
MM_size = Recordset1_numRows
MM_uniqueCol = ""
MM_paramName = ""
MM_offset = 0
MM_atTotal = false
MM_paramIsDefined = false
If (MM_paramName <> "") Then
MM_paramIsDefined = (Request.QueryString(MM_paramName) <> "")
End If
%>
<%
' *** Move To Record: handle 'index' or 'offset' parameter

if (Not MM_paramIsDefined And MM_rsCount <> 0) then

' use index parameter if defined, otherwise use offset parameter
MM_param = Request.QueryString("index")
If (MM_param = "") Then
MM_param = Request.QueryString("offset")
End If
If (MM_param <> "") Then
MM_offset = Int(MM_param)
End If

' if we have a record count, check if we are past the end of the recordset
If (MM_rsCount <> -1) Then
If (MM_offset >= MM_rsCount Or MM_offset = -1) Then ' past end or move last
If ((MM_rsCount Mod MM_size) > 0) Then ' last page not a full repeat region
MM_offset = MM_rsCount - (MM_rsCount Mod MM_size)
Else
MM_offset = MM_rsCount - MM_size
End If
End If
End If

' move the cursor to the selected record
MM_index = 0
While ((Not MM_rs.EOF) And (MM_index < MM_offset Or MM_offset = -1))
MM_rs.MoveNext
MM_index = MM_index + 1
Wend
If (MM_rs.EOF) Then
MM_offset = MM_index ' set MM_offset to the last possible record
End If

End If
%>
<%
' *** Move To Record: if we dont know the record count, check the display range

If (MM_rsCount = -1) Then

' walk to the end of the display range for this page
MM_index = MM_offset
While (Not MM_rs.EOF And (MM_size < 0 Or MM_index < MM_offset + MM_size))
MM_rs.MoveNext
MM_index = MM_index + 1

Wend

' if we walked off the end of the recordset, set MM_rsCount and MM_size
If (MM_rs.EOF) Then
MM_rsCount = MM_index
If (MM_size < 0 Or MM_size > MM_rsCount) Then
MM_size = MM_rsCount
End If
End If

' if we walked off the end, set the offset based on page size
If (MM_rs.EOF And Not MM_paramIsDefined) Then
If (MM_offset > MM_rsCount - MM_size Or MM_offset = -1) Then
If ((MM_rsCount Mod MM_size) > 0) Then
MM_offset = MM_rsCount - (MM_rsCount Mod MM_size)
Else
MM_offset = MM_rsCount - MM_size
End If
End If
End If

' reset the cursor to the beginning
If (MM_rs.CursorType > 0) Then
MM_rs.MoveFirst
Else
MM_rs.Requery
End If

' move the cursor to the selected record
MM_index = 0
While (Not MM_rs.EOF And MM_index < MM_offset)
MM_rs.MoveNext
MM_index = MM_index + 1
Wend
End If
%>
<%
' *** Move To Record: update recordset stats

' set the first and last displayed record
Recordset1_first = MM_offset + 1
Recordset1_last = MM_offset + MM_size

If (MM_rsCount <> -1) Then
If (Recordset1_first > MM_rsCount) Then
Recordset1_first = MM_rsCount
End If
If (Recordset1_last > MM_rsCount) Then
Recordset1_last = MM_rsCount
End If
End If

' set the boolean used by hide region to check if we are on the last record
MM_atTotal = (MM_rsCount <> -1 And MM_offset + MM_size >= MM_rsCount)
%>
<%
' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters

Dim MM_keepNone
Dim MM_keepURL
Dim MM_keepForm
Dim MM_keepBoth

Dim MM_removeList
Dim MM_item
Dim MM_nextItem

' create the list of parameters which should not be maintained
MM_removeList = "&index="
If (MM_paramName <> "") Then
MM_removeList = MM_removeList & "&" & MM_paramName & "="
End If

MM_keepURL=""
MM_keepForm=""
MM_keepBoth=""
MM_keepNone=""

' add the URL parameters to the MM_keepURL string
For Each MM_item In Request.QueryString
MM_nextItem = "&" & MM_item & "="
If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item))
End If
Next

' add the Form variables to the MM_keepForm string
For Each MM_item In Request.Form
MM_nextItem = "&" & MM_item & "="
If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item))
End If
Next

' create the Form + URL string and remove the intial '&' from each of the strings
MM_keepBoth = MM_keepURL & MM_keepForm
If (MM_keepBoth <> "") Then
MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)
End If
If (MM_keepURL <> "") Then
MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1)
End If
If (MM_keepForm <> "") Then
MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)
End If

' a utility function used for adding additional parameters to these strings
Function MM_joinChar(firstItem)
If (firstItem <> "") Then
MM_joinChar = "&"
Else
MM_joinChar = ""
End If
End Function
%>
<%
' *** Move To Record: set the strings for the first, last, next, and previous links

Dim MM_keepMove
Dim MM_moveParam
Dim MM_moveFirst
Dim MM_moveLast
Dim MM_moveNext
Dim MM_movePrev

Dim MM_urlStr
Dim MM_paramList
Dim MM_paramIndex
Dim MM_nextParam

MM_keepMove = MM_keepBoth
MM_moveParam = "index"

' if the page has a repeated region, remove 'offset' from the maintained parameters
If (MM_size > 1) Then
MM_moveParam = "offset"
If (MM_keepMove <> "") Then
MM_paramList = Split(MM_keepMove, "&")
MM_keepMove = ""
For MM_paramIndex = 0 To UBound(MM_paramList)
MM_nextParam = Left(MM_paramList(MM_paramIndex), InStr(MM_paramList(MM_paramIndex),"=") - 1)
If (StrComp(MM_nextParam,MM_moveParam,1) <> 0) Then
MM_keepMove = MM_keepMove & "&" & MM_paramList(MM_paramIndex)
End If
Next
If (MM_keepMove <> "") Then
MM_keepMove = Right(MM_keepMove, Len(MM_keepMove) - 1)
End If
End If
End If

' set the strings for the move to links
If (MM_keepMove <> "") Then
MM_keepMove = Server.HTMLEncode(MM_keepMove) & "&"
End If

**clark1** · 10-02-2009, 14:20

MM_urlStr = Request.ServerVariables("URL") & "?" & MM_keepMove & MM_moveParam & "="

MM_moveFirst = MM_urlStr & "0"
MM_moveLast = MM_urlStr & "-1"
MM_moveNext = MM_urlStr & CStr(MM_offset + MM_size)
If (MM_offset - MM_size < 0) Then
MM_movePrev = MM_urlStr & "0"
Else
MM_movePrev = MM_urlStr & CStr(MM_offset - MM_size)
End If
%>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>LiveMusicDoor</title>
<link rel="stylesheet" type="text/css" href="css/home.css" />
<script language="javascript">
// -------------------------
gg = new
Array('Domenica','Lunedì','Martedì','Mercoledì','G iovedì','Venerdì','Sabato');
ms = new
Array('Gennaio','Febbraio','Marzo','Aprile','Maggi o','Giugno','Luglio','Agosto','Settembre','Ottobre ','Novembre','Dicembre');
function visua()
{
var ora = new Date();
var aa = ora.getDate();
var mm = ora.getMonth();
var yy = ora.getFullYear();
var oo = ora.getHours();
var mn = ora.getMinutes();
var sec = ora.getSeconds();
var dd = ora.getDay();
var aa2 = ((aa < 10) ? "0" : "");
var oo2 = ((oo < 10) ? "0" : "");
var mn2 = ((mn < 10) ? ":0" : ":");
var sec2 = ((sec < 10) ? ":0" : ":");
var Data = aa2 + aa +" "+ ms[mm] + " " + yy;
var hh = oo2 + oo - 12 + mn2 + mn + sec2 + sec;
var amopm="Am"
if (oo>12){
amopm="Pm"
}
if(document.all){
document.all.primo.innerHTML = "Oggi è: " + gg[dd] + " - " + Data + " - " + hh + " " +amopm;
}
else if(document.getElementById){
document.getElementById('primo').innerHTML = gg[dd] + " - " + Data + " - " + hh + " " +amopm;
}
else if(document.layers){
document.layers['primo'].document.write('<p id="primo">Con Netscape: '+gg[dd] + " - " + Data + " - " + hh+ " " +amopm+'</p>');
document.layers['primo'].document.close()
}
window.setTimeout("visua()",1000);
}
</script>
</head>

<body>

<div id="container">

<div id="bannersu">
[img]img/provabanner990x65.jpg[/img]
</div>

<div style="line-height:5px; clear:both;"></div>

<div id="header">
<div id="sx">
[img]img/provabanner220x110.jpg[/img]
<div style="line-height:10px; clear:both;"></div>
<object classid="clsid

27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,19,0" width="220" height="110">
<param name="movie" value="img/slide1.swf" />
<param name="quality" value="high" />
<embed src="img/slide1.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="220" height="110"></embed>
</object>
</div>
<div id="cntr">
[img]img/header.jpg[/img] </div>
<div id="dx">
[img]img/provabanner220x110.jpg[/img]
<div style="line-height:10px; clear:both;"></div>
<object classid="clsid

27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,19,0" width="220" height="110">
<param name="movie" value="img/slide2.swf" />
<param name="quality" value="high" />
<embed src="img/slide2.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="220" height="110"></embed>
</object>
</div>
</div>

<div style="line-height:1px; clear:both;"></div>

<div id="menu">
<ul class="menu4">
[*]home
<li class="current">locali
[*]teatri
[*]gruppi
[*]eventi
[*]music style
[*]music market
[*]links
[*]contatti
[/list]
</div>

<div style="line-height:5px; clear:both; font-size:7pt; color:#003399; font-style:italic;">
<p align="right" id="primo"></p>
<div align="right">
<script language="javascript">
window.setTimeout("visua()",1000);
</script>
</div>
</div>

<div id="sinistra">

[img]img/bottonegruppientra.jpg[/img]Hai già iscritto il tuo gruppo? Allora... </p>

[img]img/bottoneentra.jpg[/img]</p>

Non hai ancora effettuato l'iscrizione? Allora... </p>

[img]img/bottoneregistrati.jpg[/img]</p>
<div style="line-height:35px; clear:both;"></div>

<div id="cboxdiv" style="text-align: center; line-height: 0">
<div><iframe frameborder="0" width="200" height="125" src="http://www3.cbox.ws/box/?boxid=3092116&boxtag=6425&sec=main" marginheight="2" marginwidth="2" scrolling="auto" allowtransparency="yes" name="cboxmain" style="border:#DBE2ED 1px solid;" id="cboxmain"></iframe></div>
<div><iframe frameborder="0" width="200" height="75" src="http://www3.cbox.ws/box/?boxid=3092116&boxtag=6425&sec=form" marginheight="2" marginwidth="2" scrolling="no" allowtransparency="yes" name="cboxform" style="border:#DBE2ED 1px solid;border-top:0px" id="cboxform"></iframe></div>
</div>

</div>

<div id="centroricercalocali">
<div align="center">
[img]img/scrittalocali.jpg[/img]</div>
<div style="line-height:15px; clear:both;"></div>
LIVEMUSICDOOR è lieto di presentarvi i locali dove poter ascoltare e assaporare la bellezza della musica dal vivo, musa ispiratrice del nostro progetto, ma soprattutto compagna di viaggio in questo nostro cammino fatto di emozioni ed esperienze. Buon Viaggio...
<div style="line-height:15px; clear:both;"></div>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><form>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td colspan="8"><table width="1%" border="0" align="right">
<tr>
<td>[img]img/bottoneinizio.jpg[/img]</td>
<td>[img]img/bottonepreview.jpg[/img]</td>
<td>[img]img/bottonenext.jpg[/img]</td>
<td>[img]img/bottonefine.jpg[/img]</td>
</tr>
</table></td>
</tr>
<tr>
<td colspan="8"></td>
</tr>
<tr>
<td width="13%" height="30"></td>
<td width="2%" height="30"></td>
<td width="35%" height="30">Locale[img]img/bottoneordina.jpg[/img]</td>
<td width="21%" height="30">Provincia[img]img/bottoneordina.jpg[/img]</td>
<td height="30">Regione[img]img/bottoneordina.jpg[/img]</td>
<td width="9%" height="30">Dettagli</td>
</tr>
<%
While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF))
%>
<tr>
<td></td>
</tr>
<tr>
<td rowspan="3">[img]/public/FotoMusiche/<%=(Recordset1.Fields.Item([/img]L.jpg" alt="non disponibile" name="IMG2" width="90" height="50" align="top" class="style_logolocali" id="IMG2" /></td>
</tr>
<tr>
<td><input name="HiddenID" type="hidden" id="HiddenID" value="<%=(Recordset1.Fields.Item("LocaleID").Valu e)%>" /> </td>
<td><span class="aggiungi"><%=(Recordset1.Fields.Item("Clien te").Value)%></span>

<span class="frase"><%=(Recordset1.Fields.Item("via").Va lue)%></span></td>
<td><%=(Recordset1.Fields.Item("Provincia").Value) %></td>
<td width="20%"><%=(Recordset1.Fields.Item("Regione"). Value)%></td>
<td colspan="2">">[img]img/bottonedettagli.jpg[/img]</td>
</tr>
<tr> </tr>
<tr>
<td></td>
</tr>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
Recordset1.MoveNext()
Wend
%>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td><table border="0" align="right">
<tr>
<td>[img]img/bottoneinizio.jpg[/img]</td>
<td>[img]img/bottonepreview.jpg[/img]</td>
<td>[img]img/bottonenext.jpg[/img]</td>
<td>[img]img/bottonefine.jpg[/img]</td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
</form></td>
</tr>
<tr>
<td><table width="1%" border="0" align="center">
<tr>
<td height="35" valign="bottom">
[img]img/bottoneindietro.jpg[/img]</td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
<div style="line-height:15px; clear:both;"></div>
</div>

<div style="line-height:15px; clear:both;"></div>

<div id="bannergiu">
[img]img/provabanner990x65.jpg[/img]
</div>

</div>

</body>
</html>

<%
Recordset1.Close()
Set Recordset1 = Nothing
%>

**Roby_72** · 10-02-2009, 14:29

Ma non vedi che è quii la SELECT????

codice:

<%
set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_Case_STRING
Recordset1.Source = "SELECT * FROM `locali` WHERE Cliente like '" + Replace(Recordset1__value1, "'", "''") + "' and Regione like '" + Replace(Recordset1__value2, "'", "''") + "' and Provincia like '" + Replace(Recordset1__value3, "'", "''") + "' and Rimosso='No' ORDER BY Cliente ASC"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 3
Recordset1.Open()
Recordset1_numRows = 0
%>

Devi usare la LIKE con % altrimenti equivale all'=.

Roby

Discussione: ho bisogno di aiuto

Strumenti discussione

Ricerca discussione

Visualizza

risposta

risposta

risposta

risp

risposta

continuo

Permessi di invio