hämta data till dropdown ruta

8 svar · 474 visningar · startad av Vinnaren 14 apr. 2006

VinnarenMedlem sedan sep. 2005833 inlägg

Frågan14 apr. 2006 10:59#1

Hej.

Undrar hur man gör för att hämta info från en tabell till EN dropdown ruta. Det är länkar som när man trycker på visa så kommer man till den sidan.

har börjat lite själv men får upp flera dropdown rutor samt så funkar det inte att trycka på knappen visa.


  <%...%>
  <%
Set Conn = Server.CreateObject("ADODB.Connection")
Set news = Server.CreateObject("ADODB.Recordset")

Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../db/databas.mdb")
SQL = "SELECT TOP 15 * From klubbar Order By klubb ASC"
news.Open SQL, Conn, 1, 2

If news.EOF Then
  Response.Write "Tomt"
Else

Do While Not news.EOF
%>

    <form method="POST">
        <p><select size="1" name="D1">
        
        
    <a href="fakta.asp?visa=<%=news("id")%>&titel=<%=news("klubb")%>');">    
<option><%=news("klubb")%></option>
        
        
        </select><input type="button" value="Visa" name="B1"></p>
    </form>

      

<%...%>
<%
news.MoveNext
Loop
news.Close
Conn.Close
Set news = Nothing
Set Conn = Nothing
End If
%>

Hur får jag det att fungera?? :S

Tacksam för all hjälp jag kan få

@ndersMedlem sedan juni 200032 969 inlägg

14 apr. 2006 11:45#2

Flytta ut följande:

    <form method="POST">
        <p><select size="1" name="D1">

, så de raderna inte ligger i loopen, utan före.
2) Flytta också ut följande:

        </select><input type="button" value="Visa" name="B1"></p>
    </form>

, så det inte ligger i loopen, utan efter.

Till sist; du skriver att det inte funkar att klicka på visa-knappen. Vad hade du tänkt skulle hända? En "button" utför ingenting, om man inte lägger på ett onclick-event. Eller är det en input av typen submit du vill ha?

VinnarenMedlem sedan sep. 2005833 inlägg

14 apr. 2006 12:48#3

När man trycker på knappen "visa" så ska man komma till en ny sida.
Har just nu länkarna på en sida men vill nu istället ha dem i en dropdown ruta.

länkarna på den sidan presenteras:

 <td width="360" class="rubrik1" height="20"><a href="fakta.asp?visa=<%=news("id")%>&titel=<%=news("klubb")%>');">
	<font face="Verdana" size="2"><%=news("klubb")%></font></a></td>

:OO

@ndersMedlem sedan juni 200032 969 inlägg

15 apr. 2006 06:31#4

I din loop:

<option value="fakta.asp?visa=<%=server.urlencode(news("id"))%>&titel=<%=server.urlencode(news("klubb"))%>"><%=news("klubb")%></option>

Utanför:

<input type="button" onclick="location.href=document.getElementById('D1').value;" value="Visa">

Lägg också till id="D1" i din <select>.

VinnarenMedlem sedan sep. 2005833 inlägg

15 apr. 2006 07:46#5

ok, tack. men får att inte att fungera redigt. får följande felmeddelande:

Feltyp:
Kompileringsfel i Microsoft VBScript (0x800A0400)
Programsats förväntas.
/test/meny.asp, line 14
<form method="POST">

hela koden:


  <%
Set Conn = Server.CreateObject("ADODB.Connection")
Set news = Server.CreateObject("ADODB.Recordset")

Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../db/databas.mdb")
SQL = "SELECT TOP 15 * From klubbar Order By klubb ASC"
news.Open SQL, Conn, 1, 2

If news.EOF Then
  Response.Write "Tomt"
Else

<form method="POST">
		<p><select size="1" name="D1">
		
Do While Not news.EOF
%>

	
		
		
<option value="fakta.asp?visa=<%=server.urlencode(news("id"))%>&titel=<%=server.urlencode(news("klubb"))%>"><%=news("klubb")%></option>		
		
		

      
<%
news.MoveNext
Loop
news.Close
Conn.Close
Set news = Nothing
Set Conn = Nothing
End If
%>

</select><input type="button" onclick="location.href=document.getElementById('D1').value;" value="Visa"></form>

vad kan det vara för fel??

@ndersMedlem sedan juni 200032 969 inlägg

15 apr. 2006 08:40#6

Du kan inte lägga html-koden i asp-koden, utan du måste bryta med contextswitchar.

<%
asp-kod här
%>
html-kod här
<%
asp-kod här
%>

VinnarenMedlem sedan sep. 2005833 inlägg

15 apr. 2006 12:41#7

okej. hur ska det vara då??

såhär:


  <%
Set Conn = Server.CreateObject("ADODB.Connection")
Set news = Server.CreateObject("ADODB.Recordset")

Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../db/databas.mdb")
SQL = "SELECT TOP 15 * From klubbar Order By klubb ASC"
news.Open SQL, Conn, 1, 2

If news.EOF Then
  Response.Write "Tomt"
Else

<form method="POST">
		<p><select size="1" name="D1">
Do While Not news.EOF
%>
	
<html>
<body>

		

	
		
<option value="fakta.asp?visa=<%=server.urlencode(news("id"))%>&titel=<%=server.urlencode(news("klubb"))%>"><%=news("klubb")%></option>		
		
		

      
<%
news.MoveNext
Loop
news.Close
Conn.Close
Set news = Nothing
Set Conn = Nothing
End If
%>

</select><input type="button" onclick="location.href=document.getElementById('D1').value;" value="Visa"></form>

</body>
</html>

?? :q

@ndersMedlem sedan juni 200032 969 inlägg

16 apr. 2006 05:48#8

Exempel:

If news.EOF Then
  Response.Write "Tomt"
Else
%>
<form method="POST">
		<p><select size="1" name="D1">
Do While Not news.EOF
%>
<option value="fakta.asp?visa=<%=server.urlencode(news("id"))%>&titel=<%=server.urlencode(news("klubb"))%>"><%=news("klubb")%></option>	
<%
news.movenext
loop
%>
</select>
<input type....>
</form>
<%
end if
%>

Alltså. ASP-koden skall vara mellan <% och %>, men där kan du inte skriva HTML-kod.

VinnarenMedlem sedan sep. 2005833 inlägg

16 apr. 2006 08:21#9

ok, tack, det fungerar nu :D