Hvad er denne fejl??

Du har  kaldt både dit recordet og connection for rs prøv at brug conn som connection sådan her:

Så ret disse 3 :

set rs = server.createObject("adodb.connection")
rs.open tempConn
      Set rs = rs.Execute(SQL)  <----linie 1060


Til dette:

set conn = server.createObject("adodb.connection")
conn.open tempConn
      Set rs = conn.Execute(SQL)  <----linie 1060

set rs = server.createObject("adodb.connection")
skal rettes til:
set rs = server.createObject("adodb.recordset")

du skal lave både connection og recordset

Det hjalp desværre ikke rigtig, samme fejl:

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 1060

>> hossein!

Det gav denne fejl:

ADODB.Recordset error '800a0e7d'
The connection cannot be used to perform this operation. It is either closed or invalid in this context.

/admin.asp, line 1059

Prøv at udskrive SQL'en, ved at tilføje
Response.Write SQL
Response.End

efter denne linje:
SQL = "select * from spmpraemie where spmGruppe=" & id
Response.Write SQL
Response.End


og vis resultat her eller tjek at der står et tal hvor efter wher spmGruppe=XXX

SQL = "select * from spmpraemie where spmGruppe='" & id & "'

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("minDB.mdb") ' din egen db navn
Conn.Open DSN

SQL = "select * from spmpraemie where spmGruppe =" &id 'tjek feltnavn, staves rigtig
Set rs = Conn.Execute(SQL)%>
...

>>eagleeye

Den skrev dette:

select * from spmpraemie where spmGruppe=

Ok, så mangler variablen  id  at få tildelt en værdi.
Kommer den fra en Querysting (i linket) eller fra en form, eller noget helt andet?

Du kender mig da....
Sådan kan du ikke spørge, sådan noget ved jeg ikke

>>eagleeye

Vil du ikke skære dit spørgsmål ud i PAP for mig?

Du kan prøve at tilføje en request("id") sådan her:


id = Reques("id")
SQL = "select * from spmpraemie where spmGruppe=" & id
Response.Write SQL
Response.End


og se om der så kommer et tal?
Står der ikke noget i Adresse baren xxxxx/admin.asp?id=XXX

Nu kommer denne fejl:
Microsoft VBScript runtime error '800a000d'
Type mismatch: 'Reques'

/admin.asp, line 1057

Der står dette
admin.asp?mode=konkurrencesiden&submode=add

Ok der skulle hvade været t i Request("id")

id = Request("id")

Ok :)

Den skrev dette:
select * from spmpraemie where spmGruppe=

Og fjerner jeg dette:
Response.Write SQL
Response.End
Kommer denne fejl:

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 1061

Nej det ændre ikke noget, men fejlen kommer fordi id er tom.

Jeg er nød til at smutte i seng nu, skal relativt tidligt op.

Jamen det er der hvor jeg skal oprette konkurrencen!

Ok sov godt.

Jeg håber du vil hjælpe mig færdig i morgen, jeg skal nemlig ha' oprettet en konkurrence??

Et bud er du kommer ind i noget kode som ikke er pakket ind i

select mode
case "konkurrece"
  ..kode..

case "nogetandet"
  ..kode..
end selct

Linje 1060 er så her uden for select mode strukturen og giver der med fejl??

Jeg har fået en anden person til at hjælpe mig med det sidste på adminsiden, og i den forbindelse er der nok blevet rodet lidt med oprettelse af konkurrence.

Kan jeg ikke godt få dig til at se på koderne. det er det eneste, alt andet er færdiglavet, så der bliver ikke noget ekstra arbejde?

Og det behøver selvfølgelig ikke at være i aften da du er på vej i seng :)

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</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

    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")
      bemerkning = rs("bemerkning")
      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
%><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 " CHECKED " %>
>
        Nej <input type="Radio" name="1" value="0"
<% if CStr(""&arrSvar(0)) = "0" then Response.Write " CHECKED " %>
>
    </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 " CHECKED " %>
>
        Nej <input type="Radio" name="2" value="0"
<% if CStr(""&arrSvar(1)) = "0" then Response.Write " CHECKED " %>
>    </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 " CHECKED " %>
>
        Nej <input type="Radio" name="3" value="0"
<% if CStr(""&arrSvar(2)) = "0" then Response.Write " CHECKED " %>
>    </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 " CHECKED " %>
>
        Nej <input type="Radio" name="4" value="0"
<% if CStr(""&arrSvar(3)) = "0" then Response.Write " CHECKED " %>
>    </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 " CHECKED " %>
>
        Nej <input type="Radio" name="5" value="0"
<% if CStr(""&arrSvar(4)) = "0" then Response.Write " CHECKED " %>
>    </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 " CHECKED " %>
>
        Nej <input type="Radio" name="6" value="0"
<% if CStr(""&arrSvar(5)) = "0" then Response.Write " CHECKED " %>
>    </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 " CHECKED " %>
>
        Nej <input type="Radio" name="7" value="0"
<% if CStr(""&arrSvar(6)) = "0" then Response.Write " CHECKED " %>
>    </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 " CHECKED " %>
>
        Nej <input type="Radio" name="8" value="0"
<% if CStr(""&arrSvar(7)) = "0" then Response.Write " CHECKED " %>
>    </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 " CHECKED " %>
>
        Nej <input type="Radio" name="9" value="0"
<% if CStr(""&arrSvar(8)) = "0" then Response.Write " CHECKED " %>
>    </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 " CHECKED " %>
>
        Nej <input type="Radio" name="10" value="0"
