radioknapper...

Må jeg se lidt kode???

eller hvad...

jamen de koder jeg har, er ikke noget jeg kan få til at virke....tror ikke det er nogen hjælp... :-(

jo det gør.

Vi har jo ingen mulighed for at hjælpe dig med en fejl når vi ikke aner hvilken fejl det er ????

- det er bare svært at se, sammenhængen og svart at lave noget kode der kunne virke, uden at se hvad du har i forvejen :-)

ok, jeg kigger lige på det.... :-)

du kan lave en radio sådan her hvor value = navnet på den kolonne som skal udskrives:

<input type="radio" name="feltiDB" value="felt1" SELECTED>
<input type="radio" name="feltiDB" value="felt2">
<input type="radio" name="feltiDB" value="felt3">
<input type="radio" name="feltiDB" value="felt4">


også på den anden sidemmed SQL'en

strSQL="SELECT " & request.form("feltiDB") & " FROM tabel"
ser rs = connection.executte(strSQL)

response.write "Data fra kolonne " & request.form("feltiDB") & "<br>"
do while not rs.EOF
  response.witre rs(0) & "<br>"
  rs.movenext
loop

Dette er min kode:

<%
    If Request.QueryString("gem") = "" Then
%>
<form action="<%= Request.ServerVariables("SCRIPT_NAME")%>?gem=nu" method="post">

<table cellpadding="10" cellspacing="0" width="300">
<tr>
<td colspan="3" height="20"><b>Trin 2</b></td>
</tr>

<tr>
<td height="75"><img src="image/d1.jpg"></td>
<td><img src="image/d2.jpg"></td>
<td><img src="image/d3.jpg"></td>
</tr>

<tr>
<td><input type="radio" name="1" value="radiobutton"> Design 01</td>
<td><input type="radio" name="2" value="radiobutton"> Design 02</td>
<td><input type="radio" name="3" value="radiobutton"> Design 03</td>
</tr>

<tr>
<td colspan="3" height="20"></td>
</tr>

<tr>
<td height="75"><img src="image/d4.jpg"></td>
<td><img src="image/d5.jpg"></td>
<td><img src="image/d6.jpg"></td>
</tr>

<tr>
<td><input type="radio" name="4" value="radiobutton"> Design 04</td>
<td><input type="radio" name="5" value="radiobutton"> Design 05</td>
<td><input type="radio" name="6" value="radiobutton"> Design 06</td>
</tr>

</table>
</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("mdb/db.mdb")
            SQL = "SELECT * FROM style"
           
            rs.Open SQL, Conn, 1, 2, 3, 4, 5, 6
            If Request.Form("1") <> "" Then
                rs("design_01")  = Request.Form("1")
            End If
            If Request.Form("2") <> "" Then
                rs("design_02")  = Request.Form("2")
            End If
            If Request.Form("3") <> "" Then
                rs("design_03")  = Request.Form("3")
            End If
            If Request.Form("4") <> "" Then
                rs("design_04")  = Request.Form("4")
            End If
            If Request.Form("5") <> "" Then
                rs("design_05")  = Request.Form("5")
            End If
            If Request.Form("6") <> "" Then
                rs("design_06")  = Request.Form("6")
            End If
    End If
%>


Det virker ihverfald ikke.... :-(

hmm det skal være resposne.write ikke witre i loopet...:
  response.write rs(0) & "<br>"

Håber du kan se ideen i det.

--Eagleeye
Det hedder ikke:
ser rs = connection.executte(strSQL)

Men:
ser rs = connection.execute(strSQL)

radio buttens skal havde samme name.. så det valuen du skalændre ned gennem koden. Valuen ville jeg sætte til enten kolonne navnet eller en simpel numemr række 1,2,3,4,5 osv og så i asp kode lavet tallet (1,2,3) om til et tabel navn.

Hvis du kun skal udskrive den kolonne som er valgt via radiobutton + nogle andre vil jeg gære som jeg skrev før:

strSQL="SELECT " & request.form("feltiDB") & ", ANDET_FELT FROM tabel"
ser rs = connection.executte(strSQL)

response.write "Data fra kolonne " & request.form("feltiDB") & " + ANDET_FELT:<br>"
do while not rs.EOF
  response.witre rs(0) & "  :  " & rs("ANDET_FELT") & "<br>"
  rs.movenext
loop
><input type="radio" name="radiobutton" value="3">

set rs = connection.execute(strSQL)

lenn>> Ja der er et par små stave fejl i det :) Det var også mere et eks på en  metoden end copy-paste kode det første jeg viste.  Men jeg håber det går.

