gider ikke at oprette stemme boks :D:);):o)

ja så spørgsmålet er.... hvordan retter jeg det self :)

Hey ZOB jeg tænkte på om du ikke kunne sende UDfordre os til mig på Grubbe@ofir.dk

Jeg kan se 2 problemer

1. Du tillader ikke nullængde på alle felter, altså alle felter skal udfyldes
2. Du har en datatype fejl i feltet stem (+ måske flere). Eks. er den nummerisk i databasen og du indsætter tekst eller omvendt. Eller du har et tekstfelt, men glemmer ' (pinger) omkring i dit SQL eller omvendt har du pinger og feltet er nummerisk.

hvad er det for noget kau ? spiller du/din clan/bruger på Net-X ?

forstår dig ikke helt tmceu

Når du oprettet en stemmebox, hvis du så skrive noget i valg 6 og 7 kommer det ikke med i den oprettede stemmebox.

nu viser jeg altså admin.asp som en txt fil!
www.emil.vonbuchwald.dk/stem/admin.txt

Jeg vil gerne have en kopi af dit "UDFORDRE OS" Script

hvor ved i det fra? ??? fordi i har jo ikke set koden? og i har ikke oprettet en vel? jeg kan ikke få den til at oprette..

Heller jo det gør det, undskyld. Det kommer bare ikke med når man vil redigerer stemmeboxen igen.

den er go' med dig.... kau har du icq så skriv over det....
mit nr. 157831584

nå... ... 
gi mig lige url til dem i oprettede.. ;)

Lad mig se om jeg kan forklare det bedre....

I den tabel hvod du lagrer dine afstemninger, har du en række felter til de forskellige muligheder; valg1-7. Hvis man ikke udfylder alle, får man fejlen "error in row". Dette indikerer, at du ikke tillader nogle af disse at være tomme. Dette rettes i design view på tabellen i Access, hvor du på det enkelte felt kan vælge at tillade nullængde eller ej.

Udfylder man alle felter, får man fejlen "type mismatch: 'stem'". Dette indikerer at feltet enten er nummerisk og at du forsøger at indsætte en tekst værdi med ' (pinger) omkring i dit insert statement (eller .AddNew). Eller at feltet er nummerisk og at du ikke har ' omkring værdien fra din form.

men der kommer stadig. en fejl... når man opretter den er det meningen at der står hvilken kode man skal indtatste på siden... ;)

Rediger-fejlen:

<TR><TD>Valg 3</TD><TD><input name="valg3" value="<%=rs("valg3")%>" onfocus="this.style.filter = 'Alpha(Opacity=100)'" onblur="this.style.filter = 'Alpha(Opacity=60)'" CLASS="felt"></TD></TR>
<TR><TD>Valg 4</TD><TD><input name="valg4" value="<%=rs("valg4")%>" onfocus="this.style.filter = 'Alpha(Opacity=100)'" onblur="this.style.filter = 'Alpha(Opacity=60)'" CLASS="felt"></TD></TR>
<TR><TD>Valg 5</TD><TD><input name="valg5" value="<%=rs("valg5")%>" onfocus="this.style.filter = 'Alpha(Opacity=100)'" onblur="this.style.filter = 'Alpha(Opacity=60)'" CLASS="felt"></TD></TR>
<TR><TD>Valg 6</TD><TD><input name="valg6" value="<%=rs("valg4")%>" onfocus="this.style.filter = 'Alpha(Opacity=100)'" onblur="this.style.filter = 'Alpha(Opacity=60)'" CLASS="felt"></TD></TR>
<TR><TD>Valg 7</TD><TD><input name="valg7" value="<%=rs("valg5")%>" onfocus="this.style.filter = 'Alpha(Opacity=100)'" onblur="this.style.filter = 'Alpha(Opacity=60)'" CLASS="felt"></TD></TR>

Skal rettes til:

<TR><TD>Valg 3</TD><TD><input name="valg3" value="<%=rs("valg3")%>" onfocus="this.style.filter = 'Alpha(Opacity=100)'" onblur="this.style.filter = 'Alpha(Opacity=60)'" CLASS="felt"></TD></TR>
<TR><TD>Valg 4</TD><TD><input name="valg4" value="<%=rs("valg4")%>" onfocus="this.style.filter = 'Alpha(Opacity=100)'" onblur="this.style.filter = 'Alpha(Opacity=60)'" CLASS="felt"></TD></TR>
<TR><TD>Valg 5</TD><TD><input name="valg5" value="<%=rs("valg5")%>" onfocus="this.style.filter = 'Alpha(Opacity=100)'" onblur="this.style.filter = 'Alpha(Opacity=60)'" CLASS="felt"></TD></TR>
<TR><TD>Valg 6</TD><TD><input name="valg6" value="<%=rs("valg6")%>" onfocus="this.style.filter = 'Alpha(Opacity=100)'" onblur="this.style.filter = 'Alpha(Opacity=60)'" CLASS="felt"></TD></TR>
<TR><TD>Valg 7</TD><TD><input name="valg7" value="<%=rs("valg7")%>" onfocus="this.style.filter = 'Alpha(Opacity=100)'" onblur="this.style.filter = 'Alpha(Opacity=60)'" CLASS="felt"></TD></TR>

Send den lige til grubbe@tdcspace.dk

Jeg har udfordret jeres klan ses skal i skole ses

Kort:
rs("valg4") og rs("valg5") bliver brugt som 6 og 7.

okai.. gider du at hjælpe mig med access databasen så? kan ikke så godt finde ud af det wwww.emil.vonbuchwald.dk/stem/stem.mdb

Ved ikke om det har noget at sige, men jeg synes du skal fjerne et mellemrum her:
strSQL = "SELECT  * FROM T_Vote WHERE (ID = 0)"
Så det bliver:
strSQL = "SELECT * FROM T_Vote WHERE (ID = 0)"

m-koldsgaard >> om der er ét eller 100 mellemrum eller linieskift betyder ikke noget.

zob >> linket til databasen virker ikke

troede godt at i kunne finde ud af det... kom til at skrive wwww istedet for www
så linket er
www.emil.vonbuchwald.dk/stem/stem.mdb

Har rettet alt det m-koldsgaard har sagt... har ikke prøvet den endnu den dur ikkke før der blir ændret i db'en vel ?

eller det jeg har rettet er på www.emil.vonbuchwald.dk/stem/index.asp

Mit er bare en rettelse, som gør at felterne 6 og 7 bliver udfyldt når man vil rette i stemmeboxen.

okai ;)

1. Valg 6 + 7 tillader ikke nullængde i databasen

2. I linie 143 har du dette: Stem()

ASP opfatter dette som et kald af en funktion, der ikke fundes.

Hvis du vil have den til at udskrive stem() til browseren, skal du erstatte:

<% Stem()%>

med:

<% = "Stem()" %>

Er det meningen at stem() skal kaldes som en funktion, der udskriver noget andet til browseren, skal du enten have includet den fil funktionen ligger i, eller have lavet funktionen på denne side.

