Søg
Avatar billede ponyboye Nybegynder
14. august 2004 - 01:16 Der er 44 kommentarer og
1 løsning

Hente data fra access til formular og opdater

jeg kan ikke forstår det ikke vil virke. Jeg har fuldt guiden som er på html.dk men små ændreinger men den melder bare om server fejl. er der en der vil kigge after fjel for mig i denne er og hjælpe mig med modtager siden?

<!--#include virtual="connection.asp" -->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
<%Dim Id

OpenDatabase
strSQL="SELECT * FROM opskrifter WHERE Id= '"&Request.Querystring("id")&"'"
    Conn.Execute(strSQL)
else
   
    strSQL="UPDATE opskrifter SET navn='"&Request.QueryString("navn")&"', af='"&Request.QueryString("af")&"', in1='"&Request.QueryString("in1")&"', fremgang='"&Request.QueryString("fremgang")&"', tilbe='"&Request.QueryString("tilbe")&"', tid='"&Request.QueryString("tid")&"', personer='"&Request.QueryString("personer")&"' WHERE id= '"&Request.Querystring("id")&"'"
    Conn.Execute(strSQL)
    response.buffer=true
    response.clear
    response.redirect "oversigt.asp"
    response.end

end if
    %>
   
    <%while not rs.EOF then%>
    <form method="GET" action="<%=request.servervariables("SCRIPT_NAME")%>">
                   
                                  <div align="center">
      <table width="550" cellpadding="2" cellspacing="3" bgcolor="#CCCCCC" class="formadmin">
        <tr>
          <td width="266"><div align="center">Opskrift navn:<br>
              <input name="navn" type="text" id="navn" value="<%=("navn")%>" maxlength="100">
            </div></td>
          <td width="265"><div align="center">Skrivet af:<br>
              <input name="af" type="text" id="af" value="<%=("af")%>" maxlength="100">
            </div></td>
        </tr>
        <tr>
          <td width="266"><div align="center">Ingedienser:<br>
              <textarea name="in1" id="in1"><%=("in1")%></textarea>
            </div></td>
          <td width="265"><div align="center">Fremgansm&aring;de:<br>
              <textarea name="fremgang" id="fremgang"><%=("fremgang")%></textarea>
            </div></td>
        </tr>
        <tr>
          <td><div align="center"> </div></td>
          <td><div align="center">Tilbeh&oslash;r:<br>
              <textarea name="tilbe" id="tilbe"><%=("tilbe")%></textarea>
            </div></td>
        </tr>
        <tr>
          <td width="266"><div align="center">Tilberedings tid:<br>
              <input name="tid" type="text" id="tid" value="<%=("tid")%>" size="10" maxlength="10">
            </div></td>
          <td width="265"><div align="center">Antal personer:<br>
              <input name="personer" type="text" id="personer" value="<%=("personer")%>" size="10" maxlength="10">
            </div></td>
        </tr>
        <tr>
          <td width="266"><div align="center"></div></td>
          <td width="265"><div align="center"></div></td>
        </tr>
        <tr>
          <td colspan="2"><div align="center"></div>
            <div align="center">Tilf&oslash;j til kategorier</div></td>
        </tr>
        <tr>
          <td height="22" colspan="2"><div align="center">
              <select name="hojtid" id="hojtid">
                <option value="<%=("hojtid")%>">V&aelig;lge H&oslash;jtid</option>
                <option value="1">Jul</option>
                <option value="2">P&aring;ske</option>
                <option value="3">Fastelavn</option>
                <option value="4">Nyt&aring;r</option>
                <option value="5">Helligtrekonger</option>
                <option value="6">Valentinsdag</option>
                <option value="7">Mors &amp; Fars dag</option>
                <option value="8">Sankt Hans</option>
                <option value="9">Halloween</option>
              </select>
              &nbsp;&nbsp;
              <select name="emme" id="emme">
                <option value="<%=("emme")%>">V&aelig;lge Emme</option>
                <option value="1">Afrikansk</option>
                <option value="2">Amerikansk</option>
                <option value="3">Asiatisk</option>
                <option value="4">Australsk</option>
                <option value="5">Belgisk</option>
                <option value="6">Bulgarsk</option>
                <option value="7">Engelsk</option>
                <option value="8">Fransk</option>
                <option value="9">Gr&aelig;sk</option>
                <option value="10">Hollandsk</option>
                <option value="11">Irsk</option>
                <option value="12">Italiensk</option>
                <option value="13">Jugoslavisk</option>
                <option value="14">Polsk</option>
                <option value="15">Portugisisk</option>
                <option value="16">Russisk</option>
                <option value="17">Schweizisk</option>
                <option value="18">Spansk</option>
                <option value="19">Tjekkisk</option>
                <option value="20">Tysk</option>
                <option value="21">Ungarsk</option>
                <option value="22">Arabisk</option>
                <option value="23">Iransk</option>
                <option value="24">Tyrkisk</option>
                <option value="25">Finsk</option>
                <option value="26">F&aelig;r&oslash;sk</option>
                <option value="27">Gr&oslash;nlandsk</option>
                <option value="28">Islandsk</option>
                <option value="29">Norsk</option>
                <option value="30">Svensk</option>
              </select>
              &nbsp;&nbsp;
              <select name="kategori" id="kategori">
                <option value="<%=("kategori")%>">V&aelig;lge M&aring;ltid</option>
                <option value="1">Forret</option>
                <option value="2">Hovedret</option>
                <option value="3">Dessert</option>
                <option value="4">Morgenmad</option>
                <option value="5">Frokost</option>
                <option value="6">Natmad</option>
                <option value="7">Tilbeh&oslash;r</option>
                <option value="8">Andet</option>
              </select>
              &nbsp;&nbsp;
              <select name="vare" id="vare">
                <option value="<%=("hojtid")%>">V&aelig;lge kategori</option>
                <option value="1">Suppe Garniturer</option>
                <option value="2">Klare Supper</option>
                <option value="3">Kolde Supper</option>
                <option value="4">Brune Supper</option>
                <option value="5">Pur&eacute; Supper</option>
                <option value="6">Velout&eacute; Supper</option>
                <option value="7">Cr&eacute;me Supper</option>
                <option value="8">Danske Supper</option>
                <option value="9">Udenlanske Supper</option>
                <option value="10">Grund Saucer</option>
                <option value="11">Brune Saucer</option>
                <option value="12">Velout&eacute; Saucer</option>
                <option value="13">Fiske Saucer</option>
                <option value="14">Specielle Saucer</option>
                <option value="15">Kolde Saucer</option>
                <option value="16">Kolde Sm&oslash;r Saucer</option>
                <option value="17">&AElig;gge Retter</option>
                <option value="18">Fars Retter</option>
                <option value="19">Fiske Garniturer</option>
                <option value="20">Oksek&oslash;d&acute;s Retter</option>
                <option value="21">kalvek&oslash;d&acute;s Retter</option>
                <option value="22">Lamme &amp; F&aring;re Retter</option>
                <option value="23">Svinek&oslash;d&acute;s Retter</option>
                <option value="24">Fjerkr&aelig; Retter</option>
                <option value="25">Vildt Retter</option>
                <option value="26">Gr&oslash;nt Retter</option>
                <option value="27">Ris &amp; Mel retter</option>
                <option value="28">Varme Desserter</option>
                <option value="29">Kolde Desserter</option>
                <option value="30">Br&oslash;d &amp; Bagev&aelig;rk</option>
                <option value="31">Kager</option>
                <option value="32">Syltning</option>
              </select>
            </div>
            <div align="center"></div></td>
        </tr>
        <tr>
          <td height="22" colspan="2"><div align="center">Godkend opskrift? &nbsp;&nbsp;
              Ja
              <input name="godkendt" type="radio" value="true" checked>

              &nbsp;&nbsp; Nej
              <input type="radio" name="godkendt" value="false">

            </div></td>
        </tr>
        <tr>
          <td height="21" colspan="2">&nbsp;</td>
        </tr>
        <tr>
          <td height="16" colspan="2"><div align="center"><font face="Verdana, Arial, Helvetica, sans-serif"><b>
              <input type="Submit" value="Tilf&oslash;j" name="Submit">
              <input type="Reset" value="Slet" name="Reset">
              </b></font></div>
            <div align="center"></div></td>
        </tr>
        <tr>
          <td width="266"><div align="center"></div></td>
          <td width="265"><div align="center"></div></td>
        </tr>
      </table>
      </div>
  </center>
