Avatar billede weblance Nybegynder
14. maj 2010 - 14:20 Der er 2 kommentarer og
1 løsning

Hjælp ønskes til at midificere side.

Hej eksperter. Jeg har en side i ASP som jeg skal have lavet lidt om. Jeg har ikke selv lavet siden og jeg har heller ikke en dyt forstand på ASP, så jeg håber I kan hjælpe.

Sidens kode ser således ud:

<%Option Explicit%>
<% Response.Expires=-1 %>
<!-- #include file="CheckSession.lib" -->
<html>

<head>
<link REL="stylesheet" TYPE="text/css" HREF="<%=Session("Output").Style%>" />

<title></title>
</head>
<body ID="CFStock" Class="CF">
<%
Dim Item, OneItem, StockItem
Item=Request("Item")
Set StockItem=Server.CreateObject("XALStockItem.WSC")
OneItem=StockItem.Get_StockItem(Item, Date, 1)
If cStr(OneItem)="1" Then
    %>
    <h1><%=Session("Output").eText(StockItem,0)%></h1>

    <div align="right">

    <table border="0" align="left" width="100%" cellpadding="2">
        <tr>
            <td valign="top"><%=Session("Output").eText(StockItem,2)%></td>
            <td><img src="../images/<%=StockItem.PictureFileName%>"></td>
        </tr>
    </table>
    </div>
    <%
End If
Set StockItem=NOTHING%>
</body>
</html>

Og problemet er at der ikke altid fines et billede i <img src="../images/<%=StockItem.PictureFileName%>"> fordi der ikke er et billede lagt ind i databasen.

Jeg kunne godt tænke mig at få lavet sådan at der vises et standard billede i stedet, hvis det ikke findes i databasen.

Kan I hjælpe?
Avatar billede The Real Yoda Juniormester
14. maj 2010 - 14:42 #1
If cStr(OneItem)="1" Then
    %>
    <h1><%=Session("Output").eText(StockItem,0)%></h1>

    <div align="right">

    <table border="0" align="left" width="100%" cellpadding="2">
        <tr>
            <td valign="top"><%=Session("Output").eText(StockItem,2)%></td>
            <td><img src="../images/<%=StockItem.PictureFileName%>"></td>
        </tr>
    </table>
    </div>
    <%
End If

rettes til :


If cStr(OneItem)="1" Then
    billedet = StockItem.PictureFileName
    if len(billedet) < 4 then billedet = "standardbillede.jpg"
    %>
    <h1><%=Session("Output").eText(StockItem,0)%></h1>

    <div align="right">

    <table border="0" align="left" width="100%" cellpadding="2">
        <tr>
            <td valign="top"><%=Session("Output").eText(StockItem,2)%></td>
            <td><img src="../images/<%=billedet%>"></td>
        </tr>
    </table>
    </div>
    <%
End If
Avatar billede weblance Nybegynder
14. maj 2010 - 15:20 #2
Det virker ikke rigtigt. Jeg får denne fejl:

Microsoft VBScript runtime  error '800a01f4'

Variable is undefined: 'billedet'

StockItem.asp, line 18
Avatar billede weblance Nybegynder
14. maj 2010 - 20:07 #3
Jeg fandt en løsning:

Dim Item, OneItem, StockItem

skulle laves om til

Dim Item, OneItem, StockItem, billedet

Så virkede det!

Tak for hjælpen.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester