radio-knapper/admin.....

if request("radioknap") <> "" then
Set rs = Connect.Execute("SELECT * FROM en anden tabel")

Well, ja.. -Du kan skriv følgende:

If Request.Form("radiobottum") = "on" Then
  SQL = "SELECT * FROM tabel WHERE id = 1
ElseIf Request.Form("radiobottum") = "" Then
  SQL = "SELECT * FROM tabel WHERE id = 2
End If

//>Rune

Ja ok, det forstår jeg godt, men når jeg så vælger en radio-knap i mit admin, så skal det jo være den der er valgt på selve websitet, og så vises derefter. Hvis jeg så senere vil have et andet udtræk på websitet, så går jeg jo ind i mit admin og vælger en anden radio-knap, og så er det den der er gældende. Det kan jeg ikke rigtig se hvordan jeg skal gøre udfra det I har skrevet....?

DTM

Well, kald dine radiobottums for 1, 2, 3, 4 osv. altså det samme som dine ID'er i din database og så vælg det der ud fra..!

ex.:


While NOT rs.EOF
i=i+1
  If Request.Form("rad" & i) = "on" Then
      SQL = "SELECT * FROM tabel WHERE id = i
  End If
rs.MoveNext
Wend

//>Rune

ja, det er jeg med på.....

Det sætter jeg ind i mit administration........men hvordan for jeg det så til at ændre den sql-sætning som er på den asp-fil, hvor udtrækket er på, på selve websitet???

DTM

Det gør du jo her...!:

SQL = "SELECT * FROM tabel WHERE id = i

i er jo en variabel..!

//>Rune

Hmmmm....Jeg kan godt følge dig i det du har skrevet, men jeg har sgu lidt problemer med at se hvordan jeg skal gøre det i praksis....

DTM

Well, det er jo derfor programmering ikke er så let.. ;-)

Tænk lidt over det, og forsøg så igen...- det er sådan jeg plejer at gøre.. ;-)

hmmm i min admin-fil har jeg nu 6 radioknapper, som har fået hver sit nr. 1, 2, og 3 o.s.v.

Ovre i min asp-fil på websitet er sql-sætingen så, og det skal jo så være den, der passer til den radio-knap der er valgt i admin, men hvordan referer jeg til den enkelte radionap??....det er jo imellem 2 filer??

DTM

nejnej.. Du skal have din SQL sætning på din adminfil...!

Så du skriver bare:
<%
If Request.QueryString("gem") = "" Then
%>
Her skal alt det med dine radiobottums stå...! - oxo din form og din form skal se sådan herud:

<form action="<%= Request.ServerVariables("SCRIPT_NAME") %>?gem=nu" method="post"
her skal dine radiobottums være..!
</form>
<%
End If

If Request.QueryString("gem") = "nu" Then
  SQL = "Update tabel osv...!"
End If
%>

//>Rune

Nu er jeg da fuldstændig forvirret.... :-)

Hvis sql-sætingen skal på min admin-fil, hvordan for jeg så den asp-fil med selvudtrækket til at være den samme???

Jeg er ved at tro det er mig der er dum, eller også misforstår vi hinanden.... :-)

DTM

Er det for meget hvis jeg spørger om du kan vise mig, hvad der skal stå i asp-filen, og hvad der skal stå i min admin-fil??

DTM

*G* Jeg tror det er dig der misforstår mig...!

Hør her...:

1) I din Admin fil, indsætter du det jeg skrev lige før...! - altså du får den til at reagere præcis på sig selv...
2) I din udtræks fil, hiver du bare på normal vis dataerne ud fra din database... -nemmere kan det ikke forklares ;-)

//>Rune

Det ville ikek være rigtig ifølge ekspertens regler at jeg skulle lave det for dig.. -da der er kommet det nye sharksforum... - så du er nok nødtil at føre det der over til hvis du vil ha' det lavet...!

Her kan jeg kun hjælpe dig med sourcecode...!

//>Rune

Mere vil jeg ikke arbejde for det her... men nu har jeg ihvertfald ledt dig godt på vej.. håber du er tilfreds.. ;-)

<html>
    <head>
        <title></title>
    </head>
<body>

<%
    If Request.QueryString("gem") = "" Then
%>
<form action="<%= Request.ServerVariables("SCRIPT_NAME")%>?gem=nu" method="post">
    <input type="radiobottom" name="1">
    <input type="radiobuttom" name="2">
</form>
<%
    End If
%>

<%
    If Request.QueryString("gem") = "nu" Then
        Set rs = Server.CreateObject("ADODB.Recordset")
        Set Conn = Server.CreateObject("ADODB.Connection")
            Conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db.mdb")
            SQL = "SELECT * FROM tabel"
           
            rs.Open SQL, Conn, 1, 3
            If Request.Form("1") <> "" Then
                rs("kolonne1")  = Request.Form("1")
            End If
            If Request.Form("2") <> "" Then
                rs("kolonne2")  = Request.Form("2")
            End If
    End If
%>
</body>
</html>


//>Rune

Thx 4 Poinz

//>Rune