Hvad er galt ?

Det er typisk fordi dit tabel er tom, prøv med:

<% if queryIndhold1("broedtekst") <> "" then Response.Write Replace(queryIndhold1("broedtekst")&"",vbcrlf,"<br>")%>

/Goose

Hej goose

Når jeg gør det udskriver den ikke brødteksten !

Og du er helt sikker på der er noget indhold at vise?

Typisk kommer den fejl du beskriver når man forsøger at lave replace i et tomt udtræk, derfor satte jeg en tom karakter "" ind.

Prøv for sjov lige at udtrække uden at replace og se om den så skriver noget.

/Goose

Har prøvet, så fejler siden... jeg syntes bare at det er mærkeligt... har tjekket databasen, der er ingen tomme felter, og det virker som sagt ubeklageligt på min egen side, og lokalt på IIS samme koder samme db !

Du skriver siden fejler, hvad får du af fejl da?

Hvor er siden hostet?

Prøv lige og kom med lidt mere kode, altså før linie 30 i /includes/inc_indhold.asp

/Goose

kan udskrive nu, men uden br og vbcrlf...

hele siden er som flg.

<%
tabelnavn = "indhold"
%>
<%
set queryIndhold1 = (connect.execute("select * from "& tabelnavn &" where refId = " & aktId & " order by id "))
do until queryIndhold1.EOF

Set QueryMenu = (connect.execute("select id, skabelon from menu where id = " & aktId & ""))

'Response.Write QueryMenu("id")

If QueryMenu("skabelon") = "a" then
%>

<table cellpadding="0" cellspacing="0" border="0" width="90%">
    <tr>
        <td><b><%=queryIndhold1("titel")%></b></td>
    </tr>
    <tr>
        <td>&nbsp;</td>
    </tr>
    <tr>
        <td valign="top">
<%
If queryIndhold1("grafik1") <> "" then
%>
<img src="brugerUpload/<%=queryIndhold1("grafik1")%>" alt="<%=queryIndhold1("alttekst1")%>" class="billedeleft">
<% End If %>

<% if queryIndhold1("broedtekst") <> "" then Response.Write Replace(queryIndhold1("broedtekst")&"",vbcrlf,"<br>")%>

        </td>
    </tr>
<%
If queryIndhold1("file1") <> "" then
%>
    <tr>
        <td>   
Følgende fil er uploadet: <a href="brugerUpload/<%=queryIndhold1("file1")%>" target="_blank"><%
If queryIndhold1("filetekst1") <> "" then
Response.Write queryIndhold1("filetekst1")
Else
Response.Write queryIndhold1("file1")
End If
%></a>
        </td>
    </tr>
<% End If %>
<%
If queryIndhold1("link") <> "" then
%>
    <tr>
        <td align="left">
<a href="http://<%=queryIndhold1("link")%>" target="_blank"><%
If queryIndhold1("linktekst") <> "" then
Response.Write queryIndhold1("linktekst")
Else
Response.Write queryIndhold1("link")
End If
%></a>
        </td>
    </tr>
<% End If %>

<%
If queryIndhold1("email") <> "" then
%>    <tr>
        <td align="left">
<a href="mailto:<%=queryIndhold1("email")%>"><% If queryIndhold1("emailtekst") <> "" then
Response.Write queryIndhold1("emailtekst")
Else
Response.Write queryIndhold1("email")
End If %></a>
        </td>
    </tr>
<% End If %>
</table>
<br>
<%
ElseIf QueryMenu("skabelon") = "b" then
%>

<table cellpadding="0" cellspacing="0" border="0" width="90%">
    <tr>
        <td height="20"><b><%=queryIndhold1("titel")%></b></td>
    </tr>
    <tr>
        <td>&nbsp;</td>
    </tr>
    <tr>
        <td valign="top">