lenn>> hehe så sopy-pastede jeg mig selv og lavede samme fejl med to t'er i execute :)

- Det var bare hvis nu at dtm ville bruge copy-paste, så ville det jo være irriterende at det ikke virkede :-)

damn.....jeg er da forvirret :-)....

DTM

øhhh hvad skal der står i <form action="???" method="???" name="???"></form>  ? ? ?
DTM

<form action="sammeside.asp" method="POST" name="Form"></form>

<form action="sammeside.asp" method="POST" name="Form"></form>

okay, men hvordan for den "forbindelse med sql-sætningen på min website??... altså der hvor det skal udskrives??

DTM

strSQL = "Select * From style WHERE id = " & Request.Form("id")
ser rs = connection.execute(strSQL)

.. du skal lige ændre id og Request.Form("id") så de passer til din form...

Her er siden, hvor det bliver vist:

<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body bgcolor="#FFFFFF" text="#000000">
<%
DIM rs

' ADODB connection objektet
Set Conn = Server.CreateObject("ADODB.Connection")
' Husk at angive den rigtige sti til din database
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db.mdb")
' Åben databaseforbindelsen
Conn.Open DSN

strSQL="SELECT " & request.form("feltiDB") & " FROM style "
set rs = conn.execute(strSQL)
%>

<%
response.write "Data fra kolonne " & request.form("feltiDB") & "<br>"
do while not rs.EOF
  response.witre rs(0) & "<br>"
  rs.movenext
loop
%>

</body>
</html>

------------------------------------------
Her er siden med admin på:

<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body bgcolor="#FFFFFF" text="#000000">

<form action="admin.asp" method="POST" name="Form">


<table cellpadding="10" cellspacing="0" width="300">
<tr>
<td colspan="3" height="20"><b>Trin 2</b></td>
</tr>

<tr>
<td height="75"><img src="image/d1.jpg"></td>
<td><img src="image/d2.jpg"></td>
<td><img src="image/d3.jpg"></td>
</tr>

<tr>
<td><input type="radio" name="feltiDB" value="design_01" SELECTED> Design 01</td>
<td><input type="radio" name="feltiDB" value="design_02"> Design 02</td>
<td><input type="radio" name="feltiDB" value="design_03"> Design 03</td>
</tr>

<tr>
<td colspan="3" height="20"></td>
</tr>

<tr>
<td height="75"><img src="image/d4.jpg"></td>
<td><img src="image/d5.jpg"></td>
<td><img src="image/d6.jpg"></td>
</tr>

<tr>
<td><input type="radio" name="feltiDB" value="design_04"> Design 04</td>
<td><input type="radio" name="feltiDB" value="design_05"> Design 05</td>
<td><input type="radio" name="feltiDB" value="design_06"> Design 06</td>
</tr>



</table>

</form>

</body>
</html>


Hvad sker der??

DTM

selvfølgelig witre = write *lol*

DTM

din action skal linke/henvise til siden som udskriver kolonnen fra databasen, altså den første fil du viste i sidste indlæg:

<form action="sideSomUdskriverFraDb.asp" method="POST" name="Form">

der sker ingenting alligevel....

får du en tom side eller ??  såvidt jeg kan se mangler du en submit knap..

<td><input type="radio" name="feltiDB" value="design_06"> Design 06</td>
</tr>



</table>
<input type="submit" name="vis" value="vis">

</form>

