---
title: "Uppdatera vid SELECT"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/127925-uppdatera-vid-select"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "CatZ"
published: "2005-05-09T22:33:55.000Z"
updated: "2005-05-10T16:30:07.000Z"
replies: 7
views: 263
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/127925-uppdatera-vid-select"
---

# Uppdatera vid SELECT

## #1 — CatZ, 2005-05-09T22:33Z

Jag har två dropdown menyer efter varandra och undrar hur jag ändrar värdena i den andra när jag väljer ett i den första?  Båda hämtar ju sina värden från databasen och två olika tabeller, jag är oerhört trött så det skulle inte förvåna mig om ni inte fattar ett smack! ;)

```
<select name="formAuthor">
<%
	SQL = "SELECT AuthorName, AuthorID FROM tblAuthor ORDER BY AuthorName"
	set objRS = objConn.Execute(SQL)
	
	i = 1
	Do While NOT objRS.EOF
		if i = 3 then
			i = 1
		end if
	strName		= objRS("AuthorName")
	intAuthorID	= objRS("AuthorID")
	
	Response.Write"<option value='"& intAuthorID &" class='tr" & i & "'>" &  strName & "</option>"
	
	i = i + 1
	objRS.MoveNext
	Loop
%>
</select>
<select name="formSeries">
<%
	SQL = "SELECT SeriesID, SeriesTitle " _
		& "FROM tblSeries " _
		& "WHERE tblAuthorID = [b]VÄRDET FRÅN DEN FÖRSTA SELECTEN[/b]"_
		& "ORDER BY SeriesTitle"
	set objRS = objConn.Execute(SQL)
	
	i = 1
	Do While NOT objRS.EOF
		if i = 3 then
			i = 1
		end if
	strSeries	= objRS("SeriesTitle")
	strSeriesID	= objRS("SeriesID")
	
	Response.Write"<option value="& SeriesID &" class=tr" & i & ">" &  SeriesTitle & "</option>"
	
	i = i + 1
	objRS.MoveNext
	Loop
%>
</select>
```

Möjligt eller omöjligt? Javascript eller ASP? ;)

Permalänk: https://www.webforum.nu/p/127925

## #2 — doggelito, 2005-05-10T06:25Z

no problemos.
första selecten:

```
<select name="formAuthor" onChange="window.location.href='<%= Request.ServerVariables("SCRIPT_NAME") %>?AuthorID='+this[this.selectedIndex].value;">
```

i den andra:

```
AuthorID = trim(Request.Querystring("AuthorID"))
If len(AuthorID) >0 Then

     SQL = "SELECT SeriesID, SeriesTitle " _
     & "FROM tblSeries " _
     & "WHERE tblAuthorID = " & AuthorID & _
     & "ORDER BY SeriesTitle"
     set objRS = objConn.Execute(SQL)

...
End If
```

Permalänk: https://www.webforum.nu/p/1607600

## #3 — CatZ, 2005-05-10T08:16Z

Då ser det ut såhär!

```
<select name="formAuthor" onChange="window.location.href='<%= Request.ServerVariables("SCRIPT_NAME") %>?intAuthorID='+this[this.selectedIndex].value;">
<%
	SQL = "SELECT AuthorName, AuthorID FROM tblAuthor ORDER BY AuthorName"
	set objRS = objConn.Execute(SQL)
	
	i = 1
	Do While NOT objRS.EOF
		if i = 3 then
			i = 1
		end if
	strName		= objRS("AuthorName")
	intAuthorID	= objRS("AuthorID")
	
	Response.Write"<option value="& intAuthorID &" class=tr" & i & ">" &  strName & "</option>"
	
	i = i + 1
	objRS.MoveNext
	Loop
%>
</select>
<select name="formSeries">
<%
intAuthorID = trim(Request.Querystring("intAuthorID"))
If len(intAuthorID) >0 Then

     SQL = "SELECT SeriesID, SeriesTitle, AuthorID " _
     & "FROM tblSeries " _
     & "WHERE intAuthorID = " & intAuthorID & " "_
     & "ORDER BY SeriesTitle"
     set objRS = objConn.Execute(SQL)
End If	 
	i = 1
	Do While NOT objRS.EOF
		if i = 3 then
			i = 1
		end if
	strSeries	= objRS("SeriesTitle")
	intSeriesID	= objRS("SeriesID")
	
	Response.Write"<option value="& intSeriesID &" class=tr" & i & ">" &  strSeriesTitle & "</option>"
	
	i = i + 1
	objRS2.MoveNext
	Loop

%>
</select>
```