linie 143 ? hvor er det? jeg bruger notepad så kan ikke se det.... ;(

så nu kommer den med:
Stemmeboksen er nu oprettet. Du kan indsætte boksen hvor du vil, skriv blot følgende kode: Stem()
og det passer jo ikke helt ;(

der står intet imellem () hvordan gøør jeg det ? altså så den kommer med den RIGtige id.. ;)

Prøv med denne:

<% Response.Buffer = True %>
<%
'Her bliver der undersøgt om session("Adgang") er sat til Godkendt, er den ikke det bliver man sendt tilbage til adgangskontrol.asp med en fejlmeddelelse
    If Not Session("Adgang") = "Godkendt" Then
        Response.Redirect("login.asp?mode=forbudt")
    End If
%>
<html>
<head>
    <title>Stem -> Admin</title>
<META NAME="Generator" CONTENT="Stone's WebWriter 3.5"></head>
<body>
<% mode=request("mode")
  if mode="vis" then %>

<%
' Connection til database
Set Con = Server.CreateObject("ADODB.Connection")
DBPath = "DBQ=" & server.mappath("stem.mdb")
Con.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath
   
' Her hiver vi indholdet af databasen ud
sql = "SELECT * From T_Vote Where Id = " & Request.Querystring("id")
    Set rs =  Con.Execute(Sql)
%>
<table align="center" bgcolor="#206090" width="510" cellspacing="1" cellpadding="2">
<tr>
<td bgcolor="#206090" width="510">
<center>
<strong>Vis information om<BR></strong>
<% =RS("Beskrivelse")%>
</center>
</td>
</tr>
</table>
<BR>
<CENTER>
<TABLE BORDER="1" WIDTH="400">
<TR><TD>ID: <%=rs("ID")%></TD>
    <TD HEIGHT="25"><CENTER><B><% =RS("Beskrivelse")%></B></CENTER></TD>
</TR>
<TR>
    <TD WIDTH="75">Valg 1:</TD>
    <TD WIDTH="325"><%=rs("valg1")%></TD>
</TR>
<TR>
    <TD>Valg 2:</TD>
    <TD><%=rs("valg2")%></TD>
</TR>

<TR>
    <TD>Valg 3:</TD>
    <TD><%=rs("valg3")%></TD>
</TR>
<TR>
    <TD>Valg 4:</TD>
    <TD><%=rs("valg4")%></TD>
</TR>
<TR>
    <TD>Valg 5:</TD>
    <TD><%=rs("valg5")%></TD>
</TR>
<TR>
    <TD>Valg 6:</TD>
    <TD><%=rs("valg6")%></TD>
</TR>
<TR>
    <TD>Valg 7:</TD>
    <TD><%=rs("valg7")%></TD>
</TR>
</TABLE>

</center>
<BR>
<center><a href="admin.asp">Tilbage</a></center>
<% '--- Stemme opret ---
Elseif mode="opret" then %>
<table align="center" bgcolor="#206090" width="510" cellspacing="1" cellpadding="2">
<tr>
<td bgcolor="#206090" width="510">
<center>
<strong>Opret en stemmeboks</strong>
</center>
</td>
</tr>
</table>
<BR>
<CENTER>
<form action="admin.asp?mode=oprettet" method="post">
      <table width="500" align="center" border="0" cellspacing="0" cellpadding="10">
<TR><TD>Spørgsmål:</TD><TD><input name="beskrivelse" onfocus="this.style.filter = 'Alpha(Opacity=100)'" onblur="this.style.filter = 'Alpha(Opacity=60)'" CLASS="felt"></TD></TR>
<TR><TD>Valg 1</TD><TD><input name="valg1" onfocus="this.style.filter = 'Alpha(Opacity=100)'" onblur="this.style.filter = 'Alpha(Opacity=60)'" CLASS="felt"></TD></TR>
<TR><TD>Valg 2</TD><TD><input name="valg2" onfocus="this.style.filter = 'Alpha(Opacity=100)'" onblur="this.style.filter = 'Alpha(Opacity=60)'" CLASS="felt"></TD></TR>
<TR><TD>Valg 3</TD><TD><input name="valg3" onfocus="this.style.filter = 'Alpha(Opacity=100)'" onblur="this.style.filter = 'Alpha(Opacity=60)'" CLASS="felt"></TD></TR>
<TR><TD>Valg 4</TD><TD><input name="valg4" onfocus="this.style.filter = 'Alpha(Opacity=100)'" onblur="this.style.filter = 'Alpha(Opacity=60)'" CLASS="felt"></TD></TR>
<TR><TD>Valg 5</TD><TD><input name="valg5" onfocus="this.style.filter = 'Alpha(Opacity=100)'" onblur="this.style.filter = 'Alpha(Opacity=60)'" CLASS="felt"></TD></TR>
<TR><TD>Valg 6</TD><TD><input name="valg6" onfocus="this.style.filter = 'Alpha(Opacity=100)'" onblur="this.style.filter = 'Alpha(Opacity=60)'" CLASS="felt"></TD></TR>
<TR><TD>Valg 7</TD><TD><input name="valg7" onfocus="this.style.filter = 'Alpha(Opacity=100)'" onblur="this.style.filter = 'Alpha(Opacity=60)'" CLASS="felt"></TD></TR>
      <tr>
        <TD ALIGN="center"><input name="submit" type="submit" onblur="this.style.filter = 'Alpha(Opacity=60)'" onfocus="this.style.filter = 'Alpha(Opacity=100)'" class="button" onMouseOver="this.className='buttonhover'"  onMouseOut="this.className='button'" value="Opret"></td><TD ALIGN="center"><INPUT TYPE="reset" VALUE="Slet og Start Forfra" NAME="reset" CLASS="button" onblur="this.style.filter = 'Alpha(Opacity=60)'" onfocus="this.style.filter = 'Alpha(Opacity=100)'" onmouseover="this.className='buttonhover'" onmouseout="this.className='button'"></td>
      </tr>
      </table></center></form>
<BR>
<center><a href="admin.asp">Tilbage</a></center>

<% '--- Stemme oprettet ---
Elseif mode="oprettet" then %>
<%
Const adOpenKeyset = 1
Const adLockOptimistic = 3


tempConn = "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("stem.mdb") & ";UID=admin;PWD=;"
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
    beskrivelse = Trim(Request.Form("beskrivelse"))
    valg1 = Trim(Request.Form("valg1"))
    valg2 = Trim(Request.Form("valg2"))
    valg3 = Trim(Request.Form("valg3"))
    valg4 = Trim(Request.Form("valg4"))
    valg5 = Trim(Request.Form("valg5"))
    valg6 = Trim(Request.Form("valg6"))
    valg7 = Trim(Request.Form("valg7"))
    Set rs = Server.CreateObject("ADODB.RecordSet")
    strSQL = "SELECT  * FROM T_Vote WHERE (ID = 0)"
    rs.Open strSQL, tempConn, adOpenKeyset, adLockPessimistic
    If (rs.BOF Or rs.EOF) Then
        rs.AddNew
        rs("beskrivelse") = beskrivelse
        rs("valg1") = valg1
        rs("valg2") = valg2
        rs("valg3") = valg3
        rs("valg4") = valg4
        rs("valg5") = valg5
        rs("valg6") = valg6
        rs("valg7") = valg7
        rs.Update
    End If

End If
%>
Stemmeboksen er nu oprettet. Du kan indsætte boksen hvor du vil, skriv blot følgende kode:
<%
    Response.write "Stem(" & rs("id") & ")"

    rs.Close
    Set rs = Nothing

%>
<BR><BR>
<CENTER>
  <a href="admin.asp"><strong>Tilbage</strong></a>
  </center>
<% '--- Stemme Ret ---
Elseif mode="ret" then %>

<% strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("stem.mdb")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open strDSN
   
sql ="SELECT * FROM T_Vote Where Id=" & Request.Querystring("ID")
Set rs = Conn.Execute(sql)
%>
<center>
<table width="510" border="0" cellspacing="1" cellpadding="2">
    <tr>
    <td bgcolor="#206090" align="center"><strong>Rediger stemmen:</strong><BR><% =RS("Beskrivelse")%></td>
    </tr></TABLE>
      <form action="admin.asp?mode=rettet&id=<%=rs("id")%>" method="post">
      <table width="500" align="center" border="0" cellspacing="0" cellpadding="10">
<TR><TD>Spørgsmål:</TD><TD><input name="beskrivelse" onfocus="this.style.filter = 'Alpha(Opacity=100)'" onblur="this.style.filter = 'Alpha(Opacity=60)'" CLASS="felt" value="<% =RS("Beskrivelse")%>"></TD></TR>
<TR><TD>Valg 1</TD><TD><input name="valg1" onfocus="this.style.filter = 'Alpha(Opacity=100)'" onblur="this.style.filter = 'Alpha(Opacity=60)'" CLASS="felt" value="<%=rs("valg1")%>"></TD></TR>
<TR><TD>Valg 2</TD><TD><input name="valg2" onfocus="this.style.filter = 'Alpha(Opacity=100)'" onblur="this.style.filter = 'Alpha(Opacity=60)'" CLASS="felt" value="<%=rs("valg2")%>"></TD></TR>
<TR><TD>Valg 3</TD><TD><input name="valg3" value="<%=rs("valg3")%>" onfocus="this.style.filter = 'Alpha(Opacity=100)'" onblur="this.style.filter = 'Alpha(Opacity=60)'" CLASS="felt"></TD></TR>
<TR><TD>Valg 4</TD><TD><input name="valg4" value="<%=rs("valg4")%>" onfocus="this.style.filter = 'Alpha(Opacity=100)'" onblur="this.style.filter = 'Alpha(Opacity=60)'" CLASS="felt"></TD></TR>
<TR><TD>Valg 5</TD><TD><input name="valg5" value="<%=rs("valg5")%>" onfocus="this.style.filter = 'Alpha(Opacity=100)'" onblur="this.style.filter = 'Alpha(Opacity=60)'" CLASS="felt"></TD></TR>
<TR><TD>Valg 6</TD><TD><input name="valg6" value="<%=rs("valg4")%>" onfocus="this.style.filter = 'Alpha(Opacity=100)'" onblur="this.style.filter = 'Alpha(Opacity=60)'" CLASS="felt"></TD></TR>
<TR><TD>Valg 7</TD><TD><input name="valg7" value="<%=rs("valg5")%>" onfocus="this.style.filter = 'Alpha(Opacity=100)'" onblur="this.style.filter = 'Alpha(Opacity=60)'" CLASS="felt"></TD></TR>
      <tr>
        <TD ALIGN="center"><input name="submit" type="submit" onblur="this.style.filter = 'Alpha(Opacity=60)'" onfocus="this.style.filter = 'Alpha(Opacity=100)'" class="button" onMouseOver="this.className='buttonhover'"  onMouseOut="this.className='button'" value="Rediger"></td><TD ALIGN="center"><INPUT TYPE="reset" VALUE="Slet og Start Forfra" NAME="reset" CLASS="button" onblur="this.style.filter = 'Alpha(Opacity=60)'" onfocus="this.style.filter = 'Alpha(Opacity=100)'" onmouseover="this.className='buttonhover'" onmouseout="this.className='button'"></td>
      </tr>
      </table>
  </form>
<CENTER>
  <a href="admin.asp"><strong>Tilbage</strong></a>
  </center>
<% '--- Stemme rettet ---
Elseif mode="rettet" then %>

 
<%
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("stem.mdb")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open strDSN

sql = "UPDATE T_Vote SET beskrivelse= '" & request.form("beskrivelse") & "', "
sql = SQL & "valg1= '" & request.form("valg1") &"', "
sql = SQL & "valg2= '" & request.form("valg2") &"', "
sql = SQL & "valg3= '" & request.form("valg3") &"', "
sql = SQL & "valg4= '" & request.form("valg4") &"', "
sql = SQL & "valg5= '" & request.form("valg5") &"', "
sql = SQL & "valg6= '" & request.form("valg6") &"', "
sql = SQL & "valg7= '" & request.form("valg7") &"' "
sql = SQL & "WHERE Id = " & request("ID")
    Conn.Execute(SQL)
    Conn.Close
    Set Conn = Nothing
   
Response.Redirect ("admin.asp")
%>

<% '--- Log ud ---
Elseif mode="logud" then %>

<%
'Nulstiller alt
Session.Abandon()
Response.Redirect("index.asp")
%>

<% '--- Forsiden ---
else %> 


<table align="center" bgcolor="#206090" width="510" cellspacing="1" cellpadding="2">
<tr>
<td bgcolor="#206090" width="510">
<center><A HREF="admin.asp?mode=opret">Opret en stemmeboks</A>
    <strong>Stemmeboks</strong>   
<A HREF="admin.asp?mode=opret">Opret en stemmeboks</A>
</center>
</td>
</tr>
</table>
<br>

<%
' Connection til database
Set Con = Server.CreateObject("ADODB.Connection")
DBPath = "DBQ=" & server.mappath("stem.mdb")
Con.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath
   
' Her hiver vi indholdet af databasen ud
sql = "SELECT * From T_Vote ORDER BY Id DESC"
    Set rs =  Con.Execute(Sql)
%>
<% Do While Not rs.EOF %>
<CENTER><table border="0" BGCOLOR="#206090" cellspacing="0" cellpadding="0" class="ContentStyle" width="500">
<tr><td><a href="admin.asp?mode=vis&id=<%=rs("id")%>">Vis Infomation</a></td><td align="right"><%=rs("beskrivelse")%> - <a href="admin.asp?mode=ret&id=<%=rs("id")%>">Rediger</a> /
<a href="slet.asp?id=<%=rs("id")%>">Slet</a>
</td></td></table></CENTER>
<BR>
<%
rs.MoveNext
Loop
%>
<br>
<center>
<a href="admin.asp?mode=logud">Log ud</a>
</center>
<% End if %>
</body>
</html>

okai det har jeg gjordt nu

det durikke...

Har du eventuelt icq ? eller MSN ? helst icq :o)