<% if CStr(""&arrSvar(9)) = "0" then Response.Write " CHECKED " %>
>    </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>

  <tr><td>Bemærkninger</td>
    <td><input type="text" size="50" name="bemerkning" value="<%=bemerkning%>"></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>

<%
id = Request("id")
SQL = "select * from spmpraemie where spmGruppe=" & id
set conn = server.createObject("adodb.connection")
conn.open tempConn
      Set rs = conn.Execute(SQL)
i = 0
while not rs.eof
premieOverskrift = rs("premieOverskrift")
premieNavn = rs("premieNavn")
premieBillede = rs("premieBillede")
id = rs.fields("id")
i = i+1
%>

    <tr><td>Præmie Overskrift</td>
    <td><input type="text" size="50" name="premieOverskrift_<%=i%>" value="<%=premieOverskrift%>">
    </td></tr>
   
    <tr><td>Præmie Navn</td>
    <td><input type="text" size="50" name="premieNavn_<%=i%>" value="<%=premieNavn%>">
    </td></tr>
   
    <tr><td>Præmie Billede</td>
    <td><input type="text" size="50" name="premieBillede_<%=i%>" value="<%=premieBillede%>">
    </td></tr>
<input type="hidden" name="id_<%=i%>" value="<%=id%>">

<%

rs.movenext
wend
%>
<input type="hidden" name="antal" value="<%=i%>"> 
  <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")
      bemerkning = Request.Form("bemerkning")
      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,bemerkning,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 & "'" & bemerkning & "',"
      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")
      bemerkning = Request.Form("bemerkning")
      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 & "bemerkning = '" & replace(bemerkning, "'", "''") & "', "
      strSQL = strSQL & "aktiv = " & aktiv & " "
      strSQL = strSQL & " WHERE gruppeID = " & Request("ID")

      Conn.execute(strSQL)

      for i = 1 to CInt(request.form("antal"))
      premieNavn  = Request.Form("premieNavn_" & i)
      premieBillede = Request.Form("premieBillede_" & i)
      premieOverskrift = Request.Form("premieOverskrift_" & i)
      id = request.form("id_" & i)


      SQL = "Update spmPraemie SET premieNavn='"&premieNavn&"', premieBillede='"&premieBillede&"', premieOverskrift='"&premieOverskrift&"' WHERE id = " & CInt(id)
    Conn.execute(SQL)
Next

 
      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")
   
'Vis vinderene...   



'Hvis det er en ukendt submode så redirect til mode= konkurrencesiden
  Case Else
    Response.Redirect(adminFilNavn & "?mode=konkurrencesiden")
 
  End Select 'submode

Please eagleeye

Vil du ikke nok rede min "Tilføj konkurrence"??

Som jeg lige ser det så er der ikke noget ID:
Så prøv at rette:

<%
id = Request("id")
SQL = "select * from spmpraemie where spmGruppe=" & id
set conn = server.createObject("adodb.connection")
conn.open tempConn
      Set rs = conn.Execute(SQL)
i = 0
while not rs.eof
premieOverskrift = rs("premieOverskrift")
premieNavn = rs("premieNavn")
premieBillede = rs("premieBillede")
id = rs.fields("id")
i = i+1
%>

    <tr><td>Præmie Overskrift</td>
    <td><input type="text" size="50" name="premieOverskrift_<%=i%>" value="<%=premieOverskrift%>">
    </td></tr>
   
    <tr><td>Præmie Navn</td>
    <td><input type="text" size="50" name="premieNavn_<%=i%>" value="<%=premieNavn%>">
    </td></tr>
   
    <tr><td>Præmie Billede</td>
    <td><input type="text" size="50" name="premieBillede_<%=i%>" value="<%=premieBillede%>">
    </td></tr>
<input type="hidden" name="id_<%=i%>" value="<%=id%>">

<%

rs.movenext
wend
%>




Til dette, men så skriver den ikke de felter ud me Præmie

<%
id = Request("id")
if id <> "" then
  SQL = "select * from spmpraemie where spmGruppe=" & id
  set conn = server.createObject("adodb.connection")
  conn.open tempConn
  Set rs = conn.Execute(SQL)
  i = 0
  while not rs.eof
    premieOverskrift = rs("premieOverskrift")
    premieNavn = rs("premieNavn")
    premieBillede = rs("premieBillede")
    id = rs.fields("id")
    i = i+1
%>

    <tr><td>Præmie Overskrift</td>
    <td><input type="text" size="50" name="premieOverskrift_<%=i%>" value="<%=premieOverskrift%>">
    </td></tr>
   
    <tr><td>Præmie Navn</td>
    <td><input type="text" size="50" name="premieNavn_<%=i%>" value="<%=premieNavn%>">
    </td></tr>
   
    <tr><td>Præmie Billede</td>
    <td><input type="text" size="50" name="premieBillede_<%=i%>" value="<%=premieBillede%>">
    </td></tr>
<input type="hidden" name="id_<%=i%>" value="<%=id%>">

<%

  rs.movenext
wend
end if
%>

Nu virker det!

Men opperettelse af præmier driller også!


Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[TCX][MyODBC]Unknown column 'premieOverskift' in 'field list'

/admin.asp, line 1318


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)  <---------linie 1318
    end if
    Conn.Close
    Set Conn = Nothing

Jeg har set det :)

den skal rettes til premieOverskrift

Eagleeye!!

1000 tak