Får nu upp följande felmeddelande: 

> **källkod skrev:**
>
> Microsoft JET Database Engine Error '80040e10'
> 
> Det har inte angetts något v&auml;rde f&ouml;r en eller flera n&ouml;dv&auml;ndiga parametrar.

Dessutom "*stannar*" ju inte värdet i den första ;)

Permalänk: https://www.webforum.nu/p/1607633

## #4 — doggelito, 2005-05-10T08:39Z

nja, du missförstod mig lite med ifsatsen, jag kör in hela stycket vetja (med vissa tillägg): :)

```

<%
	Dim AuthorID
	AuthorID = trim(Request.Querystring("AuthorID"))
	If len(AuthorID) >0 Then AuthorID = cint(AuthorID)
%>

<select name="formAuthor" onChange="window.location.href='<%= Request.ServerVariables("SCRIPT_NAME") %>?AuthorID='+this[this.selectedIndex].value;">
<%
	SQL = "SELECT AuthorName, AuthorID FROM tblAuthor ORDER BY AuthorName"
	set objRS = objConn.Execute(SQL)
	
	i = 1
	Do While NOT objRS.EOF
		if i = 3 then
			i = 1
		end if
	strName		= objRS("AuthorName")
	intAuthorID	= objRS("AuthorID")
	selected = ""
	if intAuthorID = AuthorID Then selected = "selected"
	
	Response.Write"<option value="& intAuthorID &" class=tr" & i & "  " & selected & ">" &  strName & "</option>"
	
	i = i + 1
	objRS.MoveNext
	Loop
%>
</select>
<select name="formSeries">
<%
If len(AuthorID) >0 Then

     SQL = "SELECT SeriesID, SeriesTitle, AuthorID " _
     & "FROM tblSeries " _
     & "WHERE intAuthorID = " & AuthorID & " "_
     & "ORDER BY SeriesTitle"
     set objRS = objConn.Execute(SQL)
 
	i = 1
	Do While NOT objRS.EOF
		if i = 3 then
			i = 1
		end if
	strSeries	= objRS("SeriesTitle")
	intSeriesID	= objRS("SeriesID")
	
	Response.Write"<option value="& intSeriesID &" class=tr" & i & ">" &  strSeriesTitle & "</option>"
	
	i = i + 1
	objRS2.MoveNext
	Loop
Else
	Response.Write("<option value="""">Välj först Author!!!</option>" & vbCrlf)
End If
%>
</select>
```

Permalänk: https://www.webforum.nu/p/1607726

## #5 — CatZ, 2005-05-10T08:42Z

Jag ska kika på det omgående doggelito ;) Du vet jag har inte kodat nåt alls på flera år :) Är väldigt rostig

Permalänk: https://www.webforum.nu/p/1607727

## #6 — CatZ, 2005-05-10T08:49Z

Efter lite trixande fick jag ditt förslag att fungera klockrent doggelito!! Tack så mycket för hjälpen ;) 

Nu återstår bara att analysera och förstå varför koden gör som den gör :bire

Permalänk: https://www.webforum.nu/p/1607729

## #7 — doggelito, 2005-05-10T08:55Z

Va bra att det funkar (inte för att jag trodde nått annat men ;) )! :)

Fråga igen om du inte kommer på vad som gör vad i koden!

Permalänk: https://www.webforum.nu/p/1607730

## #8 — CatZ, 2005-05-10T16:30Z

Jag kom på ett härligt sätt att använda det som meny jisses vad kul man kan ha med lite ny kod :D

Permalänk: https://www.webforum.nu/p/1607887

---

Tråden på webben: https://www.webforum.nu/amne/asp/127925-uppdatera-vid-select