<%
If queryIndhold1("grafik1") <> "" then
%>
<img src="brugerUpload/<%=queryIndhold1("grafik1")%>" alt="<%=queryIndhold1("alttekst1")%>" class="billederight">
<% End If %>

<% if queryIndhold1("broedtekst") <> "" then Response.Write Replace(queryIndhold1("broedtekst"),vbcrlf,"<br>")%>
        </td>
    </tr>
    <tr>
        <td>
<%
If queryIndhold1("file1") <> "" then
%>
Følgende fil er uploadet: <a href="brugerUpload/<%=queryIndhold1("file1")%>" target="_blank"><%
If queryIndhold1("filetekst1") <> "" then
Response.Write queryIndhold1("filetekst1")
Else
Response.Write queryIndhold1("file1")
End If
%></a>
<% End If %>
        </td>
    </tr>
<%
If queryIndhold1("link") <> "" then
%>
    <tr>
        <td align="left">
<a href="http://<%=queryIndhold1("link")%>" target="_blank"><%
If queryIndhold1("linktekst") <> "" then
Response.Write queryIndhold1("linktekst")
Else
Response.Write queryIndhold1("link")
End If
%></a>
        </td>
    </tr>
<% End If %>
<%
If queryIndhold1("email") <> "" then
%>
    <tr>
        <td align="left">
<a href="mailto:<%=queryIndhold1("email")%>"><% If queryIndhold1("emailtekst") <> "" then
Response.Write queryIndhold1("emailtekst")
Else
Response.Write queryIndhold1("email")
End If %></a>
        </td>
    </tr>
<% End If %>
</table>
<br>
<%
ElseIf QueryMenu("skabelon") = "c" then
%>

<table cellpadding="0" cellspacing="0" border="0" width="90%">
    <tr>
        <td height="20" colspan="2"><b><%=queryIndhold1("titel")%></b></td>
    </tr>
    <tr>
        <td>&nbsp;</td>
    </tr>
    <tr>
        <td>
<%
If queryIndhold1("grafik1") <> "" then
%>
<img src="brugerUpload/<%=queryIndhold1("grafik1")%>" alt="<%=queryIndhold1("alttekst1")%>" class="billedeleft">
<% End If %>
        </td>
        <td>
<%
If queryIndhold1("grafik2") <> "" then
%>
<img src="brugerUpload/<%=queryIndhold1("grafik2")%>" alt="<%=queryIndhold1("alttekst2")%>" class="billederight">
<% End If %>
        </td>
    </tr>
    <tr>
        <td colspan="2">
<% if queryIndhold1("broedtekst") <> "" then Response.Write Replace(queryIndhold1("broedtekst"),vbcrlf,"<br>")%>
        </td>
    </tr>
<%
If queryIndhold1("file1") <> "" then
%>
    <tr>
        <td colspan="2">
Følgende fil er uploadet: <a href="brugerUpload/<%=queryIndhold1("file1")%>" target="_blank"><%
If queryIndhold1("filetekst1") <> "" then
Response.Write queryIndhold1("filetekst1")
Else
Response.Write queryIndhold1("file1")
End If
%></a>
        </td>
    </tr>
<% End If %>
<%
If queryIndhold1("link") <> "" then
%>
    <tr>
        <td colspan="2" align="left">
<a href="http://<%=queryIndhold1("link")%>" target="_blank"><%
If queryIndhold1("linktekst") <> "" then
Response.Write queryIndhold1("linktekst")
Else
Response.Write queryIndhold1("link")
End If
%></a>
        </td>
    </tr>
<% End If %>
<%
If queryIndhold1("email") <> "" then
%>
    <tr>
        <td colspan="2" align="left">
<a href="mailto:<%=queryIndhold1("email")%>"><% If queryIndhold1("emailtekst") <> "" then
Response.Write queryIndhold1("emailtekst")
Else
Response.Write queryIndhold1("email")
End If %></a>
        </td>
    </tr>
<% End If %>
</table>
<br>
<%
End If
%>

