Jeg har et lille problem med at få lavet noget alm.html kode om til asp
kode.
denne s52DHXLK^^
M?$<Xtil et script på en anden side !!
<form NAME="itemsform">
<table width="438">
<tr>
<th align="left" width="159">Varer</th>
<th align="left" width="66">Kr.</th>
<th width="70">Antal</th>
</tr>
<tr>
<td width="159"><input type="text" name="navn1" value="Festen"
size="20" readonly="true"
style="background-color: rgb(215,215,215)"></td>
<td width="66"><input type="text" name="pris1" value="35.00" size="5"
readonly="true"
style="background-color: rgb(215,215,215)"></td>
<td width="70"><input TYPE="value" NAME="antal1" VALUE="1" SIZE="3">
</td>
<td width="127"><input TYPE="button" NAME="ikurv1" VALUE="Læg i Kurv"
onclick="top.menu.buyItem(document.itemsform.navn1.value,
document.itemsform.pris1.value, document.itemsform.antal1.value)">
</td>
</tr>
</table>
</form>
denne procedure løber igennem an database og udskriver i en tabel med linjer
således:
navn, pris, antal, en trykknap(hvor teksten afgøres af antal)
på de knapper hvor der ikke er "udsolgt" skal der tilknyttes en procedure,
som DO. sender disse tre værdier.
Men hvordan får jeg denne procedure til at sende disse tre værdier til
scriptet ??
<%
set conn = server.createobject("ADODB.connection")
conn.Open"DBQ=C:\Inetpub\wwwroot\webshop\varedb.mdb;DefaultDir=C:\Inetpub\ww
wroot\webshop\;Driver={Microsoft Access Driver (*.mdb)}"
SQL = "select * from Tabel01 where Antal >= 0 order by Navn"
set RS = conn.execute( SQL )
if RS.eof then
response.write "Din forespørgsel returnerede 0 records."
else
do while not RS.eof 'sålænge det ikke er enden af tabellen så...
response.write "<table border='0' width='100%'>"
response.write "<tr>"
response.write "<td width='20%'>"
response.write "</td>"
response.write "<td width='25%'>"
response.write RS("Navn")
response.write "</td>"
response.write "<td width='15%'>"
response.write RS("Pris")
response.write "</td>"
response.write "<td width='15%'>"
response.write RS("Antal")
response.write "</td>"
response.write "<td width='33%'>"
if RS ("antal") = 0 then
response.write "<input type='button' value='Udsolgt' style='font-weight:
bold; color: rgb(255,0,0)'>"
else
response.write "<input onclick='top.menu.buyItem(('navn'), ('pris'),
('antal'))' type='button' value='Læg i kurv' >"
end if
response.write "</td>"
response.write "<hr>"
RS.movenext
loop ' forfra igen indtil sidste post
end if 'tilsidst skrives der..
response.write "</table>"
%>