Søg
Avatar billede bosse88 Nybegynder
28. januar 2002 - 20:23 Der er 10 kommentarer og
1 løsning

Poll script problemer

Koden er herunder, der er et eller andet galt, jeg hentede dette script og har så siden forsøgt på at tilføje en 3. mulighed. Jeg har lidt problemer, lige nu viser den voting forkert, hmm den vote var lavet der jeg fik scriptet. Men jeg kan ikke lave en ny vote! Jeg kan godt logge ind men jeg kan ikke oprette en ny vote, forsøger jeg kommer der en fejl på linje 233, jeg aner ikke hvad der er galt. vær venlig at hjælpe! :)

<% response.buffer = true %>
<html>
<head>
<title>Poll</title>
<style type="text/css">
body {font-family:verdana}
</style>
</head>
<body>
<%
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")
maybe = res("2")
nej = res("3")
ialt = ja + maybe + nej
curid = res("id")
spm1 = res("q1")
spm2 = res("q2")
spm3 = res("q3")

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>"
linkmaybe = "<td colspan=""2"" width=""100%""><p style=""margin:2""><font size=""1"">" & res("q2") & "</font></p></td>"
linknej = "<td colspan=""2"" width=""100%""><p style=""margin:2""><font size=""1"">" & res("q3") & "</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>"
linkmaybe = "<td><p style=""margin:2""><font size=""1""><a href=""?mode=update&id="&curid&"&vote=2""><u>" & res("q2") & "</u></a></font></p></td>"
linknej = "<td><p style=""margin:2""><font size=""1""><a href=""?mode=update&id="&curid&"&vote=2""><u>" & res("q3") & "</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=")

Elseif vote = "1" then

stemmer = maybe + 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=")

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") = "3"
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")
maybe = rs("2")
nej = rs("3")
ialt = ja + maybe + nej
lid = rs("id")

if ja = "0" AND maybe = "0" AND nej = "0" then
japro = "0"
maybepro = "0"
nejpro = "0"
else
japro = ja / ialt * 100
maybepro = maybe / ialt * 100
nejpro = nej / ialt * 100
end if

%>


                <tr><td width="100%"><font size="1"><b>Dato: <%=rs("dato")%></b></font></td></tr>
                <tr><td width="100%"><font size="1"><%=spm%></font></td></tr>
                <tr><td width="100%"><table border="0" width="100%" cellspacing="0" cellpadding="0">
                <tr><td><font size="1"><%=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(maybepro, 0)%>" bgcolor="#E5E5E5"><img border="0" src="tom.gif" width="<%=Round(maybepro, 0)%>" height="12"></td></tr></table></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 size="1">&nbsp;<%=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 size="1"><%=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="<%=maybepro%>%" height="12"></td>
                <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 size="1">&nbsp;<%=Round(nejpro, 0)%>%</font></td></tr></table></td></tr>
                <tr><td width="100%"><p align="center"><font size="1"><%=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 size="1"><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>Svar 2</td><td><input type="text" name="q3"></td></tr>
      <tr><td>&nbsp;</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="#FF9900"><img border="0" src="tom.gif" width="<%=Round(japro, 0)%>" height="12"></td>
                              <td width="<%=Round(maybepro, 0)%>" bgcolor="#E5E5E5"><img border="0" src="tom.gif" width="<%=Round(maybepro, 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 size="1">&nbsp;<%=Round(japro, 0)%>%</font></td>
                      </tr>
                    </table>
                  </td>
                </tr>
                <tr>
                  <td width="100%">
                    <table border="0" width="100%" cellspacing="0" cellpadding="0">
                      <tr>
                        <%=linkmaybe%>
                      </tr>
                      <tr>
                        <td width="100%">
                          <table border="0" width="100%" cellspacing="0" cellpadding="0">
                            <tr>
                              <td width="<%=Round(maybepro, 0)%>" bgcolor="#FF9900"><img border="0" src="tom.gif" width="<%=Round(japro, 0)%>" height="12"></td>
                              <td width="<%=Round(japro, 0)%>" bgcolor="#E5E5E5"><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 size="1">&nbsp;<%=Round(maybepro, 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="#FF9900"><img border="0" src="tom.gif" width="<%=Round(nejpro, 0)%>" height="12"></td>
                              <td width="<%=Round(maybepro, 0)%>" bgcolor="#E5E5E5"><img border="0" src="tom.gif" width="<%=Round(maybepro, 0)%>" height="12"></td>
                              <td width="<%=Round(japro, 0)%>" bgcolor="#E5E5E5"><img border="0" src="tom.gif" width="<%=Round(japro, 0)%>" height="12"></td>
                            </tr>
                          </table>
                        </td>
                        <td width="15" bgcolor="#E5E5E5"><font size="1">&nbsp;<%=Round(nejpro, 0)%>%</font></td>
                      </tr>
                    </table>
                  </td>
                </tr>
                <tr>
                  <td width="100%">
                    <p align="center"><font size="1"><%=ialt%> har stemt!</font></td>
                </tr>
                <tr>
                  <td width="100%">
                    <p align="center"><font size="1"><a href="poll.asp?mode=arkiv">Arkiv</a></font></td>
                </tr>
                <tr>
                  <td width="100%">
                    <p align="center"><font size="1"><a href="poll.asp?mode=admin">Admin</a></font></td>
                </tr>


              </table>

<% end select %>
</body>
</html>
Avatar billede casm_ Nybegynder
28. januar 2002 - 20:32 #1
det er heller ikke lige til at se....

hvilken fejl for du ??
Avatar billede bosse88 Nybegynder
28. januar 2002 - 20:39 #2
Siden kan ikke vises
Der er opstået et problem med den side, du forsøger at se, og siden kan ikke vises.

--------------------------------------------------------------------------------

Prøv følgende:

Klik på knappen Opdater, eller forsøg igen senere.

Åbn 212.10.132.70 hjemmesiden, og søg derefter efter hyperlinks til de ønskede oplysninger.
HTTP 500,100 - Intern fejl på serveren - ASP-fejl -
Internet Information Services

--------------------------------------------------------------------------------

Tekniske oplysninger (for supportteknikere)

Fejltype:
Der opstod en Microsoft VBScript-kørselsfejl (0x800A005E)
Null er brugt ugyldigt: 'Round'
/asp/vote/poll.asp, line 233


Browsertype:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; DigExt)

