Ciao ragazzi vi posto il cod ASP di una mia pagina che raccoglie i dati da un recordset e me li elenca in una tabella con la classica area ripetuta. In questa tabella ho inserito un'icona "INFO" che mi porta ad una pag dettagli. Fin qui tutto bene, ma come faccio ad aprire la pag dettagli in una popup?????????????????????????????????????
Ho evidenziato in rosso il link associato all'icona che mi porta al dettaglio,ma senza popup. GRAZIEEEEE
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Dim rs_macerata__MMColParam
rs_macerata__MMColParam = "1"
If (Request.Form("macerata") <> "") Then
rs_macerata__MMColParam = Request.Form("macerata")
End If
%>
<%
Dim rs_macerata
Dim rs_macerata_numRows
Set rs_macerata = Server.CreateObject("ADODB.Recordset")
rs_macerata.ActiveConnection = MM_conn_project_STRING
rs_macerata.Source = "SELECT * FROM tbl_immobile WHERE tipo_immobile = '" + Replace(rs_macerata__MMColParam, "'", "''") + "' AND agenzia = 'MACERATA';"
rs_macerata.CursorType = 0
rs_macerata.CursorLocation = 2
rs_macerata.LockType = 1
rs_macerata.Open()
rs_macerata_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
rs_macerata_numRows = rs_macerata_numRows + Repeat1__numRows
%>
<%
Dim MM_paramName
%>
<%
' *** 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
%>
<!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>
<title>Documento senza titolo</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<style type="text/css">
<!--
.Stile6 {color: #FF0000}
-->
</style>
</head>
<body>
</p>
<table width="770" border="0" align="center" cellpadding="0" cellspacing="0">
<tr bgcolor="#01669a">
<td height="19" colspan="10"></td>
<td width="153"></td>
</tr>
<tr>
<td height="170" colspan="11">[img]images/banner_home.jpg[/img]</td>
</tr>
<tr bgcolor="#01669A">
<td width="73" height="19"></td>
<td width="99"></td>
<td width="4"></td>
<td width="10"></td>
<td width="71"></td>
<td width="88"></td>
<td width="32"></td>
<td width="84"></td>
<td width="30"></td>
<td width="126"></td>
<td></td>
</tr>
<tr valign="middle" bgcolor="#ebebeb">
<td height="19">[img]images/home.jpg[/img]</td>
<td colspan="2">[img]images/chi_siamo.jpg[/img]</td>
<td colspan="2">[img]images/caontatti.jpg[/img]</td>
<td colspan="2">[img]images/member_area.jpg[/img]</td>
<td>[img]images/news.jpg[/img]</td>
<td></td>
<td></td>
<td></td>
</tr>
<tr valign="bottom">
<td height="71" colspan="11">[img]images/agenzia_mac.jpg[/img]</td>
</tr>
<tr valign="middle" bgcolor="#CCCCCC">
<td height="19" colspan="4" valign="middle" bgcolor="#CCCCCC">[img]images/tipo.jpg[/img]</td>
<td colspan="2" valign="middle" bgcolor="#CCCCCC">[img]images/comune.jpg[/img]</td>
<td colspan="3" valign="middle" bgcolor="#CCCCCC">[img]images/mq.jpg[/img]</td>
<td valign="middle" bgcolor="#CCCCCC">[img]images/prezzo.jpg[/img]</td>
<td valign="middle" bgcolor="#CCCCCC">[img]images/info.jpg[/img]</td>
</tr>
<tr valign="middle" bgcolor="#FFFFFF">
<% If rs_macerata.EOF And rs_macerata.BOF Then %>
<td height="19" colspan="11" valign="top">
<div align="left" class="Stile6">nessun risultato per questa ricerca </div></td>
<% End If ' end rs_macerata.EOF And rs_macerata.BOF %>
</tr>
<tr>
<td height="38" colspan="11"><table width="100%" border="0" cellspacing="0" cellpadding="3">
<%
While ((Repeat1__numRows <> 0) AND (NOT rs_macerata.EOF))
%>
<%
Dim varColoreRiga
If Repeat1__index mod 2 = 0 Then
varColoreRiga = "#FFFFFF"
Else
varColoreRiga = "#EEEEEE"
end if
%>
<tr bgcolor="<%=varColoreRiga%>">
<td width="24%" height="35"><%=(rs_macerata.Fields.Item("tipo_immo bile").Value)%></td>
<td width="21%"><%=(rs_macerata.Fields.Item("comune"). Value)%></td>
<td width="19%"><%=(rs_macerata.Fields.Item("mq").Valu e)%></td>
<td width="18%"><%=(rs_macerata.Fields.Item("prezzo"). Value)%></td>
<td width="18%">">[img]<%=(rs_macerata.Fields.Item([/img]" /> </td>
</tr>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
rs_macerata.MoveNext()
Wend
%>
</table></td>
</tr>
</table>
</p>
</body>
</html>
<%
rs_macerata.Close()
Set rs_macerata = Nothing
%>
Rispondi quotando