<%
queryIndhold1.movenext
loop
queryIndhold1.close
%>

Det forstår jeg ikke, ligger du på en windows server hos i123 eller kører sitet på linux så den bruger chillisoft som asp fortolker?

http://www.i123.dk/support.php?k=7&q=1

/Goose

på en windowsserver..

Support hos i123 skriver noget om relative stier, men jeg ved ikke hvad det betyder !

Hvis du kan trække data ud er dine stier ok, jeg forstår bare ikke helt hvorfor den kegler over replacen .....

Nu kan jeg se, at der er flere steder du bruger denne replace - rettede du den alle steder?

/Goose

nej ikke i første omg. har gjort, og nu udskriver den ikke igen

Prøv lige og højreklik og vælg vis kilde og se om den skriver en fejlbesked i kildekoden

/Goose

det gør den ikke

Hmm, det fatter jeg ikke en bjælde af ........

Kan du smide en URL?

/Goose

www.lenemorville.dk

hvilken side?

/Goose

undskyld hvad ?

Ja hvilken side er det det er galt på, er det forsiden?

Tror ikke rigtig jeg kan hjælpe mere, har selv lige forsøgt noget tilsvarende, og det virker fint.

/Goose

En sidste mulighed fra min side:

Prøv og udskift alle:

<% if queryIndhold1("broedtekst") <> "" then Response.Write Replace(queryIndhold1("broedtekst"),vbcrlf,"<br>")%>

med:

<% if len(""&queryIndhold1("broedtekst"))>0 then Response.Write Replace(queryIndhold1("broedtekst"),vbcrlf,"<br>")%>

/Goose

Det virker stadig ikke... skriver fejl i replace igen

kan ikke fatte at det skal være så svært på i123.... andre steder virker det

Okay, jeg tror sg* det er serveren der laver noget ged. For lige at få det afklaret, så prøv lige og lave følgende lille asp fil og læg den op på serveren og kør den:

<%
test = "jeg gik mig en tur"
test = replace(test, "tur", "søndagstur")
response.write test
%>

Hvad udskriver den så?

/Goose

det kan den godt !!!!

Jeg går ud fra den skriver "søndagstur" ? :o)

Jeg gir op.

/Goose

Har prøvet endnu en gang at kigge på access databasen... der er ingen tomme felter...

Det gør den nemlig... men tak for hjælpen, du har da i hvert tilfælde gjort hvad du kunne....

Kan du have en god weekend !

Tror det er din connect til databasen som ikke virker helt efter hensigten.

Prøv denne mulighed:

<%
Set DBConn = Server.CreateObject("ADODB.Connection")
DBProvider = "DRIVER="&DB_Driver&";SERVER="&DatabaseServer&";"
DBProvider = DBProvider & "DATABASE="&DatabaseNavn&";Option="&DatabaseOption&";"
DBProvider = DBProvider & "Port="&DatabasePort&";Stmt="&DatabaseStmt&";"
DBProvider = DBProvider & "UID="&DatabaseBruger&";PWD="&DatabaseKode&";"
DBConn.Open DBProvider

Set myTableName = Server.CreateObject("ADODB.Recordset")
Set queryIndhold1 = myTableName.Open sSQL,DBConn, 1, 3  //MySQL database

%>

siden kan ikke vises så....

jeg bruger i123.dk egen connect.

Når replace i ASP kommer med den fejl er det 95% af tilfældene en fejl i enten ADODB.Connection eller ADODB.Recordset

Hej danishmale...

jeg fiksede noget i går aftes... hvis man undlader at forespørge på om der sendes noget med, men bare skriver <% replace(queryIndhold1("broedtekst"),vbcrlf,"<br>") %> så virker det !!!!!

Mærkeligt... der er rigtigt mange ting på siden der ikke virker efter at det er blevet lagt op på i123.dk...

Kan ikke umiddelbart anbefales som webhotel.

lukker sp.