Hej

Jag undrar hur man skriver när man ska hämta data från en databas till en nedrullningsbar listruta??

min databaskopling är:

Set objConn = Server.CreateObject("ADODB.Connection")
Set objRS = Server.CreateObject("ADODB.recordset")
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("databas.mdb")

samt HTML koden till rutan:
<code>

onChange="this.form.namn.value=this[this.selectedIndex].value;" style="width: 150px;">
</select></font><font face="Verdana"><b><font size="2"><br>
</font>
</b><input type="text" name="Skribent" size="45"><b><font size="2"><br>
Email:</font></b><font size="2"><br>
</font>
<input type="text" name="email" size="45">
</code>

Tabellen som det ska hämtas ifrån heter "red" och kolumnen "namn".
Kan man även göra så när man trycker på ett namn så kommer dennes Email upp i rutan Email??

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

<select name="namn" onChange="document.forms[0].email.value=this[this.selectedIndex].value;" style="width: 150px;">
<%set RS=objConn.execute("SELECT epost, namn FROM red order by namn")
if not RS.eof then
Do until RS.EOF
response.write "<option value="""&RS("epost")&""">"&RS("namn") & "<option>"
RS.Movenext
Loop
RS.close
else
rs.close
end if
%>
</select>

<input type="text" name="email" size="45">				

Imo har du för mycket fonttaggar. Använd CSS istället.

ok, tack, men får ett felmeddelande:

Microsoft JET Database Engine (0x80040E10)
Det har inte angetts något värde för en eller flera nödvändiga parametrar.

på rad: <%set RS=objConn.execute("SELECT epost, namn FROM redaktionen order by namn")

vad kan det vara för fel? :S

kan det vara i konflikt med något annat i koden? Jag hade tänkt att anv. denna till att kunna välja skribentens namn som har skrivit nyheten. Så nyheten sparas i en annan tabell i samma databas som man hämtar skribentens namn och epost ifrån ??

kan visa lite mer kod som jag har
den som ska hämta skribenternas namn och epost:

<select name="namn" onChange="document.forms[0].email.value=this[this.selectedIndex].value;" style="width: 150px;">


<%
Set objRS = objConn.Execute("SELECT epost, namn FROM red order by namn")
if not RS.eof then
Do until RS.EOF
response.write "<option value="""&RS("epost")&""">"&RS("namn") & "<option>"
RS.Movenext
Loop
RS.close
else
rs.close
end if
%>
</select>

<input type="text" name="email" size="45">   

koden som ska spara nyheten (vet att den går att förminska en del)

<%
' Stänger och förstör alla objekt
objRS.Close : Set objRS = nothing
objConn.Close : Set objConn = nothing

' Sparar nyheten
ElseIf Request.QueryString("visa") = "nyhetspara" AND Session("Admin") = "true" Then

	strDatum		= now()
	strRubrik		= SafeSQL(Request.Form("rubrik"))
	strNyhet		= SafeSQL(Request.Form("nyhet"))
	strSkribent		= SafeSQL(Request.Form("Skribent"))
	strlank 		= SafeSQL(Request.Form("lank"))
	strlanknamn	= SafeSQL(Request.Form("lanknamn"))
	stremail		= SafeSQL(Request.Form("email"))
	strkategori		= SafeSQL(Request.Form("kategori"))
	

	
	objConn.Execute("INSERT INTO nyheter(Datum,Rubrik,Nyhet,Skribent, lank, lanknamn, email,kategori) VALUES('" & strDatum & "','" & strRubrik & "','" & strNyhet & "','" & strSkribent & "','" & strlank & "','" & strlanknamn & "','" & stremail & "','" & strkategori & "')")
	
	' Stänger och förstör alla objekt
	Set objRS = nothing : objConn.Close : Set objConn = nothing
	
	Response.Redirect sidnamn & "?visa=nyhet"
	
	
' Ändrar nyheten
ElseIf Request.QueryString("visa") = "nyhetandrat" AND Session("Admin") = "true" Then

	strRubrik		= SafeSQL(Request.Form("rubrik"))
	strNyhet		= SafeSQL(Request.Form("nyhet"))
	strSkribent		= SafeSQL(Request.Form("skribent"))
	strlank 		= SafeSQL(Request.Form("lank"))
    strlanknamn		= SafeSQL(Request.Form("lanknamn"))
    stremail		= SafeSQL(Request.Form("email"))
	strkategori		= SafeSQL(Request.Form("kategori"))
    strDatum		= now()

	objConn.execute("Update nyheter Set Rubrik='" & strRubrik & "', Nyhet='" & strNyhet & "', Skribent='" & strSkribent & "', lank='" & strlank & "', lanknamn='" & strlanknamn & "', email='" & stremail & "', datum='" & strdatum & "', kategori='" & strkategori & "' Where id = "& SafeSQL(CLng(Request.Querystring("id"))))

	' Stänger och förstör alla objekt
	Set objRS = nothing : objConn.Close : Set objConn = nothing

	Response.Redirect sidnamn & "admin.asp?visa=nyhet"

' Tar bort nyheten
ElseIf Request.QueryString("visa") = "tabort" AND Session("Admin") = "true" Then
	objConn.Execute("DELETE FROM nyheter WHERE id="& SafeSQL(CLng(Request.Querystring("id"))))
	Response.Redirect sidnamn & "?visa=nyhet"

	' Stänger och förstör alla objekt
	Set objRS = nothing : objConn.Close : Set objConn = nothing

End If
%>

så jag vill alltså att man väljer sitt namn när man skriver nyheten, sen så ska namnet och emailen sparas i tabellen nyheter.

Svar är lätt:

<code asp>

<%
Set objRS = objConn.Execute("SELECT epost, namn FROM red order by namn")
if not RS.eof then %>

Det skall inte stå Set objRS=... , utan endast Set RS=...

har visst ett problem till. Hur gör man att det namn som är markerat sparas i databasen?

Om jag förstått rätt så om namnet finns i listan så finns det redan i databasen och alltså har namnet ett ID som du kan referera till. Skicka med det ID:t som value i listan och hämta hem det på den sidan som fångar upp dina <form>-värden!

Skicka med lite mer kod, tex hur koden ser ut för sidan som får ta emot <form>:en

/Jonas

ok, det löste sig, men har fått ett annat problem nu

SELECT spelare.id AS spelare_id, spelare.namn, spelare.klubb_id, klubbar.id AS klubbar_id, lubbar.serie, spelare.plats FROM klubbar INNER JOIN spelare ON klubbar.id = spelare.klubb_id WHERE (((klubbar.serie)="Allsvenskan") AND ((spelare.plats)="Målvakt"));

får felmeddelandet:
Kompileringsfel i Microsoft VBScript (0x800A03EE)
')' förväntas.

vad är det för fel?? :(

WHERE (((klubbar.serie)="Allsvenskan") AND ((spelare.plats)="Målvakt"));

Precis som felmeddelandet säger, det saknas ett ")"

Varför har du paranteserna över huvudtaget?

WHERE klubbar.serie="Allsvenskan" AND spelare.plats="Målvakt" ;

kopierade den rakt av från Access :s