eller måske set submit ind i tabellen:

får du en tom side eller ??  såvidt jeg kan se mangler du en submit knap..

<td><input type="radio" name="feltiDB" value="design_06"> Design 06</td>
</tr>


<tr><td><input type="submit" name="vis" value="vis">
</td></tr>
</table>

</form>


Når du trykker på Vis kanppen (submit) så skulle browseren gerne åben den fil du har angivet i action="filnanv" i <FORM> tagen.

ja, den har jeg også sat på nu *lol*....

Så virker det til dels.....den uskriver bare navnet på kolonnen?? hvordan kan det være? og ikke resten??....ja den skulle jo egentlig ikke udskrive navnet på kolonnen....

DTM

det kommer af denne:  response.write "Data fra kolonne " & request.form

Her skulle den udskrive data fra kolonne, kan det tænkes der ikke er data i databasen prøv evt dette:

if NOT rs.EOF then
  do while not rs.EOF
    response.write rs(0) & "<br>"
    rs.movenext
  loop
else
  Resposne.write "Ingen Data"
end if

if NOT rs.EOF then
  do while not rs.EOF
    response.write rs(0) & "<br>"
    rs.movenext
  loop
else
  response.write "Ingen Data"
end if

der sker intet.....men hvad er "0" i response.write rs (0) ???

DTM

nu virker det.... :-)

0 skulle angive første kolonne i recordsetet.. du kan også prøve:

Sker der intet eller skriver den noget???



<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body bgcolor="#FFFFFF" text="#000000">
<%
DIM rs

' ADODB connection objektet
Set Conn = Server.CreateObject("ADODB.Connection")
' Husk at angive den rigtige sti til din database
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db.mdb")
' Åben databaseforbindelsen
Conn.Open DSN

strSQL="SELECT " & request.form("feltiDB") & " FROM style "
set rs = conn.execute(strSQL)
%>

<%
response.write "Data fra kolonne " & request.form("feltiDB") & "<br>"
if NOT rs.EOF then
  do while not rs.EOF
    response.witre rs("" & request.form("feltiDB")) & "<br>"
    rs.movenext
  loop
else
  Response.write "Ingen Data"
end if

conn.close
%>

</body>
</html>

ikke igen danm: witre ... copy-paste fejl... undskyld det skal være write:

response.write rs("" & request.form("feltiDB")) & "<br>"

lige et spørgsmål mere......

Kan jeg ikke få det til at udskrive kun det er der er i kolonnen, og ikke overskriften på kolonnen....?

DTM

ja du fjerne bare denne linie:

response.write "Data fra kolonne " & request.form("feltiDB") & "<br>"

Du kan se det her:

http://www.dlaursen.dk/design/admin.asp

Det er til at vælge design på websitet, problemet er at den ikke husker det til næste gang man går ind på siden. Som det er nu skal man starte ud fra admin.asp ??.....kan det ikke laves??

DTM

ja.. Har du en kolonne i databasen hvor du gemmer oplysninger, omkring oppsætning??

Du kan gære noget i stil med dette for at gemme det:

strSQL="INSER INTO tabel (designConfig) VALUES ('&request.form("feltiDB")&"');"
conn.execute(strSQL)

kan du forklare lidt mere?...

Du vil have at jeg skal egentlig skal lave en kolonne mere, som bliver udskret på websitet, men alt efter hvilken radio, man har valgt, så gemmer den det i den kolonne??

på den side hvor man vælger skal du så lave en en SQL som hendter opsætningen for designet...

strSQL = "SELECT designConfig FROM tabel;"
set rs = conn.execute(strSQL)

og for hver radio kanp skal du såtjekke om den er valgt som default opsætning...


<input type="radio" name="feltiDB" value="design_06"
<% if rs("designConfig") = "design_06" then
  response.write " selected"
end if %>
>        <--- den sidste > er den som hre til <input...

Er der mange brugere eller kun EN bruger?? for så skal du nok havde et bruger navn flettet ind i det hele.