Side:
GET /asp/vote/poll.asp

Klokkeslæt:
28. januar 2002, 20:39:53


Yderligere oplysninger:
Microsoft Support
Avatar billede coltau Juniormester
28. januar 2002 - 20:58 #3
Dit største problem er at du har to feltnavne der hedder 1 og 2: Enten skal de ændres til F1 og F2 i databasen og koden eller skal alle sql-sætninger hvor i de indgår ændres til:

Set rs = Conn.Execute("INSERT INTO Polls ([Polls.1],[Polls.2],dato,q1,q2) VALUES ('0','0','" osv...

fejlkoden giver ingen mening: "Null er brugt ugyldigt: 'Round'"
Jeg har udsat funktionen for lidt af hvert og den fejler ikke. Heller ikke hvis man anvender en null-værdi.
Avatar billede bosse88 Nybegynder
28. januar 2002 - 21:07 #4
coltau, det lyder godt, kunne du ikke beskrive lidt nærmere hvilke 1 og 2 funktioner du taler om, q1 og q2 og q3 ?? eller hvad?

q1= Ja
q2 = Maybe
q3 = Nej

Glæder mig til at høre videre, men hvis du er rigtig flink må du rette koden og sende den til: bosse88@mail1.stofanet.dk, det er lidt arbejde men til gengæld ligger der 100 points og venter :)
Avatar billede bosse88 Nybegynder
28. januar 2002 - 21:25 #5
nej, der er en fejl ved linje 233, desværre

(Det skal lige siges at coltau sendte en mail med den rettede kode)
Avatar billede bosse88 Nybegynder
28. januar 2002 - 21:31 #6
http://activedeveloper.dk/download/default.asp?mode=showdownload&id=267

dette er linket til det søde lille voting script
Avatar billede bosse88 Nybegynder
28. januar 2002 - 21:31 #7
-hvis du gerne vil have alle filerne til at test om det er rettet.
Avatar billede coltau Juniormester
28. januar 2002 - 23:19 #8
Jeg har downloaded poll.zip og prøvet/gennemgået koden.
Det er absolut ikke kode der egner sig til at blive rettet i. Havde der så bare været indrykninger eller en naturlig opdeling.
Jeg har prøvet med dit kode og kan se at variablen japro IsNull når den når til linie 233 - men jeg har ikke den ringeste chance for at overskue hvilke liner der udføres og hvilke der ikke gør.
Avatar billede snuseren.dk Nybegynder
29. januar 2002 - 18:57 #9
Hmmm... Prøv evt. denne:

<% response.buffer = true %>
<html>
<head>
<title>Poll</title>
<style type="text/css">
body {font-family:verdana}
</style>
</head>
<body>
<%
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")
maybe = res("2")
nej = res("3")
ialt = ja + maybe + nej
curid = res("id")
spm1 = res("q1")
spm2 = res("q2")
spm3 = res("q3")

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>"
linkmaybe = "<td colspan=""2"" width=""100%""><p style=""margin:2""><font size=""1"">" & res("q2") & "</font></p></td>"
linknej = "<td colspan=""2"" width=""100%""><p style=""margin:2""><font size=""1"">" & res("q3") & "</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>"
linkmaybe = "<td><p style=""margin:2""><font size=""1""><a href=""?mode=update&id="&curid&"&vote=2""><u>" & res("q2") & "</u></a></font></p></td>"
linknej = "<td><p style=""margin:2""><font size=""1""><a href=""?mode=update&id="&curid&"&vote=2""><u>" & res("q3") & "</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=")

Elseif vote = "1" then

stemmer = maybe + 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=")

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") = "3"
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")
maybe = rs("2")
nej = rs("3")
ialt = ja + maybe + nej
lid = rs("id")

if ja = "0" AND maybe = "0" AND nej = "0" then
japro = "0"
maybepro = "0"
nejpro = "0"
else
japro = ja / ialt * 100
maybepro = maybe / ialt * 100
nejpro = nej / ialt * 100
end if

%>


                <tr><td width="100%"><font size="1"><b>Dato: <%=rs("dato")%></b></font></td></tr>
                <tr><td width="100%"><font size="1"><%=spm%></font></td></tr>
                <tr><td width="100%"><table border="0" width="100%" cellspacing="0" cellpadding="0">
                <tr><td><font size="1"><%=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(maybepro, 0)%>" bgcolor="#E5E5E5"><img border="0" src="tom.gif" width="<%=Round(maybepro, 0)%>" height="12"></td></tr></table></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 size="1">&nbsp;<%=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 size="1"><%=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="<%=maybepro%>%" height="12"></td>
                <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 size="1">&nbsp;<%=Round(nejpro, 0)%>%</font></td></tr></table></td></tr>
                <tr><td width="100%"><p align="center"><font size="1"><%=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 size="1"><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>Svar 2</td><td><input type="text" name="q3"></td></tr>
      <tr><td>&nbsp;</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="#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 size="1">&nbsp;<%=Round(japro, 0)%>%</font></td>
                      </tr>
                    </table>
                  </td>
                </tr>
                <tr>
                  <td width="100%">
                    <table border="0" width="100%" cellspacing="0" cellpadding="0">
                      <tr>
                        <%=linkmaybe%>
                      </tr>
                      <tr>
                        <td width="100%">
                          <table border="0" width="100%" cellspacing="0" cellpadding="0">
                            <tr>
                              <td width="<%=Round(maybepro, 0)%>" bgcolor="#FF9900"><img border="0" src="tom.gif" width="<%=Round(japro, 0)%>" height="12"></td>
                              <td width="<%=Round(japro, 0)%>" bgcolor="#E5E5E5"><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 size="1">&nbsp;<%=Round(maybepro, 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="#FF9900"><img border="0" src="tom.gif" width="<%=Round(nejpro, 0)%>" height="12"></td>
                              <td width="<%=Round(maybepro, 0)%>" bgcolor="#E5E5E5"><img border="0" src="tom.gif" width="<%=Round(maybepro, 0)%>" height="12"></td>
                              <td width="<%=Round(japro, 0)%>" bgcolor="#E5E5E5"><img border="0" src="tom.gif" width="<%=Round(japro, 0)%>" height="12"></td>
                            </tr>
                          </table>
                        </td>
                        <td width="15" bgcolor="#E5E5E5"><font size="1">&nbsp;<%=Round(nejpro, 0)%>%</font></td>
                      </tr>
                    </table>
                  </td>
                </tr>
                <tr>
                  <td width="100%">
                    <p align="center"><font size="1"><%=ialt%> har stemt!</font></td>
                </tr>
                <tr>
                  <td width="100%">
                    <p align="center"><font size="1"><a href="poll.asp?mode=arkiv">Arkiv</a></font></td>
                </tr>
                <tr>
                  <td width="100%">
                    <p align="center"><font size="1"><a href="poll.asp?mode=admin">Admin</a></font></td>
                </tr>


              </table>

<% end select %>
</body>
</html>
Avatar billede bosse88 Nybegynder
31. januar 2002 - 16:38 #10
siden kan stadig ikke vises, okay, dette er ikke nogen brugervenlig kode det vil jeg give jer ret i. Okay, er der så nogen der kan finde et nyt voting script bygget på en acces database, med de samme muligheder men med min. 3 svar muligheder???
Avatar billede bosse88 Nybegynder
14. marts 2002 - 20:30 #11
fandt et selv ! YAY! :D
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
ASP classic kopiere database fil på server Af bsn i ASP 7 31/10/202610:20 01/11/202620:28
Persits.Upload Af bsn i ASP 9 17/09/202611:37 21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 10 25/06/202622:20 04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP 4 18/05/202601:57 19/05/202613:33
Lost focus Af bsn i ASP 1 07/11/202415:34 01/01/202514:58
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 15:18 Hvordan er det - At man sætter et billed af en ting her på ? Af Ikke-ekspert i Diverse
03/1113:58 Status på UPS Af dcedata1977 i Andet hardware
02/1101:00 Problemer med software til Power Walker UPS - Nødstrømsbatteri Af ErikHg i Andet software
01/1120:16 Snapchat Af made18 i Apps til iOS
31/1013:01 Måned og år på graf Af mort1 i Excel
White papers
Flere white papers »