[ darkopo @ 06.08.2002. 16:32 ] @
Naso sam na netu neku skriptu za anketu koja je umesto dugmica koje sam ja satvijo imala slicice (gifove).
Problem je u tome sto sam jedno dugme(glasaj) uspesno odradijo dok dugme rezultati nisam mogao da namestim !
Problem je u tome sto ne znam da dodelim link ka odredjenoj strani u mom slucaju vote.asp?sql=<%=rs.fields("title")%> .
Pa kako u mom slucaju terba da bude ova strana da klikom na dugme rezultat odem na zeljenu stranu vote.asp?sql=<%=rs.fields("title")%>

<%
'create connection
set conn = server.CreateObject ("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath ("fpdb/engglas.mdb")
'query to select active data...
sql = "SELECT * FROM title, vote where title.active = 'y' and title.id = vote.id"
set rs = server.CreateObject ("ADODB.Recordset")
rs.Open sql, conn, 3, 3
%>



<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1250">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<link rel="stylesheet" href="stili.css" type="text/css">
<title>Poll</title>
<script language="JavaScript" type="text/JavaScript">
<!--


function MM_preloadImages() { //v3.0
var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
if (a.indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a;}}
}

function MM_swapImgRestore() { //v3.0
var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a)&&x.oSrc;i++) x.src=x.oSrc;
}

function MM_findObj(n, d) { //v4.01
var p,i,x; if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[n];
for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers.document);
if(!x && d.getElementById) x=d.getElementById(n); return x;
}