Hvilke fejl får du ?

det samme som til at starte med... altså den loader til en forkert side du kunne jo eventuelt selv prøve svært at forklare...
www.emil.vonbuchwal.dk/stem/login.asp

ups..
www.emil.vonbuchwald.dk/stem/login.asp

Du mangler denne erklæring:

Const adLockPessimistic = 2

Smid den eks. under disse:

Const adOpenKeyset = 1
Const adLockOptimistic = 3

okai nu dur det ;) men det med databasen.... kan du hjælpe med det? og vad er er url'en til den enkelte stemmeboks hvis det er id 32 ?

http://www.emil.vonbuchwald.dk/stem/admin.asp?mode=ret&id=32
http://www.emil.vonbuchwald.dk/stem/admin.asp?mode=vis&id=32

Har du Access installeret ?

ja jeg har men det der passer ikke helt... den der url kig på www.emil.vonbuchwald.dk/stem/index.asp der ser de anderledes ud..

og der har jeg skrevet <% Stem(32) %> men hvis jeg går hen til en anden mappe og skriver det dur det IKKE ;/

Jamen jeg har kun set koden til din admin, derfor regnede jeg med at det var den du mente. Det link du henviser kan jeg umuligt sige hvordan fungerer, men det virker ikke med eks. ?id?32?mode=vis (el. stem).

