Ciao ho questo script
<%
Function TrovaNumeroColloqui(codiceimmobile)
Dim objRS, strSQL
strSQL = "SELECT COUNT(*) AS NUMERO FROM colloqui WHERE codiceimmobile = '" & codiceimmobile & "'"
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.cursorlocation = 3
objRS.Open strSQL, cn
TrovaNumeroColloqui = objRS.Fields("NUMERO")
objRS.Close
End Function
Function Verifica_Coll_Immobile_Per_Richiedente(codiceimmob ile)
Dim objRS, strSQL, strVerificaImmobile
strVerificaImmobile = "No"
strSQL = "SELECT codice FROM colloqui WHERE codiceimmobile = '" & codiceimmobile & "'"
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.cursorlocation = 3
objRS.Open strSQL, cn
While NOT objRS.EOF
If CStr(objRS.Fields("codice")) = CStr(Request.Querystring("cod")) Then strVerificaImmobile = "Sì"
objRS.MoveNext
Wend
objRS.Close
Verifica_Coll_Immobile_Per_Richiedente = strVerificaImmobile
End Function
%>
<% 'Caricamento cookies
Dim item
For Each item In Request.Form
Session(item) = Trim(Request.Form(item))
Next
%>
<body bgcolor="#000080">
<div align="center">
<center>
<table cellspacing="0" cellpadding="0" width="922">
</center>
<tr>
<td width="922" valign="middle" align="left" height="21" style="border-top: 2 solid #808080">
</td>
</tr>
</table>
</div>
<table border="0" cellpadding="0" cellspacing="0" width="40%">
<tr>
<td><font face="Tahoma" color="#FFFFFF" size="1"><%
'elenco documenti
Dim objRS, strSQL
dim varMq
dim varprezzo
dim stWhere
varmq = Session("mq")
if trim(varmq) <> "" then
mqpiu15 =Replace((varmq*(1.25)) ,",", ".")
mqmen15 =Replace((varmq*(0.75)) ,",", ".")
end if
varprezzo = Session("prezzo")
if trim(varprezzo) <> "" then
prezzopiu15 =Replace((varprezzo*(1.25)) ,",", ".")
prezzomen15 =Replace((varprezzo*(0.75)) ,",", ".")
end if
strSQL = "SELECT * FROM immobili WHERE " &_
"tipoimmobile Like '%" & Trim(Session("tipoimmobile")) & "%' AND comune Like '%" & Trim(Session("comune")) & "%' AND quartiere Like '%" & Trim(Session("quartiere")) & "%' AND zona Like '" & Trim(Session("zona")) & "%' AND uso Like '%" & Trim(Session("uso")) & "%' AND giardino Like '%" & Trim(Session("giardino")) & "%' AND terrazzo Like '%" & Trim(Session("terrazzo")) & "%' AND cameredaletto Like '%" & Trim(Session("cameredaletto")) & "%' AND nuovacostruzione Like '%" & Trim(Session("nuovacostruzione")) & "%' AND visione Like '%" & Trim(Session("visione")) & "%' AND statopratica Like '%" & Trim(Session("statopratica")) & "%' AND livello Like '%" & Trim(Session("livello")) & "%'"
if trim(varmq) <> "" then
strSQL = strsql & " AND mq <=" & mqpiu15 & " and mq >=" & mqmen15 & " "
end if
if trim(varprezzo) <> "" then
strSQL = strsql & " AND prezzo <=" & prezzopiu15 & " and prezzo >=" & prezzomen15 & " "
end if
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.cursorlocation = 3
objRS.Open strSQL, cn
Response.Write "Trovati " & objRS.RecordCount &" risultati.
"
%></font></td>
<tr><a href onclick="window.close();return false">[img]esci.gif[/img]</a></tr>
</tr>
</table>
'elenco documenti
strSQL = "SELECT * FROM immobili WHERE " &_
"tipoimmobile Like '%" & Trim(Session("tipoimmobile")) & "%' AND comune Like '%" & Trim(Session("comune")) & "%' AND quartiere Like '%" & Trim(Session("quartiere")) & "%' AND zona Like '" & Trim(Session("zona")) & "%' AND uso Like '%" & Trim(Session("uso")) & "%' AND giardino Like '%" & Trim(Session("giardino")) & "%' AND terrazzo Like '%" & Trim(Session("terrazzo")) & "%' AND cameredaletto Like '%" & Trim(Session("cameredaletto")) & "%' AND nuovacostruzione Like '%" & Trim(Session("nuovacostruzione")) & "%' AND visione Like '%" & Trim(Session("visione")) & "%' AND statopratica Like '%" & Trim(Session("statopratica")) & "%' AND livello Like '%" & Trim(Session("livello")) & "%' "
if trim(varmq) <> "" then
strSQL = strsql & " AND mq <=" & mqpiu15 & " and mq >=" & mqmen15 & " "
end if
if trim(varprezzo) <> "" then
strSQL = strsql & " AND prezzo <=" & prezzopiu15 & " and prezzo >=" & prezzomen15 & " "
end if
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.cursorlocation = 3
objRS.Open strSQL, cn
Do While Not objRS.EOF
%>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="3%" align="center">
<p align="center">">[img]edit.gif[/img]"></p>
</td>
<td width="3%" align="center"><font face="Tahoma" color="#FFFFFF" size="1"><%=objrs("codiceimmobile")%></font></td>
<td width="4%" align="center"><font face="Tahoma" color="#FFFFFF" size="1"><%=objrs("livello")%></font></td>
<td width="6%" align="center"><font face="Tahoma" color="#FFFFFF" size="1"><%=objrs("indirizzo")%></font></td>
<td width="6%" align="center"><font face="Tahoma" color="#FFFFFF" size="1"><%=objrs("comune")%></font></td>
<td width="7%" align="center"><font face="Tahoma" color="#FFFFFF" size="1"><%=objrs("cognome")%><input type="hidden" value="<%=objrs("agenzia")%>"></font></td>
<td width="4%" align="center"><font face="Tahoma" color="#FFFFFF" size="1"><%=objrs("mq")%></font></td>
<td width="5%" align="center"><font face="Tahoma" color="#FFFFFF" size="1"><%=objrs("prezzo")%></font></td>
<%
'--- Trovo il numero dei colloqui e in base al numero trovato invio alla pagina con l'elenco colloqui oppure
' alla pagina menu colloqui (quella preesistente)
Dim NumeroColloqui, strLink
NumeroColloqui = TrovaNumeroColloqui(objrs("codiceimmobile"))
If CInt(NumeroColloqui) > 0 Then
strLink = "<td width=""5%"" align=""center"">http://<b><font face=""Tahoma"" colo...& "</font></b></font></td>"
strLink = strLink & "<td width=""2%"" align=""center""><font face=""Tahoma"" color=""#FFFFFF"" size=""1"">" & Verifica_Coll_Immobile_Per_Richiedente(objrs("codi ceimmobile")) & "</font></td>"
Else
strLink = "<td width=""5%"" align=""center""><font face=""Tahoma"" color=""#FFFFFF"" size=""1"">0</font></td>"
strLink = strLink & "<td width=""2%"" align=""center""><font face=""Tahoma"" color=""#FFFFFF"" size=""1"">No</font></td>"
End If
Response.write strLink
%>
<td width="5%" align="center"><font face="Tahoma" color="#FFFFFF" size="1">" target="_blank"><font face="Tahoma" color="#FFFFFF" size="1">Nuovo »</font></font></td>
</tr>
<%
objrs.MoveNext
Loop
objrs.Close
SET objrs = Nothing
%>
</table>
</center>
</div>
</div>
</tr>
</table>
</div>
<hr>
<table border="0" cellpadding="0" cellspacing="0" width="5%">
<tr>
<td><font size="2" face="Tahoma"><input type="button" name="Agenda" value="AGENDA" onClick="document.location='agenda.asp'" style="color: #FFFFFF; font-family: Tahoma; font-size: 10 px; font-weight: bold; background-color: #000080; border-style: solid; border-color: #FFFFFF"></font></td>
<td><a href onclick="window.close();return false">[img]esci.gif[/img]</a></td>
</tr>
</table>
</hr>
Tutto cio funziona vorremo inserire nella stessa pagina dopo questo elenco un successivo elenco che visualizzi pero le informazioni di un altro database collegato .
Cioe stessi campi provenienti da un db di un dominio diverso su un altro server dove si sa naturalmente l'indirizzo che è stato messo su
http://www.xxxxxyyyyyonline.it/public/db.mdb
come far scendere l'elenco ed il collegamento a quell'indirizzo ????
attendo risposta grazie
Rispondi quotando