Hjælp til admin side?

Jeg kan se den Test nyeste konkurrence virker linket ikke

ret denne linje:

Response.Write "<a href=""default.asp?testthis=visfortest"">Test nyeste konkurrence</a>"


Til denne så /kon kommer med:

Response.Write "<a href=""/kon/default.asp?testthis=visfortest"">Test nyeste konkurrence</a>"

Det var jo lige det 1000 tak
Husk at svare så du kan få pointene!

Jeg ved slet ikke hvordan jeg kan undvære være dig :)
Jeg kunne smadder godt tænke mig at få det så man kunne teste alle kunkurrencerne.
Men det kommer nok som et spørgsmål en anden gang

Ok,

Hvis den skal teste alle konkurrencer skal du havde den til at øverføre spmGruppeId til konkrrence siden default.asp.
Så på den side hendte spmGruppeId og vise den konurrence.


Så skal linket flyttes op til hver konkurrence og lave linket om så gruppeID kommer med:

Response.Write "<a href=""/kon/default.asp?testthis=visfortest&gruppeID=10"">Test nyeste konkurrence</a>"


Så ska SQL på konkurrence siden bare laves om så den hendter den konkurrence som svare til det ID som er i linket. Så det er denne som skal laves om:

    SQLgruppe = "SELECT *, DATE_FORMAT(startDato,'%d-%m-%Y') AS startDatoS, DATE_FORMAT(slutDato,'%d-%m-%Y') AS slutDatoS FROM spmGruppe "
    SQLgruppe = SQLgruppe & "order by gruppeID desc limit 0,1;"

Til:

    SQLgruppe = "SELECT *, DATE_FORMAT(startDato,'%d-%m-%Y') AS startDatoS, DATE_FORMAT(slutDato,'%d-%m-%Y') AS slutDatoS FROM spmGruppe "
    SQLgruppe = SQLgruppe & " WHERE spmGruppeID = " & Request("ID") & ";"

Jeg kigger lige på det....altså ser om jeg kan finde ud af det, så vender jeg tilbage

Det virker ikke....siden kan ikke vises!

Jeg gjorde dette
SQLgruppe = "SELECT *, DATE_FORMAT(startDato,'%d-%m-%Y') AS startDatoS, DATE_FORMAT(slutDato,'%d-%m-%Y') AS slutDatoS FROM spmGruppe "
SQLgruppe = SQLgruppe & " WHERE spmGruppeID = " & Request("ID") & ";"

I default.asp

Response.Write "<a href=""/kon/default.asp?testthis=visfortest&gruppeID=10"">Test nyeste konkurrence</a>"

I admin.asp



Er det rigtigt?

Hov næste jeg skrive gruppeID det ene sted og ID det andet prøv at rette linket:

Response.Write "<a href=""/kon/default.asp?testthis=visfortest&gruppeID=10"">Test nyeste konkurrence</a>"


Til dette:

Response.Write "<a href=""/kon/default.asp?testthis=visfortest&ID=10"">Test nyeste konkurrence</a>"

Men 10 der bare et eks på ID det skal så komme fra Databasen når man udsrkiver:


Så dette:

    Response.Write "<center><table><tr>"
    Response.Write "<td>ID&nbsp;&nbsp;&nbsp;</td><td>navn</td>"
    Response.Write "</tr>"

    do while not rs.EOF
      Response.Write "<tr>"
      Response.Write "<td>" & rs("gruppeID") & "</td>"
      Response.Write "<td>" & rs("spmGruppeNavn") & "</td>"
      Response.Write "</tr>"
      rs.MoveNext
    loop
    Response.Write "</table>"



Bliver til dette:

    Response.Write "<center><table><tr>"
    Response.Write "<td>ID&nbsp;&nbsp;&nbsp;</td><td>navn</td>"
    Response.Write "<td>Test</td>"
    Response.Write "</tr>"

    do while not rs.EOF
      Response.Write "<tr>"
      Response.Write "<td>" & rs("gruppeID") & "</td>"
      Response.Write "<td>" & rs("spmGruppeNavn") & "</td>"
      Response.Write "<td><a href=""/kon/default.asp?testthis=visfortest&ID=" & rs("spmGruppeID") & """>Test denne konkurrence</a></td>"
      Response.Write "</tr>"
      rs.MoveNext
    loop
    Response.Write "</table>"

Det hjalp ikke noget siden kan ikke vises?
Må jeg ikke godt skrive til dig privat?

undskyld jeg så ikke det sidste du skrev

Der kommer denne fejl:
ADODB.Recordset error '800a0cc1'

Item cannot be found in the collection corresponding to the requested name or ordinal.

/admin.asp, line 719

Jeg flyttede denne linie ned hvor den var før:
Response.Write "<td><a href=""/kon/default.asp?testthis=visfortest&ID=" & rs("spmGruppeID") & """>Test denne konkurrence</a></td>"

PRøv med denne linje:

