Database opslag
HejJeg sidder med en lille side hvor man skal kunne søge på en varenummer i en database, men jeg kan ikke få det til at virke.
Jeg henter søgekriterierne fra en formular som ser ud som følgende :
<% @language=\"VBScript\"´%>
<%
Option Explicit
Response.Buffer = true
Response.Expires = 0
Dim ProdRS, ProdConn, strVareNr
Dim genre, first, objFSO, strQ
ProdConn = \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"../access/lm-produkt.mdb\")
If Not Session(\"Pris\") = \"EPris\" Then
Session(\"Pris\") = \"PPris\"
End If
%>
<!--#include file=\"head-include.asp\"-->
<!--#include file=\"v-include.asp\"-->
<div class=\"sort\">
<img src=\"gfx/bar-<%= Request.QueryString(\"overskrift\") %>.jpg\" width=573 height=45 border=0>
<table width=\"573\" align=\"center\" cellpadding=\"0\" cellspacing=\"0\" border=\"0\">
<tr>
<td colspan=\"3\" width=\"573\" align=\"left\" class=\"sort\" valign=\"top\">
<div class=\"sort\">
<form action=\"varesoegning.asp?overskrift=<%= Request.QueryString(\"overskrift\") %>&produkt=<%= Request.QueryString(\"produkt\") %>\" method=\"post\" name=\"varesoegning\">
<img src=\"gfx/head-soegning.gif\" width=157 height=17 border=0 alt=\"\" align=\"absmiddle\"> <font color=\"#FF0000\"><b>Beta-søgning</b></font>
<br>
<table width=\"550\" align=\"center\" cellpadding=\"0\" cellspacing=\"0\" border=\"0\">
<tr>
<td class=\"sort\" width=\"200\" align=\"left\" class=\"sort\" valign=\"top\">
<div class=\"sort\">
<input type=\"Radio\" value=\"VareNr\" name=\"Kriterie\" checked><b>Søg efter el-nummer</b>
</div>
</td>
<td class=\"sort\" width=\"175\" align=\"left\" class=\"sort\" valign=\"top\">
<div class=\"sort\">
<input class=\"cursor\" type=\"text\" name=\"Soegekriterie\">
</div>
</td>
<td class=\"sort\" width=\"175\" align=\"left\" class=\"sort\" valign=\"top\">
<div class=\"sort\">
<input class=\"sort\" type=\"submit\" value=\"Søg i databasen\"></form>
</div>
</td>
</tr>
</table>
</div>
</td>
</tr>
<tr>
<td colspan=\"3\" width=\"573\" align=\"center\" class=\"sort\" valign=\"top\"><div class=\"sort\"> </div></td>
</tr>
<tr>
<td colspan=\"3\" width=\"573\" height=\"1\" align=\"center\" class=\"sort\" valign=\"top\" bgcolor=\"#000000\"><img src=\"../gfx/sort-prik.jpg\" width=1 height=1 border=0 alt=\"\"></td>
</tr>
<tr>
<td colspan=\"3\" width=\"573\" align=\"center\" class=\"sort\" valign=\"top\"><div class=\"sort\"> </div></td>
</tr>
</table>
<%
Set ProdRS = Server.CreateObject(\"ADODB.RecordSet\")
ProdRS.Open \"SELECT * FROM \" & Request.QueryString(\"produkt\") & \" ORDER BY Header + Beskrivelse\", ProdConn
%>
<!--#include file=\"produkt.asp\"-->
<%
ProdRS.Close
Set ProdRS = Nothing
%>
<br>
</div>
<!--#include file=\"h-include.asp\"-->
soegning.asp ser er magen til med undtagelse af selve indholdet, dvs. det eneste der er lavet om er :
<%
Set ProdRS = Server.CreateObject(\"ADODB.RecordSet\")
ProdRS.Open \"SELECT * FROM \" & Request.Querystring(\"produkt\") & \" WHERE \" & Request.Form(\"Kriterie\") & \" = \" & Request.Form(\"Soegekriterie\") & \" ORDER BY Header + Beskrivelse\", ProdConn
If ProdRS.EOF Then
Response.Redirect(\"varesoegning.asp?overskrift=\" & Request.QueryString(\"overskrift\") & \"&produkt=\" & Request.QueryString(\"produkt\") & \"\")
Else
%>
<!--#include file=\"produkt.asp\"-->
<%
End If
ProdRS.Close
Set ProdRS = Nothing
%>
Jeg ved ikke om det har noget at sige men selve soegekriteriet i formularen kan godt være et \'rent\' tal : 0158400000
men også indeholde bogstaver som : ISB8039000
Jeg ved ikke op I har fået nok informationer ellers så må I meget gerne fortælle mig hvad I ellers skal bruge