jeg kan til dels følge dig, men er ikke helt med... :-)

DTM

Bruger?? hvad nu, hvad tænker du på?

Nu har jeg ændret alle radioknapper......Lavet en kolonne i db'en som hedder designConfig ... hvad så?

DTM

Nu ser min admin.asp sådan ud:

<%
DIM rs

' ADODB connection objektet
Set Conn = Server.CreateObject("ADODB.Connection")
' Husk at angive den rigtige sti til din database
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db.mdb")
' Åben databaseforbindelsen
Conn.Open DSN

strSQL = "SELECT designConfig FROM style;"
set rs = conn.execute(strSQL)
%>

<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body bgcolor="#FFFFFF" text="#000000">

<form action="default.asp" method="POST" name="Form">


<table cellpadding="10" cellspacing="0" width="300">
<tr>
<td colspan="3" height="20"><b>Trin 2</b></td>
</tr>

<tr>
<td height="75"><img src="image/d1.jpg"></td>
<td><img src="image/d2.jpg"></td>
<td><img src="image/d3.jpg"></td>
</tr>

<tr>
<td><input type="radio" name="feltiDB" value="design_01"
<% if rs("designConfig") = "design_01" then
  response.write " selected"
end if %>
> Design 01</td>
<td><input type="radio" name="feltiDB" value="design_02"
<% if rs("designConfig") = "design_02" then
  response.write " selected"
end if %>
> Design 02</td>
<td><input type="radio" name="feltiDB" value="design_03"
<% if rs("designConfig") = "design_03" then
  response.write " selected"
end if %>
> Design 03</td>
</tr>

<tr>
<td colspan="3" height="20"></td>
</tr>

<tr>
<td height="75"><img src="image/d4.jpg"></td>
<td><img src="image/d5.jpg"></td>
<td><img src="image/d6.jpg"></td>
</tr>

<tr>
<td><input type="radio" name="feltiDB" value="design_04"
<% if rs("designConfig") = "design_04" then
  response.write " selected"
end if %>
> Design 04</td>
<td><input type="radio" name="feltiDB" value="design_05"
<% if rs("designConfig") = "design_05" then
  response.write " selected"
end if %>
> Design 05</td>
<td><input type="radio" name="feltiDB" value="design_06"
<% if rs("designConfig") = "design_06" then
  response.write " selected"
end if %>
> Design 06</td>
</tr>

<tr>
<td colspan="3" height="20"><input type="submit" name="enter" value="send"></td>
</tr>


</table>

</form>

</body>
</html>

Er der kun en som kan vælge desig? eller er der mange foskellige side/brugere som kan vælge design. Du skal nok lave en ny tabel i databasen som indeholder kolonnen configDesign...

tabel: designSetup
kolonne: ConfigDesign

denne tabel vil så kun indeholde En record med design configrationen.

Indtil videre er det jo kun en test, som senere vil der komme en adgangs kode....

Jeg laver en ny tabel.....og så skal udtrækket på websitet være fra den kolonne i den nye tabel ikke??

DTM

Du er nok nød til at lave en kolonne mere:

tabel: designSetup
kolonne: ConfigDesign : tekst
kolonne: username : tekst

lig dette ind som default; design_03 : admin

i den kode som viser kolonne somer valgt:

<%
DIM rs

' ADODB connection objektet
Set Conn = Server.CreateObject("ADODB.Connection")
' Husk at angive den rigtige sti til din database
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db.mdb")
' Åben databaseforbindelsen
Conn.Open DSN

strSQL="SELECT " & request.form("feltiDB") & " FROM style "
set rs = conn.execute(strSQL)
%>

<%
if NOT rs.EOF then
  do while not rs.EOF
    response.witre rs("" & request.form("feltiDB")) & "<br>"
    rs.movenext
  loop
else
  Response.write "Ingen Data"
end if

strSQL="UPDATE designSeteu SET designConfig='"& request.form("feltiDB") & "' WHERE username='admin'"
conn.execute(strSQL)

conn.close
%>

Virker det eller ???