</form>
                    <INPUT type="hidden" name="id" value="<%=opslag("id")%>">
  <p><input type="submit" value="Ret" name="knap"><input type="reset" value="Nulstil" name="B2"></p>
</form>
<%end if%>
</body>
</html>
Avatar billede ponyboye Nybegynder
14. august 2004 - 01:19 #1
jeg ved heller ikke lige hvordan jeg skal behandle radio knapperne og indeholde fra database også bliver indsat der.
Avatar billede trekkies Juniormester
14. august 2004 - 08:49 #2
Hvilken fejl kode får du helt precis?
Avatar billede eagleeye Praktikant
14. august 2004 - 10:14 #3
det mangler en if sætning, efter OpenDatabase så den enten henter eller opdater så prøv at rette dette:


<%Dim Id

OpenDatabase
strSQL="SELECT * FROM opskrifter WHERE Id= '"&Request.Querystring("id")&"'"
    Conn.Execute(strSQL)
else
   
    strSQL="UPDATE opskrifter SET navn='"&Request.QueryString("navn")&"', af='"&Request.QueryString("af")&"', in1='"&Request.QueryString("in1")&"', fremgang='"&Request.QueryString("fremgang")&"', tilbe='"&Request.QueryString("tilbe")&"', tid='"&Request.QueryString("tid")&"', personer='"&Request.QueryString("personer")&"' WHERE id= '"&Request.Querystring("id")&"'"
    Conn.Execute(strSQL)
    response.buffer=true
    response.clear
    response.redirect "oversigt.asp"
    response.end

