Min kode ser sådan her ud:
<% response.buffer = true %>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title></title></head>
<body bgcolor="#000000">
<div align="center">
<center>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#FFFFFF" width="500" id="AutoNumber1" height="545">
<tr>
<td width="100%" height="103"><img border="0" src="../Logo.jpg" width="749" height="103"></td>
</tr>
<tr>
<td width="100%" bgcolor="#808080" height="12">
<p align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">
<a href="../index.asp"><font color="#FFFFFF">
<applet code="fphover.class" codebase="../." width="80" height="20">
<param name="textcolor" value="#FFFFFF">
<param name="color" value="#808080">
<param name="hovercolor" value="#FF0000">
<param name="text" value="Nyheder">
<param name="url" valuetype="ref" value="index.asp">
<param name="effect" value="glow">
</applet><applet code="fphover.class" codebase="../." width="83" height="20">
<param name="textcolor" value="#FFFFFF">
<param name="effect" value="glow">
<param name="color" value="#808080">
<param name="hovercolor" value="#FF0000">
<param name="text" value="Information">
<param name="url" valuetype="ref" value="info.asp">
</applet></font></a></font><FONT
face="Verdana, Arial, Helvetica, sans-serif" size=2
link="#FFFFFF" color="#FFFFFF"> </font> <font face="Verdana, Arial, Helvetica, sans-serif" size="2">
<a href="../index.asp"><font color="#FFFFFF">
<applet code="fphover.class" codebase="../." width="50" height="20">
<param name="textcolor" value="#FFFFFF">
<param name="effect" value="glow">
<param name="color" value="#808080">
<param name="hovercolor" value="#FF0000">
<param name="text" value="Spil">
<param name="url" valuetype="ref" value="Spil.asp">
</applet><applet code="fphover.class" codebase="../." width="60" height="20">
<param name="textcolor" value="#FFFFFF">
<param name="effect" value="glow">
<param name="color" value="#808080">
<param name="hovercolor" value="#FF0000">
<param name="text" value="Links">
<param name="url" valuetype="ref" value="Links.asp">
</applet><applet code="fphover.class" codebase="../." width="100" height="20">
<param name="textcolor" value="#FFFFFF">
<param name="effect" value="glow">
<param name="color" value="#808080">
<param name="hovercolor" value="#FF0000">
<param name="text" value="Counter-Strike">
<param name="url" valuetype="ref" value="CS.asp">
</applet><applet code="fphover.class" codebase="../." width="80" height="20">
<param name="textcolor" value="#FFFFFF">
<param name="effect" value="glow">
<param name="color" value="#808080">
<param name="hovercolor" value="#FF0000">
<param name="text" value="Tagwall">
<param name="url" valuetype="ref" value="Tagwall.asp">
</applet></font></a></font></td>
</tr>
<tr>
<td width="100%" bgcolor="#000000" bordercolor="#FFFFFF" bordercolorlight="#FFFFFF" height="426">
<p align="left"> </p>
<p align="center"><b><font color="#FFFFFF" face="Verdana" size="4">
</font></b></p>
<table width="101%" border="0" height="359">
<tr>
<td height="27"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FFFFFF">Nyheder</font></td>
<td height="27"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FFFFFF">Afstemning</font></td>
</tr>
<tr>
<td> </td>
<td>
<p> <%
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("poll.mdb")
sql = "SELECT TOP 1 * FROM polls ORDER BY id desc"
set res = myconn.execute(sql)
ja = res("1")
nej = res("2")
ialt = ja + nej
curid = res("id")
spm1 = res("q1")
spm2 = res("q2")
if ja = "0" AND nej = "0" then
japro = "0"
nejpro = "0"
else
japro = ja / ialt * 100
nejpro = nej / ialt * 100
end if
lid = request.querystring("id")
if request.cookies(" & curid & ")("voted") = "true" then
linkja = "<td colspan=""2"" width=""100%""><p style=""margin:2""><font size=""1"">" & res("q1") & "</font></p></td>"
linknej = "<td colspan=""2"" width=""100%""><p style=""margin:2""><font size=""1"">" & res("q2") & "</font></p></td>"
harstemt = "<br>Tak for din " & request.cookies(" & curid & ")("vote") & "-stemme."
else
linkja = "<td><p style=""margin:2""><font size=""1""><a href=""?mode=update&id="&curid&"&vote=1""><u>" & res("q1") & "</u></a></font></p></td>"
linknej = "<td><p style=""margin:2""><font size=""1""><a href=""?mode=update&id="&curid&"&vote=2""><u>" & res("q2") & "</u></a></font></p></td>"
harstemt = ""
end if
strmode = request.querystring("mode")
vote = request.querystring("vote")
curid = request.querystring("id")
select case strmode
case "update"
if vote = "1" then
stemmer = ja + 1
curid = request.querystring("id")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("poll.mdb")
SQLstmt = "UPDATE polls SET 1='" & stemmer & "' WHERE id=" & request.querystring("id") & ""
Conn.Execute (SQLstmt)
response.cookies(" & curid & ")("voted") = "true"
response.cookies(" & curid & ")("vote") = "1"
response.cookies(" & curid & ").expires = date+1
response.redirect("?mode=")
else
stemmer = nej + 1
curid = request.querystring("id")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("poll.mdb")
SQLstm = "UPDATE polls SET 2='" & stemmer & "' WHERE id=" & request.querystring("id") & ""
Conn.Execute (SQLstm)
response.cookies(" & curid & ")("voted") = "true"
response.cookies(" & curid & ")("vote") = "2"
response.cookies(" & curid & ").expires = date+1
Response.redirect("?mode=")
end if
conn.Close
Set conn = nothing
Set SQLstmt = nothing
case "arkiv"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("poll.mdb")
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open strDSN
sql = "SELECT * FROM polls ORDER BY id desc"
set rs = myconn.execute(sql)
%>
<table border="0" width="125" cellspacing="0">
<%
If Not (rs.BOF Or rs.EOF) Then
Do While Not rs.EOF
ja = rs("1")
nej = rs("2")
ialt = ja + nej
lid = rs("id")
if ja = "0" AND nej = "0" then
japro = "0"
nejpro = "0"
else
japro = ja / ialt * 100
nejpro = nej / ialt * 100
end if
%>
<tr><td width="100%"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FFFFFF"><b>Dato: <%=rs("dato")%></b></font></td></tr>
<tr><td width="100%"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FFFFFF">><%=spm%></font></td></tr>
<tr><td width="100%"><table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr><td><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FFFFFF"><%=rs("q1")%></font></td></tr>
<tr><td><table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr><td width="<%=Round(japro, 0)%>" bgcolor="#FF9900"><img border="0" src="../tom.gif" width="<%=Round(japro, 0)%>" height="12"></td>
<td width="<%=Round(nejpro, 0)%>" bgcolor="#E5E5E5"><img border="0" src="../tom.gif" width="<%=Round(nejpro, 0)%>" height="12"></td></tr></table></td>
<td width="15" bgcolor="#E5E5E5"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FFFFFF"> <%=Round(japro, 0)%>%</font></td></tr></table></td></tr>
<tr><td width="100%"><table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr><td><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FFFFFF"><%=rs("q2")%></font></td></tr>
<tr><td><table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr><td width="<%=nejpro%>%" bgcolor="#FF9900"><img border="0" src="../tom.gif" width="<%=nejpro%>%" height="12"></td>
<td width="<%=japro%>%" bgcolor="#E5E5E5"><img border="0" src="../tom.gif" width="<%=japro%>%" height="12"></td></tr></table></td>
<td width="15" bgcolor="#E5E5E5"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FFFFFF"> <%=Round(nejpro, 0)%>%</font></td></tr></table></td></tr>
<tr><td width="100%"><p align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FFFFFF"><%=ialt%> har stemt!</font><img border="0" src="../tom.gif" width="5" height="2"></td></tr>
<tr><td width="100%"><img border="0" src="../tom.gif" width="5" height="5"></td></tr>
<%
rs.MoveNext
Loop
End If
%>
<tr><td width="100%" align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FFFFFF"><a href="../poll.asp">Tilbage</a></font></td></tr>
</table>
<%
case "add"
if session("password") = "test" then
Session.LCID = 1030
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("poll.mdb")
Set rs = Conn.Execute("INSERT INTO Polls (1,2,dato,q1,q2) VALUES ('0','0','" & date() & "','" & request.form("q1") & "','" & request.form("q2") & "')")
Conn.Close
Set Conn = Nothing
response.redirect("poll.asp")
else
response.redirect("poll.asp?mode=login")
end if
Case "login"
if request.form("password") = "test" then
session("password") = "test"
response.redirect("poll.asp?mode=admin")
else
%>
<form action="../poll.asp?mode=login" method="post">
<table><tr><td><input type="password" name="password"><br><input type="submit" value="login"></td></tr></table>
</form>
<%
end if
case "logout"
session.abandon
response.redirect("poll.asp?mode=login")
Case "admin"
if session("password") = "test" then
%>
<form action="../poll.asp?mode=add" method="post">
<table><tr><td>Svar 1</td><td><input type="text" name="q1"></td></tr>
<tr><td>Svar 2</td><td><input type="text" name="q2"></td></tr>
<tr><td> </td><td><input type="Submit" value="Opret"></td></tr>
</table>
</form>
<%
else
response.redirect("poll.asp?mode=login")
end if
case else
%>
<table border="0" width="125" cellspacing="0" cellpadding="0">
<tr>
<td width="100%">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr> <%=linkja%> </tr>
<tr>
<td width="100%">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="<%=Round(japro, 0)%>" bgcolor="#FF0000"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FFFFFF"><img border="0" src="../tom.gif" width="<%=Round(japro, 0)%>" height="12"></font></td>
<td width="<%=Round(nejpro, 0)%>" bgcolor="#000000"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FFFFFF"><img border="0" src="../tom.gif" width="<%=Round(nejpro, 0)%>" height="12"></font></td>
</tr>
</table>
</td>
<td width="15" bgcolor="#000000"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FFFFFF"> <%=Round(japro, 0)%>%</font></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr> <%=linknej%> </tr>
<tr>
<td width="100%">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="<%=Round(nejpro, 0)%>" bgcolor="#FF0000"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FFFFFF"><img border="0" src="../tom.gif" width="<%=Round(nejpro, 0)%>" height="12"></font></td>
<td width="<%=Round(japro, 0)%>" bgcolor="#000000"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FFFFFF"><img border="0" src="../tom.gif" width="<%=Round(japro, 0)%>" height="12"></font></td>
</tr>
</table>
</td>
<td width="15" bgcolor="#000000"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FFFFFF"> <%=Round(nejpro, 0)%>%</font></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%">
<p align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FFFFFF"><%=ialt%>
har stemt!</font>
</td>
</tr>
<tr>
<td width="100%">
<p align="center"><font color="#FFFFFF"></font>
</td>
</tr>
<tr>
<td width="100%">
<p align="center"><font color="#FFFFFF"></font>
</td>
</tr>
</table>
<% end select %></p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
</td>
</tr>
</table>
<p align="center"><b><font color="#FFFFFF" face="Verdana" size="4">
</font></b></p>
<p align="center"><font color="#FFFFFF" face="Verdana"><font size="2"><br>
</font>
</font></p>
<p align="center">
</p>
</td>
</tr>
</table>
</center>
</div>
</body>
</html>
Hvor skal jeg ændre???
