HELP! Få flere textfields udfyldt fra DB dropdown?
Er det muligt at hente en hel ROW med DB data fra en dropdown, F.eks igennem autonumber-ID'etDen funktion jeg bruger kan IKKE bruges, fordi den POST'er <Select> Value indholdet...
Sæt min code i din editor for at se hvad jeg mener!
Prøv evt. scriptet på: http://www.pilatesudstyr.com/tester/thetestasp.asp
CODE:
<%@ Language=VBScript %>
<%Option explicit
Dim oRs, conn, connect, strSQL
set conn=server.CreateObject ("adodb.connection")
connect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("cykeldata.mdb") & ";Persist Security Info=False"
conn.Open connect
%>
<script language="javascript">
<!--
function dept_onchange(frmSelect) {
frmSelect.submit();
}
//-->
</script>
<html>
<head>
<meta http-equiv="content-type" content="text/html;charset=iso-8859-1">
<meta name="generator" content="Adobe GoLive">
<title>dropdowntest</title>
</head>
<body bgcolor="#ffffff" link="black">
<%
dim a0, a1, a2, a3, a4, a5, a6, a7, a8, a9, a10
a0=Request.Form("a0")
a1=Request.Form("a1")
a2=Request.Form("a2")
a3=Request.Form("a3")
a4=Request.Form("a4")
a5=Request.Form("a5")
a6=Request.Form("a6")
a7=Request.Form("a7")
a8=Request.Form("a8")
a9=Request.Form("a9")
a10=Request.Form("a10")
%>
<table width="440" border="0" cellspacing="0" cellpadding="3">
<tr height="1">
<td bgcolor="black" height="1"></td>
</tr>
<tr height="26">
<td valign="top" bgcolor="#eeeeee" height="26">
<div align="center">
<font size="2" face="Verdana, Arial, Helvetica, sans-serif"><b>Produktvalg</b></font></div>
</td>
</tr>
<tr height="1">
<td bgcolor="black" height="1"></td>
</tr>
<tr>
<td valign="top">
<div align="center">
<table width="100%" border="0" cellspacing="0" cellpadding="5">
<tr>
<td width="20%"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Hjul</font></td>
<td width="80%">
<div align="left">
<form name="frmSelect" method="Post" action="thetestasp.asp">
<div align="left">
<select name=hjul language=javascript onchange="return dept_onchange(frmSelect)">
<%
Set oRs=Server.CreateObject("adodb.recordset")
strSQL = "SELECT beskrivelse, pris FROM tblhjul ORDER BY beskrivelse"
oRs.Open strSQL, conn
Do while not oRs.EOF
if Request.Form("hjul") = oRs("beskrivelse") & oRS ("pris") then 'if this is the selected one then display as selected
Response.Write "<OPTION VALUE = '" & oRS ("beskrivelse") & (" ") & oRS ("pris") & "' SELECTED>"
Response.Write oRs("beskrivelse") & oRS ("pris") & "</Option>"
oRs.MoveNext
else
Response.Write "<OPTION VALUE = '" & oRs ("beskrivelse") & (" ") & oRS ("pris") & "<br>" & "'>"
Response.Write oRs("beskrivelse")& oRS ("pris") & "<br>" & "</Option>"
oRs.MoveNext
end if
loop
%>
</select><font size="1" color="#ff0033" face="Verdana, Arial, Helvetica, sans-serif"><b> </b></font> <input type="hidden" name="a0" value='<%=Request.Form ("hjul")%><%=Request.Form ("gear")%><%=Request.Form ("bremser")%><%=Request.Form ("diverse")%>'> <input type="hidden" name="a1" value='<% Response.Write("" & a0 & " ") %>'><input type="hidden" name="a2" value='<% Response.Write("" & a1 & " ") %>'><input type="hidden" name="a3" value='<% Response.Write("" & a2 & " ") %>'><input type="hidden" name="a4" value='<% Response.Write("" & a3 & " ") %>'><input type="hidden" name="a5" value='<% Response.Write("" & a4 & " ") %>'> <input type="hidden" name="a6" value='<% Response.Write("" & a5 & " ") %>'><input type="hidden" name="a7" value='<% Response.Write("" & a6 & " ") %>'><input type="hidden" name="a8" value='<% Response.Write("" & a7 & " ") %>'><input type="hidden" name="a9" value='<% Response.Write("" & a8 & " ") %>'><input type="hidden" name="a10" value='<% Response.Write("" & a9 & " ") %>'></div>
</form>
</div>
</td>
</tr>
</table>
<table width="200" border="0" cellspacing="0" cellpadding="0" >
<tr>
<td>
<table width="230" border="0" cellspacing="0" cellpadding="5">
<tr onmouseover="this.style.backgroundColor='#eeeeee'" onmouseout="this.style.backgroundColor='#ffffff'" height="20">
<td width="50%" height="20">
<div align="center">
<font size="2" color="#333333" face="Verdana, Arial, Helvetica, sans-serif"><i>Sidst valgte varer!</i></font></div>
</td>
</tr>
<tr onmouseover="this.style.backgroundColor='#eeeeee'" onmouseout="this.style.backgroundColor='#ffffff'" height="1">
<td bgcolor="black" width="50%" height="1"></td>
</tr>
<tr onmouseover="this.style.backgroundColor='#eeeeee'" onmouseout="this.style.backgroundColor='#ffffff'" height="0">
<td width="50%" height="0"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><i><%=Request.Form ("hjul")%></i></font></td>
</tr>
</table>
</td>
</tr>
</table>
<br>
<p><font size="2" color="#ff3300" face="Verdana, Arial, Helvetica, sans-serif">Jeg vil gerne:<br>
<% Response Write </font><font size="2" color="black" face="Verdana, Arial, Helvetica, sans-serif">moms</font><font size="2" color="#ff3300" face="Verdana, Arial, Helvetica, sans-serif"> fra db.<br>
<% Response Write </font><font size="2" color="black" face="Verdana, Arial, Helvetica, sans-serif">Pris</font><font size="2" color="#ff3300" face="Verdana, Arial, Helvetica, sans-serif"> fra db. &<br>
<% Response Write </font><font size="2" color="black" face="Verdana, Arial, Helvetica, sans-serif">exmoms</font><font size="2" color="#ff3300" face="Verdana, Arial, Helvetica, sans-serif"> fra db.<br>
Fra resultatet i dropdown menuen.....</font></p>
<div align="center">
<p><font size="2" color="#ff3300" face="Verdana, Arial, Helvetica, sans-serif">Kan man evt. </font><font size="2" color="black" face="Verdana, Arial, Helvetica, sans-serif">"call"</font><font size="2" color="#ff3300" face="Verdana, Arial, Helvetica, sans-serif"> hele indholdet ud fra AutoNumber id'et i DB? </font></p>
</div>
<table width="100%" border="1" cellspacing="0" cellpadding="5">
<tr>
<td width="19%">
<div align="left">
<font face="Verdana, Arial, Helvetica, sans-serif"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Beskrivelse</font></font></div>
</td>
<td width="34%">
<div align="left"><%=Request.Form ("hjul")%>
</div>
</td>
</tr>
<tr>
<td colspan="2">
<div align="center">
<font color="#ff3300" face="Verdana, Arial, Helvetica, sans-serif"><b>Her opstår problemet!<br>
</b></font></div>
</td>
</tr>
<tr>
<td width="19%"><font size="2" color="#ff3300" face="Verdana, Arial, Helvetica, sans-serif">Moms</font></td>
<td width="34%"><%=Request.Form ("hjul")%></td>
</tr>
<tr>
<td width="19%"><font size="2" color="#ff3300" face="Verdana, Arial, Helvetica, sans-serif">Ex. Moms</font></td>
<td width="34%"><%=Request.Form ("hjul")%></td>
</tr>
<tr>
<td width="19%"><font size="2" color="#ff3300" face="Verdana, Arial, Helvetica, sans-serif">Incl. Moms</font></td>
<td width="34%"><%=Request.Form ("hjul")%></td>
</tr>
</table>
<p></p>
</div>
</td>
</tr>
<tr>
<td valign="top">
<div align="center">
<img src="pics/dbpic.jpg" alt="" border="0">
<table width="100%" border="1" cellspacing="0" cellpadding="9" bordercolor="#000000">
<tr>
<td><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><%=Request.Form ("hjul")%><% Response.Write("" & a0 & " ") %><% Response.Write("" & a1 & " ") %><% Response.Write("" & a2 & " ") %><% Response.Write("" & a3 & " ") %><% Response.Write("" & a4 & " ") %><% Response.Write("" & a5 & " ") %><% Response.Write("" & a6 & " ") %><% Response.Write("" & a7 & " ") %><% Response.Write("" & a8 & " ") %><% Response.Write("" & a9 & " ") %></font></td>
</tr>
</table>
</div>
</td>
</tr>
</table>
</body>
</html>
CODE SLUT:
Håber i kan hjælpe.
Mvh Ian
