Træls fejl i IF sætning - hvad gør jeg forkert?
HejJeg har en side hvorpå jeg udskriver nogle data fra en database.
Jeg har blandt andet en tabel i databasen som hedder [pdffil] herfra henter jeg nogle pdffiler som hører sammen med en tekst i en anden tabel i DB.
Hvis der ikke er nogen pdf fil til den pågældende tekst skal der udskrives et bestemt stykke grafik, men hvis der er en pdf fil skal der udskrives et andet stykke grafik med et link på.
Til det har jeg lavet følgende ifsætning
::::IF SÆTNING::::
97 ' SQL forespørgsel
98 strSQL = "Select * From pdffil Where tekstNr = " & intTekstNr & " Order By pdfId"
99
100 ' Udfør strSQL (rs1 kommer til at indeholde dataen fra tabellen underkategori)
101 Set rs3 = Conn.Execute(strSQL)
102
103 Response.Write "<tr><td align='right'>"
104
105 if rs3("PDFfil")&"" = "" then
106 Response.Write "<img src='gfx/ingen_pdf_ikon.gif' border='0' >"
107 else
108 Response.Write "<a href='" & rs3("PDFfil") & "' target='blank'><img src='gfx/pdf_ikon.gif' alt='Læs som PDF fil' border='0' width='50' height='50'></a>"
109 end if
110
111 Response.Write "</td></tr>"
::::SLUT::::
Mit problem er nu at hvis der ingen pdf fil er, så får jeg følgende fejl:
error '80020009'
Exception occurred.
/tele-it/www/apparater2.asp, line 105
Hvad er det jeg gør forkert?
Her er hele koden til siden
::::HELE SIDEN::::
<!--
*************************************************************
***** Development by Datronic NetDesign ApS *****
***** *****
***** Datronic NetDesign ApS *****
***** Marselis Boulevard 175 *****
***** DK-8000 Aarhus C *****
***** Denmark *****
***** Tel: +45 86256343 *****
***** *****
***** www.dnd.dk *****
***** mail@dnd.dk *****
***** *****
*************************************************************
-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<%
intTekstNr = Request.QueryString("intTekstNr")
%>
<!--#include file="dbconn.inc"--><!-- Database forbindelse oprettes via ekstern fil-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<Link Rel="stylesheet" href="tele-it.css" Type="text/css" > <!-- link til eksternet stylesheet-->
<title>TELE IT COMMUNICATION ApS</title>
<STYLE TYPE="text/css">
BODY{
background-attachment: fixed;
background-image: url();
background-repeat: no-repeat;
margin-left: 4px;
margin-top: 4px;
margin-right: 0px;
margin-bottom: 0px;
}
</style>
</head>
<body>
<table width="550" border="0" cellspacing="0" cellpadding="0">
<tr>
<td colspan="2"> </td>
</tr>
<tr>
<td valign="top"><!--start kolonne med tekst-->
<%
' Indholdstabel til tekst start
Response.Write "<table width='350'>"
' SQL forespørgsel
strSQL = "Select * From tekst Where tekstNr = " & intTekstNr & " Order By tekstId"
' Udfør strSQL (rs1 kommer til at indeholde dataen fra tabellen underkategori)
Set rs1 = Conn.Execute(strSQL)
'Tjekker om der er noget i databasen
If rs1.EOF Then
' Hvis der ingen tekster er i DB afsendes følgende meddelse.
Response.Write "<br><br><center>Siden er under opdatering...</center><br><br>"
Else
' Men hvis DB ikke er tom, udskrives data.
Do While Not rs1.EOF
Response.Write "<tr><td>"
' Udskriv Titel
Response.Write "<p>" & rs1("overskrift") & "</p>"
Response.Write "</td></tr>"
Response.Write "<tr><td>"
' Udskriv indhold
Response.Write Replace (rs1("indhold"), vbCrLf, "<br>"&vbCrLf) 'Erstatter databasens kode for linieskift vbCrlf med html break
Response.Write "<br><br></td></tr>"
' Gå til næste record i rs
rs1.MoveNext
' Gå i loop indtil rs1 ikke indeholder flere records (= EOF)
Loop
End If
'Indholdstabel til tekst slut
Response.Write "</table>"
%>
</td> <!--kolonne med tekst slut-->
<td valign="top"> <!--start kolonne med foto-->
<%
' Indholdstabel til foto start
Response.Write "<table width='200'>"
' SQL forespørgsel
strSQL = "Select * From pdffil Where tekstNr = " & intTekstNr & " Order By pdfId"
' Udfør strSQL (rs1 kommer til at indeholde dataen fra tabellen underkategori)
Set rs3 = Conn.Execute(strSQL)
Response.Write "<tr><td align='right'>"
if rs3("PDFfil")&"" = "" then
Response.Write "<img src='gfx/ingen_pdf_ikon.gif' border='0' >"
else
Response.Write "<a href='" & rs3("PDFfil") & "' target='blank'><img src='gfx/pdf_ikon.gif' alt='Læs som PDF fil' border='0' width='50' height='50'></a>"
end if
Response.Write "</td></tr>"
' SQL forespørgsel
strSQL = "Select * From foto2 Where tekstNr = " & intTekstNr & " Order By fotoId"
' Udfør strSQL (rs1 kommer til at indeholde dataen fra tabellen underkategori)
Set rs2 = Conn.Execute(strSQL)
' Hvis DB ikke er tom, udskrives data.
Do While Not rs2.EOF
Response.Write "<tr><td>"
' Udskriv foto
if rs2("foto")&"" = "" then
Response.Write "<img src='foto/intet_foto.jpg' border='0' >"
else
Response.Write "<img src=""" & rs2("foto") & """ border='0' width='200' height='150'>"
end if
Response.Write "</td></tr>"
' Gå til næste record i rs
rs2.MoveNext
' Gå i loop indtil rs2 ikke indeholder flere records (= EOF)
Loop
'Indholdstabel til tekst slut
Response.Write "</table>"
%>
</td> <!--kolonne med foto slut-->
</tr>
<%
' Luk forbindelse fra dbconn.inc
Conn.Close
Set Conn = Nothing
%>
</tr>
</table><!--hovedtabel slut-->
</body>
</html>
::::SLUT::::