function MM_swapImage() { //v3.0
var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
if ((x=MM_findObj(a))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}

function P7_swapClass(){ //v1.4 by PVII
var i,x,tB,j=0,tA=new Array(),arg=P7_swapClass.arguments;
if(document.getElementsByTagName){for(i=4;i<arg.length;i++){tB=document.getElementsByTagName(arg);
for(x=0;x<tB.length;x++){tA[j]=tB[x];j++;}}for(i=0;i<tA.length;i++){
if(tA.className){if(tA.id==arg[1]){if(arg[0]==1){
tA.className=(tA.className==arg[3])?arg[2]:arg[3];}else{tA.className=arg[2];}
}else if(arg[0]==1 && arg[1]=='none'){if(tA.className==arg[2] || tA.className==arg[3]){
tA.className=(tA.className==arg[3])?arg[2]:arg[3];}
}else if(tA.className==arg[2]){tA.className=arg[3];}}}}
}
//-->
</script>
</head>

<body onLoad="MM_preloadImages('../images/anketa2.jpg')">
<div align="center">
<center>
<table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF" lang="sr" class="ze">
<!--DWLayoutTable-->
<tr>
<td width="100%" height="371" valign="top" bgcolor="#FFFFFF"> <b>
<div align="center"><span class="nortxtv10"><img src="../images/anketa.jpg" name="anketa" width="100%" height="22" align="absbottom" id="anketa"></span>
</div>
<table border="1" cellspacing="0" style="border-collapse: collapse" bordercolor="#000000" width="100%">
<!--DWLayoutTable-->
<tr>
<td width="80%" height="297" align="center" valign="top" bgcolor="#FFFF99">
<div align="center"><span class="nortxtv10">
<%
'if no data in database for selected query...
if rs.eof then
%>
</span><span class="nortxtv">
<%else%>
</span> </div>
<form action="updateeng.asp?title=<%=rs.fields("title")%>" method="POST" id="form1" name="form1">
<div align="center"><span class="nortxtv10"><br />
</span>
<table width="95%" border="1" cellspacing="0" style="border-collapse: collapse" cellpadding="3" bordercolor="#000000">
<!--DWLayoutTable-->
<tr>
<td width="100%" height="27" align="center" valign="top" bgcolor="#FFCC33"><span class="nortxtv10">
<font color="#0000CC"><b><%=rs.fields("title")%></b></font> </span></td>
</tr>
<tr>
<td height="44" align="left" valign="middle" bgcolor="#ffe8ac">
<span class="nortxtv10">
<%
'create radio buttons
for a = 1 to rs.recordcount
%>
<input name="polli" type="radio" onMouseOver="MM_swapImage('anketa','','../images/anketa2.jpg',1)" onMouseOut="MM_swapImgRestore()" value="<%=rs.fields("answer")%>">
<%=rs.fields("answer")%><br />
<%
rs.movenext
if rs.eof then
rs.movelast
end if
next
%>
</span></td>
</tr>
<tr>
<td height="26" align="center" valign="top" bgcolor="#FFCC33">
<span class="nortxtv10">
<input name="sql" type="submit" class="neznozelenapozadinaCopy" onMouseOver="MM_swapImage('anketa','','../images/anketa2.jpg',1);P7_swapClass(1,'none','neznozelenapozadinaCopy','neznozutapozadinaCopy','input')" onMouseOut="MM_swapImgRestore();P7_swapClass(1,'none','neznozutapozadinaCopy','neznozelenapozadinaCopy','input')" value="Glasaj">
<input type="button" class="neznozelenapozadinaCopy2" onMouseOver="MM_swapImage('anketa','','../images/anketa2.jpg',1);P7_swapClass(0,'none','neznozelenapozadinaCopy2','neznozutapozadinaCopy2','input')" onMouseOut="MM_swapImgRestore();P7_swapClass(0,'none','neznozutapozadinaCopy2','neznozelenapozadinaCopy2','input')" value="Rezultat">
</span></td>
</tr>
</table>
<span class="nortxtv10"></font> </span> </div>
</form>
<div align="center"><span class="nortxtv10">
<%end if%>
<%
'close recordset
rs.Close
set rs = nothing

'open rs with new query .. to select inactive data...
sql = "SELECT * FROM title where active = 'n'"
set rs = server.CreateObject ("ADODB.Recordset")
rs.Open sql, conn, 3, 3
%>
</span> </div>
<form action="vote.asp" method="POST">
<div align="center"><span class="nortxtv10"> </span></div>
</form></td>
</tr>
</table>
</b> </td>
<td width="5"> </td>
<td width="1"></td>
</tr>
<tr>
<td height="19"> </td>
<td> </td>
<td></td>
</tr>
<tr>
<td height="2"></td>
<td><img src="/spacer.gif" alt="" width="5" height="1"></td>
<td></td>
</tr>
<tr>
<td height="1"></td>
<td><img src="/spacer.gif" alt="" width="5" height="1"></td>
<td><img src="/spacer.gif" alt="" width="1" height="1"></td>
</tr>
</table>
</center>
</div>



</body>



<% 'close connection and recordset...
rs.Close
set rs = nothing
conn.Close
set conn = nothing
%>
[ degojs @ 07.08.2002. 05:29 ] @
Tjah, nisam siguran da sam bas razumeo.. ali kako vidim REZULTAT dugme ti se nalazi unutar <form> </form> taga za form1, zajedno sa GLASAJ dugmetom koje je tipa SUBMIT za form1.

Dakle izbrisi tag za REZULTAT dugme ( nalazi se ispod taga za GLASAJ) a zatim ispod </form> taga dodaj novu formu sa REZULTAT dugmetom, nesto poput:
...
...
</span></td>
</tr>
<tr>
<td height="26" align="center" valign="top" bgcolor="#FFCC33">
<span class="nortxtv10">
<input name="sql" type="submit" class="neznozelenapozadinaCopy" onMouseOver="MM_swapImage('anketa','','../images/anketa2.jpg',1);P7_swapClass(1,'none','neznozelenapozadinaCopy','neznozutapozadinaCopy','input')" onMouseOut="MM_swapImgRestore();P7_swapClass(1,'none','neznozutapozadinaCopy','neznozelenapozadinaCopy','input')" value="Glasaj">
IZBRISALI SMO TAG ZA REZULTAT DUGME OVDE
</span></td>
</tr>
</table>
<span class="nortxtv10"></font> </span> </div>
</form>
DODAJEMO NOVO DUGME OVDE:
<form action="vote.asp?sql=<%=rs.fields("title")%>" method="POST" id="form2" name="form2">

<input name="glasaj" type="submit" class="neznozelenapozadinaCopy2" onMouseOver="MM_swapImage('anketa','','../images/anketa2.jpg',1);P7_swapClass(0,'none','neznozelenapozadinaCopy2','neznozutapozadinaCopy2','input')" onMouseOut="MM_swapImgRestore();P7_swapClass(0,'none','neznozutapozadinaCopy2','neznozelenapozadinaCopy2','input')" value="Rezultat">
</form>
....

Drugim recima: samo jedno dugme u okviru forme (<form> .... </form>) moze biti tipa SUBMIT (odnosno mozes da pokazujes na samo jednu stranicu koja vrsi obradu..), ako gresim neko ce vec da me ispravi ...