For at rette i tabellen, åbner du din database i Access, går ind under tables, markerer T_Vote og klikker på Design.

Derefter finder du de enkelte felter og i property boksen nederst på siden, sætter du required (evt. påkrævet på dansk) til No/Nej

har en engelsk version af access det er access XP

Derefter finder du de enkelte felter og i property boksen nederst på siden, sætter du required (evt. påkrævet på dansk) til No/Nej
den forstår jeg ikke helt... kan du uddybe ?

required står jo i forvejen på No

skal jeg sætte required til yes? prøver lige ;)

Nej, den skal sættes til No. Og nej, valg 6 + 7 står ikke til no, de står til yes.

kan ikke helt få det til at du... hvilke felter skal sættes til yes og hvilke no ? kan ikke helt få det til at du

vil du ikke gøre det for mig? plz... fatter - af access

De felter du vil have skal udfyldes, sættes til Yes, valgfri felter sættes til No. Hvis du eks. vil have at der skal være min. 3 valgmuligheder pr. afstemning, sætter du valg 1, 2 og 3 til Yes, mens resten sættes til No.

Det ser dog ud som om det virker nu, jeg har i hvert kunnet oprette en afstemning.

det dur ikke når man skriver det inde i index.asp www.emil.vonbuchwald.dk/stem/index.asp

