[ 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 %> |