Ingen hjälpsam själ därute?
Frågan#1
Jag har ett omröstningsscript där jag vill att när man röstar så ska resultatet presenteras i ett litet popupfönster. Har prövat med ett javascript men får det inte att fungera för när man trycker på knappen då så räknas inte rösterna. Är det någon som skulle kunna vara schysst o hjälpa mig fixa popupfönster till detta.
Tacksam för hjälp!
Här kommer koden:
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath("omrostning1/poll.mdb")
SQL = "SELECT TOP 1 * From fragor ORDER BY id DESC"
Set RecSet1 = Connect.Execute(SQL)
%>
<link href="style.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
body {
margin-top: 0px;
margin-bottom: 0px;
}
-->
</style>
</head>
<body>
<table width="159" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="57" height="20"><span class="menyrubrik">Omröstning</span></td>
<td width="96"><div align="right"><img src="bilder/uppe.jpg" width="13" height="13"></div></td>
</tr>
</table>
<table width="158" border="0">
<% IF RecSet1.EOF then %>
<tr>
<td width="151">
<div align="center"><font face="Verdana" size="1">Databasen är tom</font></div>
</td>
</tr>
<%ELSE
SQL = "SELECT * From svar WHERE koppling = " & RecSet1("id") & " ORDER BY namn"
Set RecSet2 = Connect.Execute(SQL)
Do Until RecSet1.EOF%>
<form name="form1" method="post" action="omrostning1/rosta.asp?id=<%=RecSet1("id")%>">
<tr>
<td>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td><font face="Verdana" size="1"><b><%=RecSet1("namn")%></b></font></td>
</tr>
<% Do Until RecSet2.EOF %>
<tr>
<td>
<input type="radio" name="val" value="<%=RecSet2("id")%>">
<font face="Verdana" size="1"><%=RecSet2("namn")%></font></td>
</tr>
<%
RecSet2.MoveNext
Loop
RecSet2.Close
%>
</table>
</td>
</tr>
<tr>
<td>
<div align="left">
<input type="submit" name="Skicka" value="Rösta" style="font-family: verdana; font-size: 10px">
<input type="button" name="Knapp" value="Resultat" style="font-family: verdana; font-size: 10px" OnClick="window.location=omrostning1/resultat.asp'" ; "centerpopup(this.href,200,220); return false;">
</div></td>
</tr>
</form>
<%
RecSet1.MoveNext
Loop
RecSet1.Close
Connect.Close
Set Connect = nothing
END IF
%>
</table>
</body>
</html>