Jeg har lige downloadet databasen igen og nu er det som det skal være.

Hvad virker ikke ?

inde i  index.asp er der ikke alle valgmulighederne... skal du se noget mere kode ?

Hvis jeg skal have nogen som helst mulighed for at se hvad der sker i index.asp, gæt så hvilken kode jeg skal se :-)

hehe.... index.asp er MEGET lille:
<!-- #include file="stem.inc" -->
<html>
<head>
<META NAME="Generator" CONTENT="Stone's WebWriter 3.5">
<!-- Minus AutoDato -->
    <TITLE>Afstemning</TITLE>
</head>
<body>
<CENTER><% Stem(1) %></CENTER>
<BR>
<CENTER><% Stem(2) %></CENTER>
<BR>
<CENTER><% Stem(47) %></CENTER>
</body>

</html>

er det ikke noget med stem inc at gøre ?

http://www.emil.vonbuchwald.dk/stem/stem.inc

Okai, jeg har lavet en ny stem.inc. Skal jeg sende den via mail ?
Hvis, så skriv den lige...

Jo, stem.inc er jo kun lavet til 5 muligheder, så 6 + 7 må være noget du selv har lavet ? Prøv med denne:

<link rel="stylesheet" type="text/css" href="../style.css">
<%
' --------------------------------------------------------------
' Function Stem(id) - id = id i stem.mdb
' --------------------------------------------------------------
function stem(id)

  font    = "<font size='2' face='Verdana'>"
  faktor  = 2
  barcolor = "#669966"

  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(8)
      valg(1) = Record("valg1")
      valg(2) = Record("valg2")
      valg(3) = Record("valg3")
      valg(4) = Record("valg4")
      valg(5) = Record("valg5")
      valg(6) = Record("valg6")
      valg(7) = Record("valg7")
Response.Write "<table border='1' WIDTH=300 bordercolor='#000000'><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 7
        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="1" WIDTH="300" bordercolor="#000000">
<TR>
    <TD>
<CENTER><B>
<% response.write font & Record("Beskrivelse") %></B></CENTER>
<form method='POST' action='stemreg.asp'>
<input type='hidden' name='Voteid' value='<%= Id %>'>
<%
tmp_valg = Record("valg1")
If tmp_valg <> "" then
%>
<input type='radio' value='<%= tmp_valg %>' name='R1'>&nbsp;<%= tmp_valg %><br>
<%     
end if 
tmp_valg = Record("valg2")
If tmp_valg <> "" then
%>
<input type='radio' value='<%= tmp_valg %>' name='R1'>&nbsp;<%= tmp_valg %><br>
<%     
end if 
tmp_valg = Record("valg3")
If tmp_valg <> "" then
%>
<input type='radio' value='<%= tmp_valg %>' name='R1'>&nbsp;<%= tmp_valg %><br>
<%     
end if 
tmp_valg = Record("valg4")
If tmp_valg <> "" then
%>
<input type='radio' value='<%= tmp_valg %>' name='R1'>&nbsp;<%= tmp_valg %><br>
<%     
end if 
tmp_valg = Record("valg5")
If tmp_valg <> "" then
%>
<input type='radio' value='<%= tmp_valg %>' name='R1'>&nbsp;<%= tmp_valg %><br>
<%
end if
%>

<%
tmp_valg = Record("valg6")
If tmp_valg <> "" then
%>
<input type='radio' value='<%= tmp_valg %>' name='R1'>&nbsp;<%= tmp_valg %><br>
<%     
end if 
tmp_valg = Record("valg7")
If tmp_valg <> "" then
%>
<input type='radio' value='<%= tmp_valg %>' name='R1'>&nbsp;<%= tmp_valg %><br>
<%     
end if 
%>

<CENTER><p>&nbsp;
<input type='submit' value='Stem' class="buttom50" name='B1'>&nbsp;&nbsp;
<input type='reset' value='Slet' class="buttom50" name='B2'></p>
</CENTER>
</TD></TR></TABLE>
</form>
</body>
</html>
<%
    end if
  else
    response.write font & "Id findes ikke"
  end if
end function
%>

okai min mail er zob-cs1.4@sol.dk

er sendt...

svarer lige ;)

Nu ved jeg ikke hvad i har lavet over over ICQ eller MSN (Det må man faktisk ikke på E, med det er en anden sag), men jeg tror nu at følgende skal vises i browseren:

Stemmeboksen er nu oprettet. Du kan indsætte boksen hvor du vil, skriv blot følgende kode:
<%
    Response.write "Stem(" & rs("id") & ")"

    rs.Close
    Set rs = Nothing

%>

Men det bliver det ikke fordi den tolker det som asp kode, så det skal se sådan ud:

<p>
Stemmeboksen er nu oprettet. Du kan indsætte boksen hvor du vil, skriv blot
følgende kode:<br>
&lt;%<br>
Response.write &quot;Stem(&quot; &amp; rs(&quot;id&quot;) &amp; &quot;)&quot;<br>
<br>
rs.Close<br>
Set rs = Nothing<br>
%&gt;
</p>

m-koldsgaard >> du kan være ganske rolig, jeg har ikke lavet noget som helst over ICQ, men det er ikke opfordringer der mangler :-)

P.S. At sende koden via mail er lige meget uden om E og derfor også imod reglen om, at løsninger skal være tilgængelige for alle :-)

Jeg kan ikk helt se, hvorfor jeg ikke skulle have point. Nå, men det er der jo intet at gøre ved ;)

Du kan godt få dine point....