Udskriv VAREN FINDES IKKE hvis vareid ikke findes i db - hvordan?
HejJeg har tidligere i dag fået hjælp til en siden hvorpå jeg udskriver en oversigt over hvilke varer en ordre indeholder. Nu er mit problem så, at hvis nu en eller flere varer som indgår i den pågældende ordre ikke længere findes i databasen, så får jeg en fejl.
Derfor vil jeg gerne have det lavet sådan at hvis varen ikke findes så bliver der udskrevet "varen findes ikke" i stedet for oplysninger om varen.
Min kode
::::start::::
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<!--#INCLUDE FILE="config.inc"-->
<!--#INCLUDE FILE="level2.inc"-->
<!--#include file="dbconn.inc"--><!-- Database forbindelse oprettes via ekstern fil-->
<html>
<head>
<title>DATRONIC APS</title>
<Link Rel="stylesheet" href="datronic.css" Type="text/css" >
<!-- JavaScript funktion til at omdanne tekst links til knappe links -->
<script language="JavaScript">
<!--
function MM_goToURL() { //v3.0
var i, args=MM_goToURL.arguments; document.MM_returnValue = false;
for (i=0; i<(args.length-1); i+=2) eval(args[i]+".location='"+args[i+1]+"'");
}
//-->
</script>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"><style type="text/css">
<!--
body {
margin-left: 4px;
margin-top: 0px;
}
.style1 {color: #FFFFFF}
.style3 {
color: #000098;
font-weight: bold;
}
-->
</style></head>
<body>
<br>
<table width="670" border="0" align="left">
<!--Hovedtabel start-->
<tr>
<td height="18" valign="middle" bgcolor="#545DB9"><span class="style1">Ordreindhold</span></td>
</tr>
<tr valign="top">
<td colspan="2">Tilbage til ordreoversigt - <a href="ordre_oversigt.asp" target="tekst">klik her...</a><hr>
</div></td>
</tr>
<tr><td>
<% intOrderID = request.form("ordre1")
strSQL = "SELECT * FROM ordre WHERE orderID = " & intOrderID
Set rs1 = Conn.Execute(strSQL)
%>
<%
Response.Write "<table width='660' border='0' cellspacing='0' cellpadding='0'>"
Response.Write "<tr bgcolor='#F2F2FA'>"
Response.Write "<td width='200' colspan='2'><p>Kundeoplysninger</p></td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width='200'>Ordrenummer</td>"
Response.Write "<td>"
Response.Write "<p>" & rs1("orderID") & "</p>"
Response.Write "</td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width='200'>Navn</td>"
Response.Write "<td>"
Response.Write rs1("fNavn") & " " & rs1("eNavn")
Response.Write "</td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width='200'>Adresse</td>"
Response.Write "<td>"
Response.Write rs1("adresse1")
Response.Write "</td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width='200'>Postnr og By</td>"
Response.Write "<td>"
Response.Write rs1("postnr") & " " & rs1("city")
Response.Write "</td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width='200'>Land</td>"
Response.Write "<td>"
Response.Write rs1("land")
Response.Write "</td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width='200'> </td>"
Response.Write "<td> </td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width='200'>E-mail</td>"
Response.Write "<td>"
Response.Write rs1("email")
Response.Write "</td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width='200'>Telefon</td>"
Response.Write "<td>"
Response.Write rs1("telefon")
Response.Write "</td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width='200'> </td>"
Response.Write "<td> </td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width='200'>Leveringsadresse<br>(hvis anden end kundeadr.)</td>"
Response.Write "<td valign='top'>"
Response.Write rs1("shipAdresse")
Response.Write "</td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width='200'> </td>"
Response.Write "<td> </td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width='200'>Betalingsmåde</td>"
Response.Write "<td>"
Response.Write rs1("betaling")
Response.Write "</td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width='200'> </td>"
Response.Write "<td> </td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "</table>"
%>
</td>
</tr>
<tr>
<td>
<table width="660" border="0" cellspacing="0" cellpadding="0">
<tr bgcolor="#F2F2FA">
<td width="200" colspan="5"><p>Ordreindhold</p></td>
</tr>
<tr>
<td width="13%"><p>Antal</p></td>
<td width="13%"><p>Vareid</p></td>
<td width="44%"><p>Vare</p></td>
<td width="15%" align="right"><p>Pris pr stk</p></td>
<td width="15%" align="right"><p>Pris i alt</p></td>
</tr>
<%
strSQL = "SELECT * FROM ordrelinie WHERE orderID = " & intOrderID
Set rsProd = Conn.Execute(strSQL)
set rsProdInfo = Server.CreateObject("ADODB.Recordset")
rsProdInfo.Open "vare", conn, 2, 2
intTotal = 0
rsProd.MoveFirst
while not rsProd.EOF
rsProdInfo.MoveFirst
rsProdInfo.Find "vareid = " & rsProd("vareid")
intProdID = rsProd("vareid")
strProdName = rsProdInfo("titel")
intPrice = formatNumber(rsProdInfo("pris"), 2)
intQuant = rsProd("antal")
intProdVaegt = rsProdInfo("vaegt")
longVaegt = longVaegt + (intQuant * intProdVaegt)
intExtPrice = formatNumber((intPrice * intQuant), 2)
intTotal = intTotal + intExtPrice
%>
<tr>
<td width="13%" align="left" valign="middle" nowrap><font face="Verdana" size="1"><%= intQuant %></font></td>
<td width="13%" align="left" valign="middle" nowrap><font face="Verdana" size="1"><%= intProdID %></font></td>
<td width="44%" align="left" valign="middle" nowrap><font face="Verdana" size="1"><%= strProdName %></font></td>
<td width="15%" align="right" valign="middle" nowrap><font face="Verdana" size="1"><%= intPrice %></font></td>
<td width="15%" align="right" valign="middle" nowrap><font face="Verdana" size="1"><%= intExtPrice %></font></td>
</tr>
<input type="hidden" value="<%=intProdVaegt %>" name="intProdVaegt">
<input type="hidden" name="strOrderItem" value="<%= intProdID %>,<%= intQuant %>">
<input type="hidden" value="<%= longVaegt %>" name="longVaegt">
<input type="hidden" name="intQuant" value="<%= intQuant %>">
<input type="hidden" name="StrProdName" value="<%= strProdName %>">
<input type="hidden" name="intPrice" value="<%= intPrice %>">
<input type="hidden" name="intExtPrice" value="<%= intExtPrice %>">
<input type="hidden" name="intProdID" value="<%= intProdID %>">
<%
rsProd.MoveNext
wend
%>
<%
Response.write "<tr>"
Response.write "<td colspan='4'>Forsendelse</td>"
Response.write "<td align='right'>"
Response.Write "<font face='Verdana' size='1'><strong>" & rs1("fragt") & ",00</strong></font>"
Response.Write "</td>"
Response.write "</tr>"
Response.write "<tr bgcolor='#F2F2FA'>"
Response.write "<td colspan='4'>Kr. total i alt (incl. moms)</td>"
Response.write "<td align='right'>"
Response.write "<font face='Verdana' size='1'>KR <strong>" & rs1("total") & ",00</strong></font>"
Response.Write "</td>"
Response.write "</tr>"
%>
</table>
</td>
</tr>
</table>
</body>
</html>
::::SLUT::::
Fejlen
ADODB.Field error '800a0bcd'
Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.
/shop/admin/ordre_oversigt2.asp, line 155
Linie 155
150 rsProd.MoveFirst
151 while not rsProd.EOF
152 rsProdInfo.MoveFirst
153 rsProdInfo.Find "vareid = " & rsProd("vareid")
154 intProdID = rsProd("vareid")
155 strProdName = rsProdInfo("titel")
156 intPrice = formatNumber(rsProdInfo("pris"), 2)
157 intQuant = rsProd("antal")
Håber nogen kan hjælpe mig!
/Annette
