Risalve eheheh
passo ad una pagina un id che serve per estrarre una foto in questa pagina ho un frame e vorrei che arrivasse anche a lui questo id...
come possofare????
Risalve eheheh
passo ad una pagina un id che serve per estrarre una foto in questa pagina ho un frame e vorrei che arrivasse anche a lui questo id...
come possofare????
<iframe src="comments.asp?pid=<% =strRic %>"></iframe>
passa pid 1 ed è corretto nella pagina del frame invece:
strRic = Request.QueryString( "pid" )
sqlString = "SELECT * FROM commenti WHERE idfoto=" & strRic
Microsoft OLE DB Provider for ODBC Drivers error '80040e14'
[Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression 'idfoto='.
/comments.asp, line 12
dove sbaglio?
Nella prima pagina ASP dentro al codice del frame metti assieme al nome pagina anche la queryString.
pagina1.asp
codice:<% id = request.queryString("id") ' altro codice tuo... %> <frameset ... > <frame src="pagina2.asp?id=<%=id%>" ... > ...
strRic = request.queryString( "pid" )
è nella prima pagina asp a comments arriva l'id giusto ma questo poi non arriva al frame che si trova in quella pagina grrrr
Vediamo il codice di tutte e due le pagine?
<%
strRic = request.queryString( "pid" )
dbfile = Server.MapPath("../database/sciclub.mdb")
Set Con = Server.CreateObject( "ADODB.Connection" )
con.connectionstring="DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & dbfile & ";"
Con.Open
Set objrs = CreateObject("ADODB.Recordset")
Set objrs.ActiveConnection = Con
objrs.LockType = 2
objrs.open "SELECT * FROM foto WHERE id=" & strRic
objRS("click") = objRS("click")+1
objRS.Update
objRS.Close
Set objRS = Nothing
sqlString = "SELECT * FROM foto WHERE id=" & strRic
Set RS = Server.CreateObject( "ADODB.Recordset" )
RS.ActiveConnection = Con
RS.Open sqlString
%>
<head>
<title>Foto <%=rs("immy")%> Cliccata: <%=rs("click")%> volte</title>
<script>
function smilie(scode){
form.msg.value =form.msg.value+scode;
}
function ava(scode)
{
/*recuperiamo il codice dell'avatar selezionato in precedenza*/
avatarselezionato= document.form.avatar.value;
if (avatarselezionato=='')/*nessun avatar selezionato in precedenza*/
{
elementoImmagine = eval("document.getElementById('" + scode +"')");
elementoImmagine.border=1;
elementoImmagine.bordercolor='';
}
else
{
elementoImmagine = eval("document.getElementById('" + avatarselezionato +"')");
elementoImmagine.border=0;
elementoImmagine = eval("document.getElementById('" + scode +"')");
elementoImmagine.border=1;
}
document.form.avatar.value = scode;
}
</script>
<style type="text/css">
@import url(stile.css);
body {
background-color: #6699FF;
background-image: url('sf.jpg');
background-position: center;
background-repeat: repeat-y;
font-family: Verdana;
font-size: 10px;
text-align: left;
}
</style>
</head>
<div align="center">
<table border="1" width="19%" id="table2" cellspacing="9" cellpadding="9" style="border-collapse: collapse">
<tr>
<td>
<p align="center">
[img]/image/<%=rs([/img]" style="border: 1px solid #000000">
</td>
</tr>
</table>
</div>
<div align="center">
<p align="center">
<iframe src="comments.asp?pid=<% =strRic %>"></iframe>
</tr>
</p>
</div>
<form method="POST" action="ins_commento.asp" name="form">
<div align="center">
</table>
</div>
<div align="center">
<table border="0" width="24%" id="table1">
<tr>
<td>
<input type="hidden" name="pid" size="54" value="<%= request("pid")%>"></td>
</tr>
<tr>
<td>
<table border="0" width="32%" id="table3" cellpadding="4">
<tr>
<td style="border-style: dashed; border-width: 1px" width="10"><a href="javascript:smilie('@1')">
</td>
<td style="border-style: dashed; border-width: 1px"><a href="javascript:smilie('@2')">
</a></td>
<td style="border-style: dashed; border-width: 1px">
<a href="javascript:smilie('@3')">
[img]ciapet.gif[/img]</a></td>
<td style="border-style: dashed; border-width: 1px">
<a href="javascript:smilie('@4')">
[img]metallica.gif[/img]</a></td>
</tr>
</table>
</tr>
<tr>
<td><textarea rows="8" name="msg" cols="46"></textarea></td>
</tr>
<tr>
<td><input type="submit" class="invia" value="Invia" name="B1"><input type="reset" class="pulsante" value="Reimposta" name="B2"><font color="#000000" size="1"> </font><a href="foto.asp"><span style="text-decoration: none">
<font color="#6699FF" size="1">Indietro</font></span></a></td>
</tr>
</table>
</div>
</div>
</p>
<p align="center"></p>
</form>
<p align="center"></p>
<p align="center"></p>
<p align="center"></p>
<%
rs.Close
Set rs = Nothing
con.Close
Set cn = Nothing
%>
questa è la pagina immy.asp che contiene il frame
<%
strRic = Request.QueryString( "pid" )
sqlString = "SELECT * FROM commenti WHERE idfoto=" & strRic
Set RS = Server.CreateObject( "ADODB.Recordset" )
RS.ActiveConnection = Con
RS.Open sqlString
%>
<%
Repeat=1
Do Until rs.EOF
%>
<%
While ((Repeat <> 0) AND (NOT Rs.EOF))
%>
<div align="center">
<table onMouseover="changeto('#3C62A2')" onMouseout="changeback('#6C8FC9')" border="0" width="40%" id="table1" style="border-top-style: solid; border-bottom-style: solid; " height="38">
<tr>
<td height="68" align="left" bordercolor="#000080" style="border-left-width: 1px; border-right-width: 1px; border-top-style: solid; border-top-width: 1px; border-bottom-style: solid; border-bottom-width: 1px" rowspan="2">
<font face="Verdana" size="1">
<%= rs.fields("data")%> <%= rs.fields("ora")%> </font>
<font face="Verdana" size="1">
<%
testo=rs.fields("commento") & ""
testo=replace(testo,"@1","<img src=biggrin.gif>")
testo=replace(testo,"@2","<img src=frown.gif>")
testo=replace(testo,"@3","<img src=ciapet.gif>")
testo=replace(testo,"@4","<img src=metallica.gif>")
response.write testo
%></font></td>
</tr>
<tr>
<%
Repeat=Repeat -1
Rs.MoveNext()
Wend
%>
</tr>
<%
Repeat=1
Loop
%>
Questa comments.asp ovvero la pagina nel frame
VVoVe:
Sembra a posto.
Se apri il codice HTML da browser della pagina immy.asp, nella riga del frame appare il valore id oppure no?
sisi appare....
http://www.sciclubrore.ch/immy.asp?pid=1
Adesso sul browser chiama direttamente la pagina comments.asp e aggiungi la queryString id = valore che appare nel codice visto prima...
Mancava il collegamento al database in comments
grzie caro
Permessi di invio
Rispondi quotando