end if
    %>



Til:

<%Dim Id

OpenDatabase
if Request("Submit") = "" then
strSQL="SELECT * FROM opskrifter WHERE Id= '"&Request.Querystring("id")&"'"
    Conn.Execute(strSQL)
else
   
    strSQL="UPDATE opskrifter SET navn='"&Request.QueryString("navn")&"', af='"&Request.QueryString("af")&"', in1='"&Request.QueryString("in1")&"', fremgang='"&Request.QueryString("fremgang")&"', tilbe='"&Request.QueryString("tilbe")&"', tid='"&Request.QueryString("tid")&"', personer='"&Request.QueryString("personer")&"' WHERE id= '"&Request.Querystring("id")&"'"
    Conn.Execute(strSQL)
    response.buffer=true
    response.clear
    response.redirect "oversigt.asp"
    response.end

end if
    %>
Avatar billede ponyboye Nybegynder
14. august 2004 - 16:04 #4
der sker ikke noget når jeg indsætter det og den viser heller ikke nogle fejl.
Avatar billede ponyboye Nybegynder
14. august 2004 - 16:05 #5
hvad betyder dette: <%=request.servervariables("SCRIPT_NAME")%>
Avatar billede eagleeye Praktikant
14. august 2004 - 16:26 #6
<%=request.servervariables("SCRIPT_NAME")%>  giver filnavnet på den fil koden ligger i.
Avatar billede eagleeye Praktikant
14. august 2004 - 16:28 #7
Prøv at rette denne linje

<%while not rs.EOF then%>

Til denne:

<%if not rs.EOF then%>
Avatar billede ponyboye Nybegynder
14. august 2004 - 22:04 #8
når det hjælper da lidt, nu kommer den da med en fejl.

Data type mismatch in criteria expression.

if Request("Submit") = "" then
strSQL="SELECT * FROM opskrifter WHERE Id= '"&Request.Querystring("id")&"'"
    Conn.Execute(strSQL)
Avatar billede eagleeye Praktikant
14. august 2004 - 22:11 #9
hvis id er tal eller autonummer skal der ikke ' omkring så prøv:

strSQL="SELECT * FROM opskrifter WHERE Id= "&Request.Querystring("id")
Avatar billede ponyboye Nybegynder
14. august 2004 - 22:21 #10
ja nu melder den ikke nogen fejl mere.

if Request("Submit") = "" then
strSQL="SELECT * FROM opskrifter WHERE id= "&Request.Querystring("id")
    Conn.Execute(strSQL)
else
   
    strSQL="UPDATE opskrifter SET navn='"&Request.QueryString("navn")&"', af='"&Request.QueryString("af")&"', in1='"&Request.QueryString("in1")&"', fremgang='"&Request.QueryString("fremgang")&"', tilbe='"&Request.QueryString("tilbe")&"', tid='"&Request.QueryString("tid")&"', personer='"&Request.QueryString("personer")&"' WHERE id= "&Request.Querystring("id")

jeg har skriftet den ud 2 steder da begge er tal
Avatar billede eagleeye Praktikant
14. august 2004 - 22:28 #11
En anden ting i disse to linjer:

    strSQL="SELECT * FROM opskrifter WHERE id= "&Request.Querystring("id")
    Conn.Execute(strSQL)

Skal du havde lagt resultet ind i et recordset sådan du kan udskrive til felterne:
    strSQL="SELECT * FROM opskrifter WHERE id= "&Request.Querystring("id")
    Set rs = Conn.Execute(strSQL)


Og så i alle value i inputfelterne skal rs("kolonne") tilføje lige nu står der bare en streng så en som denne:
  value="<%=("navn")%>"

Skal rettes til:
  value="<%=rs("navn")%>"
Avatar billede ponyboye Nybegynder
14. august 2004 - 22:37 #12
hvad så med dropdown, checkboxe og tekstarea er de rigtige?
Avatar billede eagleeye Praktikant
14. august 2004 - 22:46 #13
textarea skal være sådan her:
<textarea name="tilbe" id="tilbe"><%=rs("tilbe")%></textarea>


Drop-down er lidt mere besværligt for man skal tjekke hver værdi om det er den valgte og sætte den <option> selected.

              <select name="kategori" id="kategori">
                <option value="">V&aelig;lge M&aring;ltid</option>
                <option value="1" <% if Cstr(rs("kategori"))="1" then response.write "selected" %> >Forret</option>
                <option value="2" <% if Cstr(rs("kategori"))="2" then response.write "selected" %>>Hovedret</option>
                <option value="3" <% if Cstr(rs("kategori"))="3" then response.write "selected" %>>Dessert</option>
                <option value="4" <% if Cstr(rs("kategori"))="4" then response.write "selected" %>>Morgenmad</option>
                <option value="5" <% if Cstr(rs("kategori"))="5" then response.write "selected" %>>Frokost</option>
                <option value="6" <% if Cstr(rs("kategori"))="6" then response.write "selected" %>>Natmad</option>
                <option value="7" <% if Cstr(rs("kategori"))="7" then response.write "selected" %>>Tilbeh&oslash;r</option>
                <option value="8" <% if Cstr(rs("kategori"))="9" then response.write "selected" %>>Andet</option>
              </select>
Avatar billede ponyboye Nybegynder
14. august 2004 - 22:53 #14
selve ret knappen skal henvise til koden i toppen for at gemme de indtastet data, er det ikke rigtig?
Avatar billede eagleeye Praktikant
14. august 2004 - 22:55 #15
Du kunne overveje at lave en tabl til hver af dine drop-down hvor tallet og navnet står. Så kan koden også kortes ned. Men det har du måske også at lave kategori tallet om til et navn?

Hvis du gemte tallet og navet i en tabel dette drop-down laves sådan her:

SQL = "select id, navn from kategori order by id"
set katrs = Conn.Execute(SQL)
Response.write "<select name=""kategori"" id=""kategori"">"
do while not katrs.EOF
  response.write "<option value=""" & katrs("id") & """"
  if Cstr(rs("kategori"))=Cstr(katrs("id")) then response.write "selected"
  response.write ">" & katrs("navn") & "</option>"
  katrs.Movenext
loop
response.write "</select>"
Avatar billede eagleeye Praktikant
14. august 2004 - 22:56 #16
Ja det var meningen denne if sætning skulle tjekke om der var trykket på ret knappen:

if Request("Submit") = "" then

men jeg kan godt de den hedder jo ikke submit men knap så den skal være:

if Request("knap") = "" then
Avatar billede ponyboye Nybegynder
14. august 2004 - 22:59 #17
disse menuer lægger i tabeller for sig selv.

Id = Autonummerering
kategori = Tekst
kategoriid = tal

dette er tabellen for den du lige har nævnt
Avatar billede ponyboye Nybegynder
14. august 2004 - 23:01 #18
sådanne er det for alle menuer, det er kun opskrifterne der der lægger i en tabel for sig selv og hvor der så tilføjes et tal for menuen den skal tilføjes til
Avatar billede eagleeye Praktikant
14. august 2004 - 23:01 #19
Ok, så kan du jo evt. bruge det sidst viste.
Avatar billede ponyboye Nybegynder
14. august 2004 - 23:02 #20
okay
Avatar billede eagleeye Praktikant
14. august 2004 - 23:03 #21
Den udskriver drop-down menu'en og skulle gerne vælge den som er valgt :)
Avatar billede ponyboye Nybegynder
14. august 2004 - 23:09 #22
hvor skal det indsættes i forhold til det anden?
Avatar billede eagleeye Praktikant
14. august 2004 - 23:13 #23
Hvis det er kategori dorp-down så skal dette:

              <select name="kategori" id="kategori">
                <option value="<%=("kategori")%>">V&aelig;lge M&aring;ltid</option>
                <option value="1">Forret</option>
                <option value="2">Hovedret</option>
                <option value="3">Dessert</option>
                <option value="4">Morgenmad</option>
                <option value="5">Frokost</option>
                <option value="6">Natmad</option>
                <option value="7">Tilbeh&oslash;r</option>
                <option value="8">Andet</option>
              </select>


ændre til:

<%
SQL = "select kategoriid, kategori from kategori order by kategoriid"
set katrs = Conn.Execute(SQL)
Response.write "<select name=""kategori"" id=""kategori"">"
do while not katrs.EOF
  response.write "<option value=""" & katrs("kategoriid") & """"
  if Cstr(rs("kategori"))=Cstr(katrs("kategoriid")) then response.write "selected"
  response.write ">" & katrs("kategoriid") & "</option>"
  katrs.Movenext
loop
response.write "</select>"
%>
Avatar billede ponyboye Nybegynder
14. august 2004 - 23:37 #24
nu prøver jeg at få den til at hente højtiderne, det enste jeg har er at jeg udskriftet navnet på tabellen den skal hente fra og felterne så det passer til tabellen.

Så kommer den med en fejl at den ikke kan finde det ønsket og jeg skal se om det er stavet rigtigt.

De enste felter jeg har er

id = Autonummerering
hojtidnavn = navnet
hojtid = id

hvorfor gør det det da?

<%
SQL = "select hojtid, hojtidnavn from kategorier order by hojtid"
set katrs = Conn.Execute(SQL)
Response.write "<select name=""hojtid"" id=""hojtid"">"
do while not katrs.EOF
  response.write "<option value=""" & katrs("hojtid") & """"
  if Cstr(rs("hojtidnavn"))=Cstr(katrs("hojtid")) then response.write "selected"
  response.write ">" & katrs("hojtidnavn") & "</option>"
  katrs.Movenext
loop
response.write "</select>"
%>
Avatar billede eagleeye Praktikant
14. august 2004 - 23:39 #25
Hedder tabellen hvor højtiderne er i  kategorier ?

Hvis ikke skal det rettes i denne SQL sætning:
SQL = "select hojtid, hojtidnavn from kategorier order by hojtid"
Avatar billede eagleeye Praktikant
14. august 2004 - 23:42 #26
I denne linje:
if Cstr(rs("hojtidnavn"))=Cstr(katrs("hojtid")) then response.write "selected"

hedder kolonnen "hojtidnavn" er det navnet eller id'et på højtiden der er gemt? Hvis det er id'et er if sætningen rigtig, er det navnet skal det være katrs("hojtidnavn") og ikke katrs("hojtid")
Avatar billede ponyboye Nybegynder
14. august 2004 - 23:48 #27
okay det virker.

jeg har så den ret knap og den virker endnu ikke.
jeg har knappen uden for form/form skal den ikke lægge indenfor?

<INPUT type="hidden" name="id" value="<%=("id")%>">
 
<p align="center">
  <input type="submit" value="Ret" name="knap">
  <input type="reset" value="Nulstil" name="B2">
</p>
</form>
<%end if%>
Avatar billede eagleeye Praktikant
14. august 2004 - 23:51 #28
Ja det skal den det har jeg slet ikke set, der er to </form> tags, der skal kun være et </form> tag og knappen skal være før det :)
Avatar billede ponyboye Nybegynder
14. august 2004 - 23:51 #29
har lige prøvet og det var derfor...

ikke mere hjælp til min for nu, det skulle være lige ud af landevejen her fra.

hvad skulle jeg og så mange andre gøre uden din hjælp...?

læg et svar så jeg kan få god samvigtighed for alt den hjælp du har givet mig.(:
Avatar billede eagleeye Praktikant
14. august 2004 - 23:53 #30
Ok :)
Her er et svar.
Avatar billede ponyboye Nybegynder
14. august 2004 - 23:56 #31
godkendt vælger den også selv den?
Avatar billede eagleeye Praktikant
15. august 2004 - 00:00 #32
Nej det gør den faktisk ikke den har valgt Ja. Så kan du lave disse linjer om:

              Ja
              <input name="godkendt" type="radio" value="true" checked>

              &nbsp;&nbsp; Nej
              <input type="radio" name="godkendt" value="false">


Til dette, her man nød til at tjekke med kolonne om den er valt til endten Ja eller Nej et eks:

              Ja
              <input name="godkendt" type="radio" value="true" <% if rs("godkendt") = "true" then response.Write "checked" %>>

              &nbsp;&nbsp; Nej
              <input type="radio" name="godkendt" value="false" <% if rs("godkendt") = "true" then response.Write "checked" %>>



Men jeg så lige noget mere da jeg skulle tjekke kolonne navnet for godkendt, den mangler i din UPDATE SQL.
Avatar billede ponyboye Nybegynder
15. august 2004 - 00:00 #33
den vil heller ikke rette kategorierne, men godt vise hvor opskriften er tilmeldt, hvorfor vil den ikke det? alt andet vil den gerne rette
Avatar billede ponyboye Nybegynder
15. august 2004 - 00:02 #34
også hvis feltet er et Ja/Nej?
Avatar billede eagleeye Praktikant
15. august 2004 - 00:02 #35
Prøv at kigge på din UPDATE SQL sætning den skal vist havde en tur :)

    strSQL="UPDATE opskrifter SET navn='"&Request.QueryString("navn")&"', af='"&Request.QueryString("af")&"', in1='"&Request.QueryString("in1")&"', fremgang='"&Request.QueryString("fremgang")&"', tilbe='"&Request.QueryString("tilbe")&"', tid='"&Request.QueryString("tid")&"', personer='"&Request.QueryString("personer")&"' WHERE id= '"&Request.Querystring("id")&"'"

Den opdatere kun disse kolonner:  navn, af, in1, fremgang, tilbe, tid, personer
Avatar billede eagleeye Praktikant
15. august 2004 - 00:03 #36
Ja dog uden " omkring så og der skal stå false ved Nej prøv dette:

              Ja
              <input name="godkendt" type="radio" value="true" <% if rs("godkendt") = true then response.Write "checked" %>>

              &nbsp;&nbsp; Nej
              <input type="radio" name="godkendt" value="false" <% if rs("godkendt") = false then response.Write "checked" %>>
Avatar billede ponyboye Nybegynder
15. august 2004 - 00:12 #37
der er da ikke noget galt med det kode jeg har tilføjet er der?

strSQL="UPDATE opskrifter SET navn='"&Request.QueryString("navn")&"', af='"&Request.QueryString("af")&"', in1='"&Request.QueryString("in1")&"', fremgang='"&Request.QueryString("fremgang")&"', tilbe='"&Request.QueryString("tilbe")&"', tid='"&Request.QueryString("tid")&"', personer='"&Request.QueryString("personer")&"' , hojtid='"&Request.QueryString("hojtid")&"' , vare='"&Request.QueryString("vare")&"' , emme='"&Request.QueryString("emme")&"' , kategori='"&Request.QueryString("kategori")&"' , godkendt='"&Request.QueryString("godkendt")&"' WHERE id= "&Request.Querystring("id")
Avatar billede ponyboye Nybegynder
15. august 2004 - 00:12 #38
Data type mismatch in criteria expression. er fejlen
Avatar billede eagleeye Praktikant
15. august 2004 - 00:13 #39
Det ser fint ud dog et par småting, hvis kolonne hojtid er en tal kolonner skal det være uden ':
hojtid="&Request.QueryString("hojtid")&"

og ved godkendt skal der heller ikke ping omkring når det er en Ja/Nej kolonne:
godkendt="&Request.QueryString("godkendt")&"
Avatar billede eagleeye Praktikant
15. august 2004 - 00:15 #40
Tal/autonummer og Ja/Nej kolonner skal er ikke ' omkring.
Tekst/notat felter skal der ' omkring.
Avatar billede ponyboye Nybegynder
15. august 2004 - 00:30 #41
jeg kan ikke forstå at den vil gerne opdater "kategori" men ikke "emme" "vare" "hojtid"

Men alt andet opdater den.

hojtid="&Request.QueryString("hojtid")&" , vare="&Request.QueryString("vare")&" , emme="&Request.QueryString("emme")&" , kategori="&Request.QueryString("kategori")&"
Avatar billede eagleeye Praktikant
15. august 2004 - 00:43 #42
Det forstår jeg heller ikke helt. Beholder de den samme værdi som de havde?

Er alle drop-downs er på form'en?
Avatar billede ponyboye Nybegynder
15. august 2004 - 00:45 #43
<%Dim Id

OpenDatabase
if Request("knap") = "" then
strSQL="SELECT * FROM opskrifter WHERE id= "&Request.Querystring("id")
    Set rs = Conn.Execute(strSQL)

else
   
    strSQL="UPDATE opskrifter SET navn='"&Request.QueryString("navn")&"', af='"&Request.QueryString("af")&"', in1='"&Request.QueryString("in1")&"', fremgang='"&Request.QueryString("fremgang")&"', tilbe='"&Request.QueryString("tilbe")&"', tid="&Request.QueryString("tid")&", personer="&Request.QueryString("personer")&" , hojtid="&Request.QueryString("hojtid")&" , vare="&Request.QueryString("vare")&" , emme="&Request.QueryString("emme")&" , kategori="&Request.QueryString("kategori")&" , godkendt="&Request.QueryString("godkendt")&" WHERE id= "&Request.Querystring("id")
    Conn.Execute(strSQL)
    response.buffer=true
    response.clear
    response.redirect "oversigt.asp"
    response.end

end if
    %>
   
    <%if not rs.EOF then%>
    <form method="GET" action="<%=request.servervariables("SCRIPT_NAME")%>">
                   
                                  <div align="center">
      <table width="550" cellpadding="2" cellspacing="3" bgcolor="#CCCCCC" class="formadmin">
        <tr>
          <td width="266"><div align="center">Opskrift navn:<br>
              <input name="navn" type="text" id="navn" value="<%=rs("navn")%>" maxlength="100">
            </div></td>
          <td width="265"><div align="center">Skrivet af:<br>
              <input name="af" type="text" id="af" value="<%=rs("af")%>" maxlength="100">
            </div></td>
        </tr>
        <tr>
          <td width="266"><div align="center">Ingedienser:<br>
              <textarea name="in1" id="in1"><%=rs("in1")%></textarea>
            </div></td>
          <td width="265"><div align="center">Fremgansm&aring;de:<br>
              <textarea name="fremgang" id="fremgang"><%=rs("fremgang")%></textarea>
            </div></td>
        </tr>
        <tr>
          <td><div align="center"> </div></td>
          <td><div align="center">Tilbeh&oslash;r:<br>
              <textarea name="tilbe" id="tilbe"><%=rs("tilbe")%></textarea>
            </div></td>
        </tr>
        <tr>
          <td width="266"><div align="center">Tilberedings tid:<br>
              <input name="tid" type="text" id="tid" value="<%=rs("tid")%>" size="10" maxlength="10">
            </div></td>
          <td width="265"><div align="center">Antal personer:<br>
              <input name="personer" type="text" id="personer" value="<%=rs("personer")%>" size="10" maxlength="10">
            </div></td>
        </tr>
        <tr>
          <td width="266"><div align="center"></div></td>
          <td width="265"><div align="center"></div></td>
        </tr>
        <tr>
          <td colspan="2"><div align="center"></div>
            <div align="center">Tilf&oslash;j til kategorier</div></td>
        </tr>
        <tr>
          <td height="22" colspan="2"><div align="center">
            <%
SQL = "select hojtid, hojtidnavn from kategorier order by hojtid"
set katrs = Conn.Execute(SQL)
Response.write "<select name=""hojtid"" id=""hojtid"">"
do while not katrs.EOF
  response.write "<option value=""" & katrs("hojtid") & """"
  if Cstr(rs("hojtid"))=Cstr(katrs("hojtidnavn")) then response.write "selected"
  response.write ">" & katrs("hojtidnavn") & "</option>"
  katrs.Movenext
loop
response.write "</select>"
%>
            &nbsp;&nbsp;
            <%
SQL = "select emme, emmenavn from kategori1 order by emme"
set katrs = Conn.Execute(SQL)
Response.write "<select name=""emme"" id=""emme"">"
do while not katrs.EOF
  response.write "<option value=""" & katrs("emme") & """"
  if Cstr(rs("emme"))=Cstr(katrs("emmenavn")) then response.write "selected"
  response.write ">" & katrs("emmenavn") & "</option>"
  katrs.Movenext
loop
response.write "</select>"
%>
            &nbsp;&nbsp;
            <%
SQL = "select kategoriid, kategori from kategori3 order by kategoriid"
set katrs = Conn.Execute(SQL)
Response.write "<select name=""kategori"" id=""kategori"">"
do while not katrs.EOF
  response.write "<option value=""" & katrs("kategoriid") & """"
  if Cstr(rs("kategori"))=Cstr(katrs("kategoriid")) then response.write "selected"
  response.write ">" & katrs("kategori") & "</option>"
  katrs.Movenext
loop
response.write "</select>"
%>
            &nbsp;&nbsp;
            <%
SQL = "select vare, varenavn from kategori2 order by vare"
set katrs = Conn.Execute(SQL)
Response.write "<select name=""vare"" id=""vare"">"
do while not katrs.EOF
  response.write "<option value=""" & katrs("vare") & """"
  if Cstr(rs("vare"))=Cstr(katrs("varenavn")) then response.write "selected"
  response.write ">" & katrs("varenavn") & "</option>"
  katrs.Movenext
loop
response.write "</select>"
%>
          </div>
            <div align="center"></div></td>
        </tr>
        <tr>
          <td height="22" colspan="2"><div align="center">Godkend opskrift? &nbsp;&nbsp;
              Ja
              <input name="godkendt" type="radio" value="true" <% if rs("godkendt") = true then response.Write "checked" %>>

              &nbsp;&nbsp; Nej
              <input  name="godkendt" type="radio" value="false" <% if rs("godkendt") = false then response.Write "checked" %>>

            </div></td>
        </tr>
        <tr>
          <td height="21" colspan="2">&nbsp;</td>
        </tr>
        <tr>
          <td height="16" colspan="2"><div align="center"><font face="Verdana, Arial, Helvetica, sans-serif"><b>
            </b></font></div>
            <div align="center"></div></td>
        </tr>
        <tr>
          <td width="266"><div align="center"></div></td>
          <td width="265"><div align="center"></div></td>
        </tr>
      </table>
      </div>
  </center>
  <input type="hidden" name="id" value="<%=rs("id")%>">
  <p align="center">
    <input type="submit" value="Ret" name="knap">
    <input type="reset" value="Nulstil" name="B2">
  </p>
  <%end if%>
</form>
Avatar billede eagleeye Praktikant
15. august 2004 - 00:51 #44
Du gemmer ID'et for emme og ikke navnet så prøv at rette:

  if Cstr(rs("emme"))=Cstr(katrs("emmenavn")) then response.write "selected"

til:

  if Cstr(rs("emme"))=Cstr(katrs("emme")) then response.write "selected"


Prøv det samme for hojtid og vare rettes til:
  if Cstr(rs("hojtid"))=Cstr(katrs("hojtid")) then response.write "selected"

  if Cstr(rs("vare"))=Cstr(katrs("vare")) then response.write "selected"
Avatar billede ponyboye Nybegynder
15. august 2004 - 01:20 #45
kanon.... det hele er meget meget fint nu. Endnu engang tak for din hjælp
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
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 9 25/06/202622:20 29/06/202621:55
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
ASP classic Af bsn i ASP 8 28/10/202423:11 30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP 5 23/05/202409:56 24/05/202400:02
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 12:15 morf bilede Af knuldefar1942 i Fri debat
07/0822:13 Gemme største værdi Af Lemming@privat.dk i Excel
07/0821:39 Kvindelig journalist ved DR - hvad er hendes navn. Af ErikHg i Fri debat
06/0817:10 Windows 10 Home 22H2 produktnøgle Af Uvanga i Windows
06/0817:10 Windows 10 Home 22H2 produktnøgle Af Uvanga i Windows
White papers
Flere white papers »