jeg kan ikke få det til at virke.
Jeg forestiller mig, at det skal bestå af 2 flier
sog1.asp og sog2.asp
kan nogen lave det for mig ? jeg forhøjer lige pointene med alt hvad jeg har.
mit forslg vil være (men virker ikke)_______________
sog1.asp =
_______________
<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0 Transitional//EN\">
<html>
<head>
<title>Søg</title>
<base target=\"_self\">
</head>
<body bgcolor=\"#FFFFFF\" link=\"#008080\" vlink=\"#008080\" alink=\"#008080\">
<div align=\"center\">
<table border=\"2\" width=\"100%\" bordercolor=\"#008080\" bordercolorlight=\"#008080\" bordercolordark=\"#008080\">
<tr>
<td width=\"100%\" bgcolor=\"#008080\">
<p align=\"center\"><b><font color=\"#FFFFFF\" size=\"5\">Søg</font></b>
</td>
</tr>
</table>
</div>
<div align=\"center\">
<center>
<table border=\"2\" width=\"400\" bordercolorlight=\"#008080\" bordercolordark=\"#008080\" bordercolor=\"#008080\" bgcolor=\"#FFFFFF\" height=\"42\">
<tr>
<td width=\"100%\" bgcolor=\"#008080\" height=\"19\">
<p align=\"center\"><font color=\"#FFFFFF\"><b>Søg efter</b></font></td>
</tr>
<tr>
<td width=\"100%\" height=\"11\" bgcolor=\"#FFFFFF\">
<div align=\"center\" style=\"width: 388; height: 63\">
<form action=\"sog2.asp\" method=\"post\">
<table border=\"0\" width=\"100%\">
<tr>
<td width=\"100%\" align=\"center\">
<font color=\"#008080\"><input type=\"text\" name=\"sog\" size=\"20\"></font></td>
</tr>
<tr>
<td width=\"100%\" align=\"center\">
<font color=\"#008080\">
<input type=\"submit\" value=\"søg\"> </font></td>
</tr>
</table>
</form>
</div>
</td>
</tr>
</table>
</center>
</div>
</body>
</html>
________________________________________
sog2.asp
________________________________________
<%
If request.form(\"sog\") = \"\" then
response.redirect(\"sog1.asp\")
end if
Set ObjConn = Server.CreateObject(\"ADODB.Connection\")
Set ObjRSuser = Server.CreateObject(\"ADODB.Recordset\")
ObjConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"../database.mdb\")
strQuery = \"SELECT * FROM varer WHERE varetekst=\'\" & request.form(\"sog\") & \"\'\"
set ObjRSuser = ObjConn.execute(strQuery)
\' Gennemløb Recordset (rs) med en løkke
Do
%>
<%response.Write \" <table border=\'1\' align=\'center\' width=\'500\' height=\'75\' bordercolor=\'#008080\'>\"%>
<%response.Write \" <tr><td width=\'490\' colspan=\'3\' bgcolor=\'#008080\'><center><b><font color=\'#FFFFFF\'>\"%><%response.Write rs(\"varetekst\")%><%response.write \" - KR. \"%><%response.Write rs (\"apris\")%><%response.write \"</font></b></center></td></tr>\"%>
<%response.Write \" <tr>\"%>
<%response.Write \" <td width=\'75\'><img src=\'../varefoto/\"%><%response.Write rs(\"varenummer\")%><%response.write \".jpg\' alt=\'VARE\' width=\'84\' height=\'84\'></td>\"%>
<%response.Write \" <td>\"%>
<%response.Write \" \"%><%response.Write rs(\"varetekst\")%><%response.write \" <br><b>pr. stk. kr. \"%><%response.Write rs(\"apris\")%><%response.write \"</td>\"%>
<%response.Write \" <td width=\'75\' align=\'center\'><input TYPE=\'value\' NAME=\'a\"%><%response.Write rs(\"ID\")%><%response.write \"quant\' VALUE=\'1\' SIZE=\'3\'>\"%>
<%response.Write \" Stk.<br>\"%>
<%response.Write \" <input TYPE=\'button\' NAME=\'a\"%><%response.Write rs(\"ID\")%><%response.write \"\'\"%>
<%response.Write \" VALUE=\'Bestil\'\"%>
<%response.Write \" onclick=\"%>\"<%response.Write \"top.menu.buyItem(\'\"%><%response.Write rs(\"varetekst\")%><%response.write \"\',\'\"%><%response.Write rs(\"apris\")%><%response.write \"\', document.itemsform.a\"%><%response.Write rs(\"ID\")%><%response.write \"quant.value)\"%>\"<%response.Write \">\"%>
<%response.Write \" </td>\"%>
<%response.Write \" </tr>\"%>
<%response.Write \" </table>\"%>
<%response.Write \"<p></p>\"%>
<%
\' Gå til næste Record i rs
rs.MoveNext
\' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop While Not rs.EOF
\' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>
