Hvorfor bliver Record ikk udskrevet ?
Hej Eksperter.Jeg har et afstemningssystem, hvor siden, der laver afstemningen, hedder stem.inc.
Den ser således ud:
--------------------------------------------------stem.inc
--------------------------------------------------
<%
' ------------------------------------------------
' Function Stem(id) - id = id i stem.mdb
' ------------------------------------------------
function stem(id)
font = "<font size='2' face='Verdana'>"
faktor = 2
barcolor = "#206090"
Set RsVote = Server.CreateObject("ADODB.Connection")
DBPath = "DBQ=" & server.mappath("stem.mdb")
RsVote.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath
Sql = "Select * from T_Vote where Id = " & id
Set Record = RsVote.Execute(Sql)
If Not Record.EOF then
If (Len(Request.Cookies("stem")(CSTR(id)))) then
Dim Valg(5)
valg(1) = Record("valg1")
valg(2) = Record("valg2")
valg(3) = Record("valg3")
valg(4) = Record("valg4")
valg(5) = Record("valg5")
Response.Write "<table border='0' WIDTH=300><tr><TD COLSPAN='3'><B><CENTER>"
response.write font & Record("Beskrivelse") & "</center></B></TD></TR>"
Sql = "Select count(*) as Found from T_VoteResult where VoteId = " & id
Set Record = RsVote.Execute(Sql)
Ialt = Record("found")
Response.Write "<tr>"
For i = 1 to 5
If valg(i) <> "" then
Sql = "Select count(*) as Found from T_VoteResult where VoteId = " & id & " and vote = '" & Valg(i) & "'"
Set Record = RsVote.Execute(Sql)
Procent = 100/Ialt * Record("Found")
response.write "<td>" & font & Valg(i) & "</td><td>" & font & Round(procent) & "%</td><td><hr STYLE='height: 5pt;' width='" & Procent * faktor & "' align='left' color='" & barcolor & "'></td></tr>"
end if
Next
strSQL = "SELECT COUNT(ID) AS Antal FROM T_Voteresult WHERE voteid = " & id & ""
Set rs2 = RsVote.Execute(strSQL)
If rs2("antal") = "1" Then
Response.Write "<tr><td colspan='3' align='left'><CENTER><FONT SIZE='1'>" & rs2("Antal") &" stemme</FONT></CENTER></td></tr>"
Else
Response.Write "<tr><td colspan='3' align='left'><CENTER><FONT SIZE='1'>" & rs2("Antal") &" stemmer</FONT></CENTER></td></tr>"
End If
Response.Write "</table>"
else
session("retur") = Request.ServerVariables("SCRIPT_NAME")
%>
<html>
<head>
<META NAME="Generator" CONTENT="Stone's WebWriter 3.5">
<title>Stem</title>
</head>
<body>
<TABLE BORDER="0" WIDTH="300">
<TR>
<TD>
<CENTER><B>
<% response.write font & Record("Beskrivelse") %></B></CENTER>
<form method='POST' action='stemreg.asp'>
<input type='hidden' name='Voteid' value='<%= Id %>'>
<%
If Record("valg1") <> "" then
%>
<input type='radio' value='<%= Record("valg1") %>' name='R1'> <%= Record("valg1") %><br>
<%
end if
If Record("valg2") <> "" then
%>
<input type='radio' value='<%= Record("valg2") %>' name='R1'> <%= Record("valg2") %><br>
<%
end if
If Record("valg3") <> "" then
%>
<input type='radio' value='<%= Record("valg3") %>' name='R1'> <%= Record("valg3") %><br>
<%
end if
If Record("valg4") <> "" then
%>
<input type='radio' value='<%= Record("valg4") %>' name='R1'> <%= Record("valg4") %><br>
<%
end if
If Record("valg5") <> "" then
%>
<input type='radio' value='<%= Record("valg5") %>' name='R1'> <%= Record("valg5") %><br>
<%
end if
%>
<CENTER><p>
<input type='submit' value='Stem' name='B1'>
<input type='reset' value='Slet' name='B2'></p>
</CENTER>
</TD></TR></TABLE>
</form>
</body>
</html>
<%
end if
else
response.write font & "Id findes ikke"
end if
end function
%>
--------------------------------------------------stem.inc
--------------------------------------------------
Der er bare lige et problem. Record("valg1") udskrives ikke. Hvad er der galt ?
