Her er et forslag til hvordan du kan gøre. Det er måske ikke den mest elegangt måde, men jeg er selv novice indenfor asp. I denne løsning skal man først vælge et vare id og derefter klikke på knappen "hent pris". Herefter skrives varen id og pris i en formular som man så kan sende videre til bearbejdning i en ny asp (her kaldet product2.asp.
<%@LANGUAGE="VBSCRIPT"%>
<%strConn = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("..//localhost/datax/vare1.mdb")%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html;
charset=windows-1252">
<title>Betilling af vare</title>
</head>
<body>
<h1>Produktkatalog</h1>
<%
Dim rsRecordset1
Dim rsRecordset2
Dim rsRecordset3
VID1=Request.Form("vare_id")
set rsRecordset1 = Server.CreateObject("ADODB.Recordset")
rsRecordset1.ActiveConnection = strConn
rsRecordset1.Source = "SELECT * FROM t_vare ORDER BY vare_id"
rsRecordset1.CursorType = 0
rsRecordset1.CursorLocation = 2
rsRecordset1LockType = 3
rsRecordset1.Open
rsRecordset1_numRows = 0%>
<%
if VID1<>"" then
set rsRecordset2 = Server.CreateObject("ADODB.Recordset")
rsRecordset2.ActiveConnection = strConn
rsRecordset2.Source = "SELECT * FROM t_vare where ((t_vare.[vare_ID]) =" & VID1 & "); "
rsRecordset2.CursorType = 0
rsRecordset2.CursorLocation = 2
rsRecordset2LockType = 3
rsRecordset2.Open
rsRecordset2_numRows = 0
end if %>
<%
if VID1<>"" then
set rsRecordset3 = Server.CreateObject("ADODB.Recordset")
rsRecordset3.ActiveConnection = strConn
rsRecordset3.Source = "SELECT * FROM t_vare where ((t_vare.[vare_ID]) =" & VID1 & "); "
rsRecordset3.CursorType = 0
rsRecordset3.CursorLocation = 2
rsRecordset3LockType = 3
rsRecordset3.Open
rsRecordset3_numRows = 0
end if %>
<form name="form1" method="post" action="product.asp">
<TABLE BORDER="2">
<tr>
<td> Varenummer</td>
<td> <select size="1" name="vare_id">
<% While NOT rsRecordset1.EOF %>
<option value=" <%=(rsRecordset1.Fields.Item("vare_id").Value)%>"
selected><%=(rsRecordset1.Fields.Item("vare_id").Value)%></option>
<%
rsRecordset1.MoveNext
Wend
SET rsRecordset1= nothing%></select> </td>
<td> </td>
<td> <input type="submit" name="submit" value="hent pris"> </td>
<td> </td>
</tr>
</td>
</form>
</TABLE><br>
<%' her indsætter jeg formular2 der viser det valgte produkt samt pris%>
<form name="form2" method="post" action="product2.asp">
<br>
<TABLE BORDER="0">
<tr>
<td><b>Varenummer:</b></td>
<td><select size="1" name="VAID">
<% While NOT rsRecordset2.EOF %>
<option value=" <%=(rsRecordset2.Fields.Item("vare_id").Value)%>"
selected><%=(rsRecordset2.Fields.Item("vare_id").Value)%></option>
<%
rsRecordset2.MoveNext
Wend
SET rsRecordset2= nothing%></select></td><td></td></tr>
<tr><td><b>Pris</b></td>
<td><select size="1" name="VPRIS">
<% While NOT rsRecordset3.EOF %>
<option value=" <%=(rsRecordset3.Fields.Item("pris").Value)%>"
selected><%=(rsRecordset3.Fields.Item("pris").Value)%></option>
<%
rsRecordset3.MoveNext
Wend
SET rsRecordset3= nothing%></select></td>
</tr><tr>
<td>
<input type="submit" name="submit" value="Bestil"> </td>
<td><input type="reset" value="Ryd"></td></tr>
</TABLE>
</form>
</body>
</html>
