6 svar · 280 visningar · startad av His Divine Shadow
OK,, detta har jag för att fixa radbrytningar i text som hämtas från en databas:
Function Radbryt(rfix)
rfix = Replace(rfix, vbCrLf, "<br>")
Radbryt = rfix
end Function
Här är if koden jag använder:
<font face="Verdana" size="2"><%IF not RS_prod("Foretag") = "" THEN%> <%ELSE%> <%=radbryt(RS_prod("Foretag"))%><%end if%></font><br><br>
<font face="Verdana" size="2">
<%IF RS_prod("Foretag") <> "" THEN%>
<%=radbryt(RS_prod("Foretag"))%>
<%end if%></font><br><br>
Står allt detta på samma rad:
<font face="Verdana" size="2"><%IF not RS_prod("Foretag") = "" THEN%> <%ELSE%> <%=radbryt(RS_prod("Foretag"))%><%end if%></font><br><br>
om det gör det så blir det fel...
om en If-sats bara innehåller ett argument så kan man skriva på en rad annars behövs två eller flera 
OK, trodde radbrytningar var onödiga.
Funkar fortfarande inte, här är ett större extrakt:
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=C:\data\WebData\katalog.mdb"
SQL = "SELECT * FROM Kat WHERE ID = " & Request.QueryString("ID") & ""
Set RS_prod = Conn.Execute(SQL)
Function Radbryt(rfix)
rfix = Replace(rfix, vbCrLf, "<br>")
Radbryt = rfix
end Function
%>
<html>
<head>
<meta name="generator" content="Adobe GoLive 4">
<title>Welcome to Adobe GoLive 4</title>
</head>
<%Do Until RS_prod.EOF%>
<body bgcolor="white">
<table border="0" cellpadding="0" cellspacing="2" width="100%">
<tr>
<td width=40%><font face="Verdana" size="2">[ <a href="javascript:window.print()">Skriv ut</a> ] </font><br><br>
<font face="Verdana" size="2"><b><%=RS_prod("Namn")%></b></font><br><br>
<font face="Verdana" size="2">
<%=RS_prod("Naradress")%><br>
<%=RS_prod("Postnr")%> <%=RS_prod("Ort")%><br>
Telefon: <%=RS_prod("Tel")%><br>
Telefax: <%=RS_prod("Fax")%><br>
E-post: <a href=mailto:<%=RS_prod("Epost")%>><%=RS_prod("Epost")%></a><br>
Hemsida: <a href="<%=RS_prod("www")%>"><%=RS_prod("www")%></a><br><br>
Ämmnesområde: <%=RS_prod("Amnesomrade")%><br>
</font>
</td>
<td align="left"><img src="../images/<%=RS_Prod("Username")%>/<%=RS_prod("filename")%>"></td>
</tr>
<tr>
<td colspan="2"><br><br>
<b>Företaget:</b><br>
<font face="Verdana" size="2">
<%IF RS_prod("Foretag") <> "" THEN%>
<%=radbryt(RS_prod("Foretag"))%>
<%end if%></font><br><br>
<b>Affärside:</b><br>
<font face="Verdana" size="2">
<%IF RS_prod("Affarside") <> "" THEN%>
<%=radbryt(RS_prod("Affarside"))%>
<%end if%></font><br><br>
<b>Produkter:</b><br>
<font face="Verdana" size="2">
<%IF RS_prod("Produkter") <> "" THEN%>
<%=radbryt(RS_prod("Produkter"))%>
<%end if%></font><br><br>
<b>Målgrupper:</b><br>
<font face="Verdana" size="2">
<%IF RS_prod("Malgrupp") <> "" THEN%>
<%=radbryt(RS_prod("Malgrupp"))%>
<%end if%></font><br><br>
<b>Övrig Information:</b><br>
<font face="Verdana" size="2">
<%IF RS_prod("Ovrigt_swe") <> "" THEN%>
<%=radbryt(RS_prod("Ovrigt_swe"))%>
<%end if%></font><br><br>
Är det ett null-värde i databasen?
<%IF not isnull(RS_prod("Foretag")) and RS_prod("Foretag") <> "" THEN%>
<%=radbryt(RS_prod("Foretag"))%>
<%end if%></font><br><br>
icaaq: du skrev
-"om det gör det så blir det fel...
om en If-sats bara innehåller ett argument så kan man skriva på en rad annars behövs två eller flera"
Det stämmer inte, en if sats med flera argument kan skrivas på en rad, det är inte det som är fel med koden.
Och till His Divine Shadow har jag också en fråga.
Vad får du för felmeddelande?