Response.Write "<td><a href=""/kon/default.asp?testthis=visfortest&ID=" & rs("gruppeID") & """>Test denne konkurrence</a></td>"

Denne fejl:

Tilføj konkurrence | Tilføj præmie | error '80020009'
Exception occurred.

/admin.asp, line 719

Dernede skal du bare fjerne linket: Test nyeste kokurrence da linket bliver lavet ud for hver konkurrence i tabellen.

Nu ser det bedre ud, men de forskellig test virker ikke
Siderne kan ikke vises.

Sådan ser koderne ud lige nu:

SQL = "select * from spmGruppe order by gruppeID desc"
    Set rs = Conn.Execute(SQL)
 
    Response.Write "<center><table><tr>"
    Response.Write "<td>ID&nbsp;&nbsp;&nbsp;</td><td>navn</td>"
    Response.Write "<td>Test</td>"
    Response.Write "</tr>"

    do while not rs.EOF
      Response.Write "<tr>"
      Response.Write "<td>" & rs("gruppeID") & "</td>"
      Response.Write "<td>" & rs("spmGruppeNavn") & "</td>"
      Response.Write "<td><a href=""/kon/default.asp?testthis=visfortest&ID=" & rs("gruppeID") & """>Test denne konkurrence</a></td>"
      Response.Write "</tr>"
      rs.MoveNext
    loop
    Response.Write "</table>"
 
    Response.Write "<br><br>"
    Response.Write "<a href=""" & adminFilNavn & "?mode=konkurrencesiden&submode=add"">Tilføj konkurrence</a>"
    Response.Write " | "
    Response.Write "<a href=""" & adminFilNavn & "?mode=konkurrencesiden&submode=addpraemie"">Tilføj præmie</a>"
    Response.Write " | "
    Response.Write " | "
    Response.Write "<a href=""" & adminFilNavn & """>Tilbage</a>"
    Response.Write "</center>"
   
    Conn.Close
    Set Conn = Nothing
 
  case "add"
%>

hov igen har jeg skrevet spmGruppeID hvor det skulle vøre gruppeID, i den SQL jeg har vist 27/07-2003 20:09:31

Denne skal rettes:

    SQLgruppe = "SELECT *, DATE_FORMAT(startDato,'%d-%m-%Y') AS startDatoS, DATE_FORMAT(slutDato,'%d-%m-%Y') AS slutDatoS FROM spmGruppe "
    SQLgruppe = SQLgruppe & " WHERE spmGruppeID = " & Request("ID") & ";"


Til dete:

    SQLgruppe = "SELECT *, DATE_FORMAT(startDato,'%d-%m-%Y') AS startDatoS, DATE_FORMAT(slutDato,'%d-%m-%Y') AS slutDatoS FROM spmGruppe "
    SQLgruppe = SQLgruppe & " WHERE gruppeID = " & Request("ID") & ";"

Kanon nu virker det!

Undskylg der er et par ting mere.....gider du også det?

Ja vi kan da prøve :)

Der er 2 ting

1. kan vi lave så Tilføj konkurrence & Tilføj præmie kan rettes indefra admin, bare så jeg ikke behøver at gå ind på MySQL og gøre det?

2. Kan vi ikke lave film siden lige som vi lavede DVDanmeldelses siden?
Altså så der kom et felt at skrive ved siden af billedet og et under billedet. Så man faktisk skriver rundt om billedet! Kan koderne evt klip/klisters fra dvdanmeldelser?

1.: kan vi lige prøve:


Denne skal udvides så der ikke kun er test men osgå kommer en ret:

    Response.Write "<center><table><tr>"
    Response.Write "<td>ID&nbsp;&nbsp;&nbsp;</td><td>navn</td>"
    Response.Write "<td>Test</td>"
    Response.Write "</tr>"

    do while not rs.EOF
      Response.Write "<tr>"
      Response.Write "<td>" & rs("gruppeID") & "</td>"
      Response.Write "<td>" & rs("spmGruppeNavn") & "</td>"
      Response.Write "<td><a href=""/kon/default.asp?testthis=visfortest&ID=" & rs("spmGruppeID") & """>Test denne konkurrence</a></td>"
      Response.Write "</tr>"
      rs.MoveNext
    loop
    Response.Write "</table>"



Så det kode bliver:

    Response.Write "<center><table><tr>"
    Response.Write "<td>ID&nbsp;&nbsp;&nbsp;</td><td>navn</td>"
    Response.Write "<td>Test</td>"
    Response.Write "<td>Ret</td>"
    Response.Write "</tr>"

    do while not rs.EOF
      Response.Write "<tr>"
      Response.Write "<td>" & rs("gruppeID") & "</td>"
      Response.Write "<td>" & rs("spmGruppeNavn") & "</td>"
      Response.Write "<td><a href=""/kon/default.asp?testthis=visfortest&ID=" & rs("gruppeID") & """>Test denne konkurrence</a></td>"
      Response.Write "<td><a href=""" & adminFilNavn & "?mode=konkurrencesiden&submode=add&ID=" & rs("gruppeID") & """>Ret</a></td>"
      Response.Write "</tr>"
      rs.MoveNext
    loop
    Response.Write "</table>"


+ lidt mere kommer lige om lidt

Det ser godt ud ind til vidre!
Men bliver det ikke sådan at man kan se hvad man vil rette?

Alt det som er fra: 

  case "add"

helt med til linjen lig før

  case "addpraemie"

Skal udskiftes med dette:




  case "add"
    id = Request("ID")

    Set conn = Server.CreateObject("ADODB.Connection")
    Set rs = Server.CreateObject("ADODB.recordset")
    Conn.Open tempConn

    if id <> "" then
      SQL = "select * from spmGruppe where gruppeID=" & id
      Set rs = Conn.Execute(SQL)
     
      spmGruppeNavn = rs("spmGruppeNavn")
      sponsorNavn = rs("sponsorNavn")
      sponsorWWW = rs("sponsorWWW")
      sponsorBillede = rs("sponsorBillede")
      startDato = rs("startDato")
      slutDato = rs("slutDato")
      valg = rs("valg")
      aktiv = rs("aktiv")
     
      SQL = "select * from spmTabel where spmGruppeId=" & id
      Set rs = Conn.Execute(SQL)
      str10 = ",,,,,,,,,"
      arrSpm = split(str10, ",")
      arrSvar = split(str10, ",")
      i = 0
      do while not rs.EOF
        arrSpm(i) = rs("spmText")
        arrSvar(i) = rs("spmSvar")
        i = i + 1
        rs.Movenext
      loop

%>
<center>
<form method="POST" action="<%=adminFilNavn%>?mode=konkurrencesiden&submode=
<% if id = "" then
  Response.Write "gem"
else
  Response.Write "opdater"
end if %>
">

<table>
  <tr><td><b>Sponser</b></td><td><b>Tekst</b></td></tr>

  <tr><td>Sponsor</td>
    <td><input type="text" size="50" name="sponsorNavn" value="<%=sponsorNavn%>">
    </td></tr>

  <tr><td>Link</td>
    <td><input type="text" size="50" name="wwwSponsorAdr" value="<%=sponsorWWW%>">
    </td></tr>

  <tr><td>Sponsor Billede</td>
    <td><input type="text" size="50" name="sponsorBillede" value="<%=sponsorBillede%>">
    </td></tr>

  <tr><td><b>konkurrence Data</b></td><td><b></b></td></tr>
  <tr><td>Gruppe Navn</td>
    <td><input type="text" size="50" name="spmGruppe" value="<%=spmGruppeNavn%>"></td>
  </tr>

  <tr><td>Start Dato (dd-mm-yyyy)</td>
    <td><input type="text" size="50" name="startDato" value="<%=startDato%>"></td>
  </tr>

  <tr><td>Slut Dato (dd-mm-yyyy)</td>
    <td><input type="text" size="50" name="slutDato" value="<%=slutDato%>"></td>
  </tr>

  <tr><td><b>Spørgsmål</b></td><td><b>Svar mulighed</b></td></tr>
  <tr><td><input type="text" size="50" name="spm1" value="<%=arrSpm(0)%>"></td>
    <td>Ja <input type="Radio" name="1" value="1"
<% if CStr(""&arrSvar(0)) = "1" then Response.Write " SELECTED " %>
>
        Nej <input type="Radio" name="1" value="0"
<% if CStr(""&arrSvar(0)) = "0" then Response.Write " SELECTED " %>
>
    </td></tr>
 
  <tr><td><input type="text" size="50" name="spm2" value="<%=arrSpm(1)%>"></td>
    <td>Ja <input type="Radio" name="2" value="1"
<% if CStr(""&arrSvar(1)) = "1" then Response.Write " SELECTED " %>
>
        Nej <input type="Radio" name="2" value="0"
<% if CStr(""&arrSvar(1)) = "0" then Response.Write " SELECTED " %>
>    </td></tr>

  <tr><td><input type="text" size="50" name="spm3" value="<%=arrSpm(2)%>"></td>
    <td>Ja <input type="Radio" name="3" value="1"
<% if CStr(""&arrSvar(2)) = "1" then Response.Write " SELECTED " %>
>
        Nej <input type="Radio" name="3" value="0"
<% if CStr(""&arrSvar(2)) = "0" then Response.Write " SELECTED " %>
>    </td></tr>

  <tr><td><input type="text" size="50" name="spm4" value="<%=arrSpm(3)%>"></td>
    <td>Ja <input type="Radio" name="4" value="1"
<% if CStr(""&arrSvar(3)) = "1" then Response.Write " SELECTED " %>
>
        Nej <input type="Radio" name="4" value="0"
<% if CStr(""&arrSvar(3)) = "0" then Response.Write " SELECTED " %>
>    </td></tr>

  <tr><td><input type="text" size="50" name="spm5" value="<%=arrSpm(4)%>"></td>
    <td>Ja <input type="Radio" name="5" value="1"
<% if CStr(""&arrSvar(4)) = "1" then Response.Write " SELECTED " %>
>
        Nej <input type="Radio" name="5" value="0"
<% if CStr(""&arrSvar(4)) = "0" then Response.Write " SELECTED " %>
>    </td></tr>

  <tr><td><input type="text" size="50" name="spm6" value="<%=arrSpm(5)%>"></td>
    <td>Ja <input type="Radio" name="6" value="1"
<% if CStr(""&arrSvar(5)) = "1" then Response.Write " SELECTED " %>
>
        Nej <input type="Radio" name="6" value="0"
<% if CStr(""&arrSvar(5)) = "0" then Response.Write " SELECTED " %>
>    </td></tr>

  <tr><td><input type="text" size="50" name="spm7" value="<%=arrSpm(6)%>"></td>
    <td>Ja <input type="Radio" name="7" value="1"
<% if CStr(""&arrSvar(6)) = "1" then Response.Write " SELECTED " %>
>
        Nej <input type="Radio" name="7" value="0"
<% if CStr(""&arrSvar(6)) = "0" then Response.Write " SELECTED " %>
>    </td></tr>

  <tr><td><input type="text" size="50" name="spm8" value="<%=arrSpm(7)%>"></td>
    <td>Ja <input type="Radio" name="8" value="1"
<% if CStr(""&arrSvar(7)) = "1" then Response.Write " SELECTED " %>
>
        Nej <input type="Radio" name="8" value="0"
<% if CStr(""&arrSvar(7)) = "0" then Response.Write " SELECTED " %>
>    </td></tr>

  <tr><td><input type="text" size="50" name="spm9" value="<%=arrSpm(8)%>"></td>
    <td>Ja <input type="Radio" name="9" value="1"
<% if CStr(""&arrSvar(8)) = "1" then Response.Write " SELECTED " %>
>
        Nej <input type="Radio" name="9" value="0"
<% if CStr(""&arrSvar(8)) = "0" then Response.Write " SELECTED " %>
>    </td></tr>

  <tr><td><input type="text" size="50" name="spm10" value="<%=arrSpm(9)%>"></td>
    <td>Ja <input type="Radio" name="10" value="1"
<% if CStr(""&arrSvar(9)) = "1" then Response.Write " SELECTED " %>
>
        Nej <input type="Radio" name="10" value="0"
<% if CStr(""&arrSvar(9)) = "0" then Response.Write " SELECTED " %>
>    </td></tr>


  <tr><td>Valg-muligheder til "Jeg forstækker":<br> (adskil med ; max 100 karakter)</td>
    <td><input type="text" size="50" maxlength="100" name="valg" value="<%=valg%>"></td>
  </tr>

  <tr><td>Skal konkurrencen være aktiv:</td><td><input type="checkbox" name="aktiv" value="ok"
<% if CStr(""&aktiv) = "1" then Response.Write " CHECKED " %>
></td></tr>
 
  <tr><td> </td><td><input type="submit" name="Gem" value="Gem"></td></tr>
  <tr><td colspan=2>Note: Udfyld alle felter!!</td></tr>
</table>
</form>

</center>
<%

Der mangler så lige en ting mere for den også gemmer det som er rettet, som kommre lige om lidt.

Admin siden kan ikke vises

Lige før disse to linjer

'Gem præmie i databasen her: 
  Case "gempraemie"


Tilføjes en nu Case "opdater", her er koden til den:




  case "opdater"
    Set conn = Server.CreateObject("ADODB.Connection")
    Set rs = Server.CreateObject("ADODB.recordset")
    Conn.Open tempConn
 
    if Request.ServerVariables("REQUEST_METHOD") = "POST" then
      spmGruppeNavn = Request.Form("spmGruppe")
      sponsorNavn = Request.Form("sponsorNavn")
      sponsorWWW = Request.Form("wwwSponsorAdr")
      sponsorBillede = Request.Form("sponsorBillede")
      startDato = Dato(Request.Form("startDato"))
      slutDato = Dato(Request.Form("slutDato"))
      valg = Request.Form("valg")
      aktiv = Request.Form("aktiv")
      if aktiv = "" then
        aktiv = 0
      else
        aktiv = 1
      end if
     
      strSQL = "UPDATE spmGruppe SET "
      strSQL = strSQL & "spmGruppeNavn = '" & spmGruppeNavn & "', "
      strSQL = strSQL & "sponsorNavn = '" & sponsorNavn & "', "
      strSQL = strSQL & "sponsorWWW = '" & sponsorWWW & "', "
      strSQL = strSQL & "sponsorBillede = '" & sponsorBillede & "',"
      strSQL = strSQL & "startDato = '" & startDato & "', "
      strSQL = strSQL & "slutDato = '" & slutDato & "', "
      strSQL = strSQL & "valg = '" & valg & "', "
      strSQL = strSQL & "aktiv = " & aktiv & " "
      strSQL = strSQL & " WHERE gruppeID = " & Request("ID")

      Conn.execute(strSQL)
 
      strSQL = "DELETE * FROM spmTabel WHERE spmGruppeId = " & request("ID")
      conn.execute(strSQL)
      gruppeID = Request("ID")

'Indsæt spørgsmålene i den nye gruppe 
      for i = 1 to 10
        spmText = replace(Request.Form("spm"&i),"'","''")
        spmSvar = Request.Form("" & i)

        if spmText <> "" and spmSvar <> "" then
          strSQL = "insert into spmTabel (spmGruppeId,spmText,spmSvar) VALUES ("
          strSQL = strSQL & "" & gruppeID & ", "
          strSQL = strSQL & "'" & spmText & "', "
          strSQL = strSQL & "" & spmSvar & ")"
'          Response.Write strSQL & "<br>"
          Conn.execute(strSQL)
        end if
      next
     
'Så er den konkurrence rettet. 
    End If

    Conn.Close
    Set Conn = Nothing

    Response.Redirect(adminFilNavn & "?mode=konkurrencesiden")

Oppe uder den nye tilrettet Case "add"

Skal denne if sætning rette:

<% if id = "" then
  Response.Write "gem"
else
  Response.Write "opdater"
end if %>


Til dette:

<% if id = "" then
  Response.Write "gem"
else
  Response.Write "opdater&ID=" & id
end if %>

Admin kan stadig ikke vises

Jeg er ikke sikker på at jeg har sat de rigtige koder de rigtige steder så jeg postere llige koderne:

case "konkurrencesiden"
 
  submode=Request.QueryString("submode")
  if submode = "" then submode = "list"
 
  select case submode
  case "list"

    Set conn = Server.CreateObject("ADODB.Connection")
    Set rs = Server.CreateObject("ADODB.recordset")
    Conn.Open tempConn
 
    SQL = "select * from spmGruppe order by gruppeID desc"
    Set rs = Conn.Execute(SQL)
 
    Response.Write "<center><table><tr>"
    Response.Write "<td>ID&nbsp;&nbsp;&nbsp;</td><td>navn</td>"
    Response.Write "<td>Test</td>"
    Response.Write "<td>Ret</td>"
    Response.Write "</tr>"

    do while not rs.EOF
      Response.Write "<tr>"
      Response.Write "<td>" & rs("gruppeID") & "</td>"
      Response.Write "<td>" & rs("spmGruppeNavn") & "</td>"
      Response.Write "<td><a href=""/kon/default.asp?testthis=visfortest&ID=" & rs("gruppeID") & """>Test denne konkurrence</a></td>"
      Response.Write "<td><a href=""" & adminFilNavn & "?mode=konkurrencesiden&submode=add&ID=" & rs("gruppeID") & """>Ret</a></td>"
      Response.Write "</tr>"
      rs.MoveNext
    loop
    Response.Write "</table>"
 
    Response.Write "<br><br>"
    Response.Write "<a href=""" & adminFilNavn & "?mode=konkurrencesiden&submode=add"">Tilføj konkurrence</a>"
    Response.Write " | "
    Response.Write "<a href=""" & adminFilNavn & "?mode=konkurrencesiden&submode=addpraemie"">Tilføj præmie</a>"
    Response.Write " | "
    Response.Write "<a href=""" & adminFilNavn & """>Tilbage</a>"
    Response.Write "</center>"
   
    Conn.Close
    Set Conn = Nothing
 
  case "add"
    id = Request("ID")

    Set conn = Server.CreateObject("ADODB.Connection")
    Set rs = Server.CreateObject("ADODB.recordset")
    Conn.Open tempConn

    if id <> "" then
      SQL = "select * from spmGruppe where gruppeID=" & id
      Set rs = Conn.Execute(SQL)
     
      spmGruppeNavn = rs("spmGruppeNavn")
      sponsorNavn = rs("sponsorNavn")
      sponsorWWW = rs("sponsorWWW")
      sponsorBillede = rs("sponsorBillede")
      startDato = rs("startDato")
      slutDato = rs("slutDato")
      valg = rs("valg")
      aktiv = rs("aktiv")
     
      SQL = "select * from spmTabel where spmGruppeId=" & id
      Set rs = Conn.Execute(SQL)
      str10 = ",,,,,,,,,"
      arrSpm = split(str10, ",")
      arrSvar = split(str10, ",")
      i = 0
      do while not rs.EOF
        arrSpm(i) = rs("spmText")
        arrSvar(i) = rs("spmSvar")
        i = i + 1
        rs.Movenext
      loop

%>
<center>
<form method="POST" action="<%=adminFilNavn%>?mode=konkurrencesiden&submode=
<% if id = "" then
  Response.Write "gem"
else
  Response.Write "opdater&ID=" & id
end if %>>
">

<table>
  <tr><td><b>Sponser</b></td><td><b>Tekst</b></td></tr>

  <tr><td>Sponsor</td>
    <td><input type="text" size="50" name="sponsorNavn" value="<%=sponsorNavn%>">
    </td></tr>

  <tr><td>Link</td>
    <td><input type="text" size="50" name="wwwSponsorAdr" value="<%=sponsorWWW%>">
    </td></tr>

  <tr><td>Sponsor Billede</td>
    <td><input type="text" size="50" name="sponsorBillede" value="<%=sponsorBillede%>">
    </td></tr>

  <tr><td><b>konkurrence Data</b></td><td><b></b></td></tr>
  <tr><td>Gruppe Navn</td>
    <td><input type="text" size="50" name="spmGruppe" value="<%=spmGruppeNavn%>"></td>
  </tr>

  <tr><td>Start Dato (dd-mm-yyyy)</td>
    <td><input type="text" size="50" name="startDato" value="<%=startDato%>"></td>
  </tr>

  <tr><td>Slut Dato (dd-mm-yyyy)</td>
    <td><input type="text" size="50" name="slutDato" value="<%=slutDato%>"></td>
  </tr>

  <tr><td><b>Spørgsmål</b></td><td><b>Svar mulighed</b></td></tr>
  <tr><td><input type="text" size="50" name="spm1" value="<%=arrSpm(0)%>"></td>
    <td>Ja <input type="Radio" name="1" value="1"
<% if CStr(""&arrSvar(0)) = "1" then Response.Write " SELECTED " %>
>
        Nej <input type="Radio" name="1" value="0"
<% if CStr(""&arrSvar(0)) = "0" then Response.Write " SELECTED " %>
>
    </td></tr>
 
  <tr><td><input type="text" size="50" name="spm2" value="<%=arrSpm(1)%>"></td>
    <td>Ja <input type="Radio" name="2" value="1"
<% if CStr(""&arrSvar(1)) = "1" then Response.Write " SELECTED " %>
>
        Nej <input type="Radio" name="2" value="0"
<% if CStr(""&arrSvar(1)) = "0" then Response.Write " SELECTED " %>
>    </td></tr>

  <tr><td><input type="text" size="50" name="spm3" value="<%=arrSpm(2)%>"></td>
    <td>Ja <input type="Radio" name="3" value="1"
<% if CStr(""&arrSvar(2)) = "1" then Response.Write " SELECTED " %>
>
        Nej <input type="Radio" name="3" value="0"
<% if CStr(""&arrSvar(2)) = "0" then Response.Write " SELECTED " %>
>    </td></tr>

  <tr><td><input type="text" size="50" name="spm4" value="<%=arrSpm(3)%>"></td>
    <td>Ja <input type="Radio" name="4" value="1"
<% if CStr(""&arrSvar(3)) = "1" then Response.Write " SELECTED " %>
>
        Nej <input type="Radio" name="4" value="0"
<% if CStr(""&arrSvar(3)) = "0" then Response.Write " SELECTED " %>
>    </td></tr>

  <tr><td><input type="text" size="50" name="spm5" value="<%=arrSpm(4)%>"></td>
    <td>Ja <input type="Radio" name="5" value="1"
<% if CStr(""&arrSvar(4)) = "1" then Response.Write " SELECTED " %>
>
        Nej <input type="Radio" name="5" value="0"
<% if CStr(""&arrSvar(4)) = "0" then Response.Write " SELECTED " %>
>    </td></tr>

  <tr><td><input type="text" size="50" name="spm6" value="<%=arrSpm(5)%>"></td>
    <td>Ja <input type="Radio" name="6" value="1"
<% if CStr(""&arrSvar(5)) = "1" then Response.Write " SELECTED " %>
>
        Nej <input type="Radio" name="6" value="0"
<% if CStr(""&arrSvar(5)) = "0" then Response.Write " SELECTED " %>
>    </td></tr>

  <tr><td><input type="text" size="50" name="spm7" value="<%=arrSpm(6)%>"></td>
    <td>Ja <input type="Radio" name="7" value="1"
<% if CStr(""&arrSvar(6)) = "1" then Response.Write " SELECTED " %>
>
        Nej <input type="Radio" name="7" value="0"
<% if CStr(""&arrSvar(6)) = "0" then Response.Write " SELECTED " %>
>    </td></tr>

  <tr><td><input type="text" size="50" name="spm8" value="<%=arrSpm(7)%>"></td>
    <td>Ja <input type="Radio" name="8" value="1"
<% if CStr(""&arrSvar(7)) = "1" then Response.Write " SELECTED " %>
>
        Nej <input type="Radio" name="8" value="0"
<% if CStr(""&arrSvar(7)) = "0" then Response.Write " SELECTED " %>
>    </td></tr>

  <tr><td><input type="text" size="50" name="spm9" value="<%=arrSpm(8)%>"></td>
    <td>Ja <input type="Radio" name="9" value="1"
<% if CStr(""&arrSvar(8)) = "1" then Response.Write " SELECTED " %>
>
        Nej <input type="Radio" name="9" value="0"
<% if CStr(""&arrSvar(8)) = "0" then Response.Write " SELECTED " %>
>    </td></tr>

  <tr><td><input type="text" size="50" name="spm10" value="<%=arrSpm(9)%>"></td>
    <td>Ja <input type="Radio" name="10" value="1"
<% if CStr(""&arrSvar(9)) = "1" then Response.Write " SELECTED " %>
>
        Nej <input type="Radio" name="10" value="0"
<% if CStr(""&arrSvar(9)) = "0" then Response.Write " SELECTED " %>
>    </td></tr>


  <tr><td>Valg-muligheder til "Jeg forstækker":<br> (adskil med ; max 100 karakter)</td>
    <td><input type="text" size="50" maxlength="100" name="valg" value="<%=valg%>"></td>
  </tr>

  <tr><td>Skal konkurrencen være aktiv:</td><td><input type="checkbox" name="aktiv" value="ok"
<% if CStr(""&aktiv) = "1" then Response.Write " CHECKED " %>
></td></tr>
 
  <tr><td> </td><td><input type="submit" name="Gem" value="Gem"></td></tr>
  <tr><td colspan=2>Note: Udfyld alle felter!!</td></tr>
</table>
</form>

</center>
<%

  case "addpraemie"
%>
<center>
<form method="POST" action="<%=adminFilNavn%>?mode=konkurrencesiden&submode=gempraemie">
<table>
  <tr><td>Præmie</td>
    <td><input type="text" size="50" name="premieNavn">
    </td></tr>

  <tr><td>Præmie billede</td>
    <td><input type="text" size="50" name="premieBillede">
    </td></tr>

  <tr><td>Overskrift</td>
    <td><input type="text" size="50" name="premieOverskrift">
    </td></tr>
   
  <tr><td>Til Konkurrence</td>
    <td><select name="premieKonkurrence">
<% 
    Set conn = Server.CreateObject("ADODB.Connection")
    Set rs = Server.CreateObject("ADODB.recordset")
    Conn.Open tempConn

    SQL = "select gruppeID, spmGruppeNavn from spmGruppe order by gruppeID desc"
    Set rs = Conn.Execute(SQL)
 
    do while not rs.EOF
      Response.Write "<option value=""" & rs("gruppeID") & """>" & rs("spmGruppeNavn") & "</option>"
      rs.MoveNext
    loop
   
    Conn.Close
    Set Conn = Nothing
%>
    </select>
    </td></tr>

  <tr><td> </td><td><input type="submit" name="Gem" value="Gem"></td></tr>
  <tr><td colspan="2">Note: Udfyld alle felter!!</td></tr>
</table>
</form>

</center>

<%
 
  case "gem"
    Set conn = Server.CreateObject("ADODB.Connection")
    Set rs = Server.CreateObject("ADODB.recordset")
    Conn.Open tempConn
 
    if Request.ServerVariables("REQUEST_METHOD") = "POST" then
      spmGruppeNavn = Request.Form("spmGruppe")
      sponsorNavn = Request.Form("sponsorNavn")
      sponsorWWW = Request.Form("wwwSponsorAdr")
      sponsorBillede = Request.Form("sponsorBillede")
      startDato = Dato(Request.Form("startDato"))
      slutDato = Dato(Request.Form("slutDato"))
      valg = Request.Form("valg")
      aktiv = Request.Form("aktiv")
      if aktiv = "" then
        aktiv = 0
      else
        aktiv = 1
      end if
     
      strSQL = "INSERT INTO spmGruppe (spmGruppeNavn,sponsorNavn,sponsorWWW,sponsorBillede,"
      strSQL = strSQL & "startDato,slutDato,valg,aktiv) VALUES ("
      strSQL = strSQL & "'" & spmGruppeNavn & "',"
      strSQL = strSQL & "'" & sponsorNavn & "',"
      strSQL = strSQL & "'" & sponsorWWW & "',"
      strSQL = strSQL & "'" & sponsorBillede & "',"
      if DATABASE_TYPE = "MySQL" then
        strSQL = strSQL & "'" & startDato & "',"
        strSQL = strSQL & "'" & slutDato & "',"
      else 
        strSQL = strSQL & "#" & startDato & "#,"
        strSQL = strSQL & "#" & slutDato & "#,"
      end if
      strSQL = strSQL & "'" & valg & "',"
      strSQL = strSQL & "" & aktiv & ""
      strSQL = strSQL & ");"
'  Response.Write strSQL
      Conn.execute(strSQL)
 
'Find den nye gruppe
      if DATABASE_TYPE = "MySQL" then
        strSQL = "SELECT * FROM spmGruppe ORDER BY gruppeID DESC LIMIT 0,1;"
      else
        strSQL = "SELECT TOP 1 * FROM spmGruppe ORDER BY gruppeID DESC;"
      end if
      set rs = conn.execute(strSQL)
      gruppeID = rs("gruppeID")

'Indsæt spørgsmålene i den nye gruppe 
      for i = 1 to 10
        spmText = replace(Request.Form("spm"&i),"'","''")
        spmSvar = Request.Form("" & i)

        if spmText <> "" and spmSvar <> "" then
          strSQL = "insert into spmTabel (spmGruppeId,spmText,spmSvar) VALUES ("
          strSQL = strSQL & "" & gruppeID & ", "
          strSQL = strSQL & "'" & spmText & "', "
          strSQL = strSQL & "" & spmSvar & ")"
'          Response.Write strSQL & "<br>"
          Conn.execute(strSQL)
        end if
      next
     
'Så er den nye konkurrence lagt ind. 
    End If

    Conn.Close
    Set Conn = Nothing

    Response.Redirect(adminFilNavn & "?mode=konkurrencesiden")
case "opdater"
    Set conn = Server.CreateObject("ADODB.Connection")
    Set rs = Server.CreateObject("ADODB.recordset")
    Conn.Open tempConn
 
    if Request.ServerVariables("REQUEST_METHOD") = "POST" then
      spmGruppeNavn = Request.Form("spmGruppe")
      sponsorNavn = Request.Form("sponsorNavn")
      sponsorWWW = Request.Form("wwwSponsorAdr")
      sponsorBillede = Request.Form("sponsorBillede")
      startDato = Dato(Request.Form("startDato"))
      slutDato = Dato(Request.Form("slutDato"))
      valg = Request.Form("valg")
      aktiv = Request.Form("aktiv")
      if aktiv = "" then
        aktiv = 0
      else
        aktiv = 1
      end if
     
      strSQL = "UPDATE spmGruppe SET "
      strSQL = strSQL & "spmGruppeNavn = '" & spmGruppeNavn & "', "
      strSQL = strSQL & "sponsorNavn = '" & sponsorNavn & "', "
      strSQL = strSQL & "sponsorWWW = '" & sponsorWWW & "', "
      strSQL = strSQL & "sponsorBillede = '" & sponsorBillede & "',"
      strSQL = strSQL & "startDato = '" & startDato & "', "
      strSQL = strSQL & "slutDato = '" & slutDato & "', "
      strSQL = strSQL & "valg = '" & valg & "', "
      strSQL = strSQL & "aktiv = " & aktiv & " "
      strSQL = strSQL & " WHERE gruppeID = " & Request("ID")

      Conn.execute(strSQL)
 
      strSQL = "DELETE * FROM spmTabel WHERE spmGruppeId = " & request("ID")
      conn.execute(strSQL)
      gruppeID = Request("ID")

'Indsæt spørgsmålene i den nye gruppe 
      for i = 1 to 10
        spmText = replace(Request.Form("spm"&i),"'","''")
        spmSvar = Request.Form("" & i)

        if spmText <> "" and spmSvar <> "" then
          strSQL = "insert into spmTabel (spmGruppeId,spmText,spmSvar) VALUES ("
          strSQL = strSQL & "" & gruppeID & ", "
          strSQL = strSQL & "'" & spmText & "', "
          strSQL = strSQL & "" & spmSvar & ")"
'          Response.Write strSQL & "<br>"
          Conn.execute(strSQL)
        end if
      next
     
'Så er den konkurrence rettet. 
    End If

    Conn.Close
    Set Conn = Nothing

    Response.Redirect(adminFilNavn & "?mode=konkurrencesiden")

'Gem præmie i databasen her: 
  Case "gempraemie"

    Set conn = Server.CreateObject("ADODB.Connection")
    Set rs = Server.CreateObject("ADODB.recordset")
    Conn.Open tempConn
 
    if Request.ServerVariables("REQUEST_METHOD") = "POST" then
      premieNavn = Request.Form("premieNavn")
      premieBillede = Request.Form("premieBillede")
      premieOverskrift = Request.Form("premieOverskrift")
      premieKonkurrence = Request.Form("premieKonkurrence")

      SQL = "insert into spmPraemie (spmgruppe, premieNavn, premieBillede, premieOverskift)"
      SQL = SQL & " VALUES ("
      SQL = SQL & "" & premieKonkurrence & ", "
      SQL = SQL & "'" & premieNavn & "', "
      SQL = SQL & "'" & premieBillede & "', "
      SQL = SQL & "'" & premieOverskrift & "'"
      SQL = SQL & ")"
      Conn.Execute(SQL)
    end if
    Conn.Close
    Set Conn = Nothing
   
    Response.Redirect(adminFilNavn & "?mode=konkurrencesiden")
   
   
     
'Hvis det er en ukendt submode så redirect til mode= konkurrencesiden
  Case Else
    Response.Redirect(adminFilNavn & "?mode=konkurrencesiden")
 
  End Select 'submode 

 
'''''''''''''''''''''''''''''
''
'' SLUT PÅ konkurrence admin delen
''
'''''''''''''''''''''''''''''

End Select
%>
  <font face="Verdana" size="1"><center><b>
    Admin er Copyright af <a href="www.dirch-passer.dk</a><br>" target="_blank">http://www.dirch-passer.dk/mainpage.asp">www.dirch-passer.dk</a><br>
    Udviklet af Thomas Andersen og Anders Ørndrup<br><a href="http://www.dirch-passer.dk/admin.asp">Tilbage</a></a>
</b></center></font>
  </td>
  </tr>
</table>
</div>
</body>
</html>

<%
function fixSring(strInput)
  if len(fixSring) > 0 then
    outString = replace(strInput,"LIKE","kjhg")
    outString = replace(outString,"?","Q")
    outString = replace(outString,"%","W")
    outString = replace(outString,"'","E")
    fixSring = outString
  else
    fixSring = strInput
  end if
end function

function Two(S)
  two = CStr(S)
  while len(two)<2
    two = "0" & two
  wend
end function

function Dato(strDato)
  if strDato <> "" then
    da = Two(Year(strDato)) & "-" & Two(Month(strDato)) & "-" & Two(Day(strDato))
  else
    da = ""
  end if
  Dato = da
end function
%>

Det ser ellers rigtigt ud.

Prøv at slette disse linjer i koden og copy dem herfra og paste dem ind i koden igen:

</center>
<%

  case "addpraemie"
%>
<center>

Admin kan stadig ikke vises!

Der mangler et end if i dette styk kode i Case "add"


      SQL = "select * from spmTabel where spmGruppeId=" & id
      Set rs = Conn.Execute(SQL)
      str10 = ",,,,,,,,,"
      arrSpm = split(str10, ",")
      arrSvar = split(str10, ",")
      i = 0
      do while not rs.EOF
        arrSpm(i) = rs("spmText")
        arrSvar(i) = rs("spmSvar")
        i = i + 1
        rs.Movenext
      loop

%>



Sådan her:


      SQL = "select * from spmTabel where spmGruppeId=" & id
      Set rs = Conn.Execute(SQL)
      str10 = ",,,,,,,,,"
      arrSpm = split(str10, ",")
      arrSvar = split(str10, ",")
      i = 0
      do while not rs.EOF
        arrSpm(i) = rs("spmText")
        arrSvar(i) = rs("spmSvar")
        i = i + 1
        rs.Movenext
      loop
  End If    '<--------------- Her skal det ind.
%>

Det var bedre!

men denne fejl kommer når jeg prøver at rette en:
Microsoft OLE DB Provider for ODBC Drivers error '80040e09'

[TCX][MyODBC]You have an error in your SQL syntax near '' at line 1

/admin.asp, line 1045

Kan du prøve at vise den SQL sætning der bliver lavet lige før linje 1045.

Når ja undskyld :)

      strSQL = "UPDATE spmGruppe SET "
      strSQL = strSQL & "spmGruppeNavn = '" & spmGruppeNavn & "', "
      strSQL = strSQL & "sponsorNavn = '" & sponsorNavn & "', "
      strSQL = strSQL & "sponsorWWW = '" & sponsorWWW & "', "
      strSQL = strSQL & "sponsorBillede = '" & sponsorBillede & "',"
      strSQL = strSQL & "startDato = '" & startDato & "', "
      strSQL = strSQL & "slutDato = '" & slutDato & "', "
      strSQL = strSQL & "valg = '" & valg & "', "
      strSQL = strSQL & "aktiv = " & aktiv & " "
      strSQL = strSQL & " WHERE gruppeID = " & Request("ID")

      Conn.execute(strSQL)        <-------- denne her er 1045

Prøv at finde denne if sæning og ret i den der er kommet > formet:

<% if id = "" then
  Response.Write "gem"
else
  Response.Write "opdater&ID=" & id
end if %>>
">


Det skal se sådan her ud:


<% if id = "" then
  Response.Write "gem"
else
  Response.Write "opdater&ID=" & id
end if %>
">

Fejl i linie 1048:

Microsoft OLE DB Provider for ODBC Drivers error '80040e09'

[TCX][MyODBC]You have an error in your SQL syntax near '* FROM spmTabel WHERE spmGruppeId = 10' at line 1

/admin.asp, line 1048


      strSQL = "UPDATE spmGruppe SET "
      strSQL = strSQL & "spmGruppeNavn = '" & spmGruppeNavn & "', "
      strSQL = strSQL & "sponsorNavn = '" & sponsorNavn & "', "
      strSQL = strSQL & "sponsorWWW = '" & sponsorWWW & "', "
      strSQL = strSQL & "sponsorBillede = '" & sponsorBillede & "',"
      strSQL = strSQL & "startDato = '" & startDato & "', "
      strSQL = strSQL & "slutDato = '" & slutDato & "', "
      strSQL = strSQL & "valg = '" & valg & "', "
      strSQL = strSQL & "aktiv = " & aktiv & " "
      strSQL = strSQL & " WHERE gruppeID = " & Request("ID")

      Conn.execute(strSQL)
 
      strSQL = "DELETE * FROM spmTabel WHERE spmGruppeId = " & request("ID")
      conn.execute(strSQL)  <-------------dette er 1048


Men rettelserne bliver gemt i DB'en

mySQL er måske det samme som Access.

Prøv at fjerne * fra den SQL sætning

Nu ser det umeldtbart ud til at virke!
Men hvis man prøver at rette gemmer den rettelsen men sletter alle spørgsmålene fra konkurrencen (Fra spmtabel)

Der er også en fejl under "Tilføj konkurrence"
Microsoft VBScript runtime error '800a000d'

Type mismatch: 'arrSpm'

/admin.asp, line 800


<tr><td><input type="text" size="50" name="spm1" value="<%=arrSpm(0)%>"></td>

Ja men den skulle gerne tilføje spørgsmålene igen??


Ja der er en fejl hele den føste del af case "add" skal rettes



  case "add"
    id = Request("ID")

    Set conn = Server.CreateObject("ADODB.Connection")
    Set rs = Server.CreateObject("ADODB.recordset")
    Conn.Open tempConn

    str10 = ",,,,,,,,,"
    arrSpm = split(str10, ",")
    arrSvar = split(str10, ",")
    if id <> "" then
      SQL = "select * from spmGruppe where gruppeID=" & id
      Set rs = Conn.Execute(SQL)
     
      spmGruppeNavn = rs("spmGruppeNavn")
      sponsorNavn = rs("sponsorNavn")
      sponsorWWW = rs("sponsorWWW")
      sponsorBillede = rs("sponsorBillede")
      startDato = rs("startDato")
      slutDato = rs("slutDato")
      valg = rs("valg")
      aktiv = rs("aktiv")
     
      SQL = "select * from spmTabel where spmGruppeId=" & id
      Set rs = Conn.Execute(SQL)
      i = 0
      do while not rs.EOF
        arrSpm(i) = rs("spmText")
        arrSvar(i) = rs("spmSvar")
        i = i + 1
        rs.Movenext
      loop
    End If    '<--------------- Her skal det ind.
%>

Nu er "Tilføj konkurrence" i orden igen!

Men så snart man prøver at rette i datoen, slettes spørgsmålene fra db'en

Ok det er en fejl i det som udskriver spørgmålene så svaret forsvinger, det er disse linjer, her for det første spørgsmål:


<% if CStr(""&arrSvar(0)) = "1" then Response.Write " SELECTED " %>
>
        Nej <input type="Radio" name="1" value="0"
<% if CStr(""&arrSvar(0)) = "0" then Response.Write " SELECTED " %>
>


Det skal være CHECKED i stedet for SELECTED ved dem alle sådan her, hvis du copy/paster ind dette ind í alle 10 så husk lige at rette  arrSvar(0)  ->  arrSvar(X) hvor X er det som står i forvejen.


<% if CStr(""&arrSvar(0)) = "1" then Response.Write " CHECKED " %>
>
        Nej <input type="Radio" name="1" value="0"
<% if CStr(""&arrSvar(0)) = "0" then Response.Write " CHECKED " %>
>

Nu sletter den kun 2 af de 3 spørgsmål

Alle de  SELECTED  der er skal rettes CHECKED i Case "add" delen.

Ja jeg havde glemt et par stykker :)
Nu ser det ud til at virkej jeg tjekker den i gennem i morgen.

Jeg vil lige spørge om du har lyst til at hjælpe mig med dette i morgen eller en anden dag?

Min film side skal gerne se sådan bare uden "Anmeldelse og den streg som deler de 2 rammer"
http://www.dirch-passer.dk/dvdanmeldelse.asp?id=1

Kan det evt. bare klares med opret at ekstra kolonne og klip/klister?

Er du gået??

1000 tak for hjælpen :)

Kunne jeg ikke også få dig til at kigge på dette spørgsmål også?
http://www.eksperten.dk/spm/380790