Linjeskift
Hej,Jeg har nu længe siddet og bakset med denne side, og kan simpelthen ikke få den til at virke. Jeg hoster den på friserverplads, så kan det evt. bare være hos dem den er gal? Jeg har systemet der skal sørge for at linieskift i formularen bliver vist som linieskift på \"vis nyhed\"-siden mistænkt for at være roden til fejlen.
Når jeg uploader den, og vil se siden, får jeg bare en \"Siden kunne ikke vises\"-fejl.
Således ser min \"vis nyhed\"-side ud. Jeg går udfra at det er der fejlen ligger, og ikke i \"post nyhed\"-siden:
<%
Response.Buffer = True
\' Connection til database
Set Con = Server.CreateObject(\"ADODB.Connection\")
DBPath = \"DBQ=\" & server.mappath(\"nyheder.mdb\")
Con.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; \" & DBPath
\' Her hiver vi indholdet af databasen ud, sorterer dem efter dato
Sql = \"SELECT * FROM nyheder ORDER BY Dato DESC\"
Set rs = conn.Execute(SQLstmt)
%>
<%
\'DO WHILE NOT rs.EOF
pic = rs(\"pic\")
nyhed = rs(\"nyhed\")
emne = rs(\"emne\")
dato = rs(\"dato\")
%>
<html>
<head>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=windows-1252\">
<meta name=\"GENERATOR\" content=\"Microsoft FrontPage 4.0\">
<meta name=\"ProgId\" content=\"FrontPage.Editor.Document\">
<title>Profil</title>
<base target=\"_blank\">
<STYLE>
A:Link {text-decoration: none; color: #383F30}
A:Active {text-decoration: none; color: #383F30}
A:Visited {text-decoration: none; color: #383F30}
A:Hover {text-decoration: none; color: #000000}
</STYLE>
</head>
<body bgcolor=\"#BEC7B6\">
<TABLE border=0 cellPadding=1 cellSpacing=1
width=470>
<TR vAlign=top>
<TD background=http://paganhp.subnet.dk/tfg/redd-filer/cs-2nd.subnet-filer/bag3.bmp bgColor=#69775B
style=\"border-top: 1px solid #000000; border-left: 1px solid #000000; border-right: 1px solid #000000; border-bottom: 1px solid #000000\"
width=142 <td>
<TABLE align=center border=0 cellPadding=1 cellSpacing=2 height=10
width=470>
<TBODY>
<TR vAlign=top>
<TD align=middle bgColor=#69775B
style=\"border: 1px solid #000000\"
vAlign=top width=75%>
<font face=\"Verdana\" size=\"1\" color=\"#000000\">
<p align=\"center\"><b>.: </b>Nyheder <b>:.</b> </font></TD>
</TR></TBODY></TABLE>
</TD></TR></TABLE></body>
<body bgcolor=\"#BEC7B6\">
<%
\'DO WHILE NOT rs.EOF
ditnavn = rs(\"ditnavn\")
%>
<TABLE border=0 cellPadding=1 cellSpacing=1
width=470>
<p> </p>
<TR vAlign=top>
<TD background=http://paganhp.subnet.dk/tfg/redd-filer/cs-2nd.subnet-filer/bag3.bmp bgColor=#69775B
style=\"border-top: 1px solid #000000; border-left: 1px solid #000000; border-right: 1px solid #000000; border-bottom: 1px solid #000000\"
width=142 <td>
<TABLE align=center border=0 cellPadding=1 cellSpacing=2 height=10
width=470>
<TBODY>
<TR vAlign=top>
<TD align=middle bgColor=#69775B
style=\"border: 1px solid #000000\"
vAlign=middle width=20>
<p align=\"center\">
<font face=\"Verdana\" size=\"1\" color=\"#000000\"> </font><img src=\"http://www.friserverplads.dk/redd/smiler/<%=pic%>.gif\" width=\"15\" height=\"15\"></p>
</TD>
<TD align=middle bgColor=#69775B
style=\"border: 1px solid #000000\"
vAlign=middle width=400>
<font face=\"Verdana\" size=\"1\" color=\"#000000\"><%=emne%></font></TD>
<TD align=middle bgColor=#69775B
style=\"BORDER-BOTTOM: #000000 1px solid; border-left: #000000 1px solid; border-right: #000000 1px solid; BORDER-TOP: #000000 1px solid\"
vAlign=middle width=120>
<font face=\"Verdana\" size=\"1\" color=\"#000000\"><%=dato%></font></TD></TR></TBODY></TABLE>
<TABLE align=center border=0 cellPadding=0 cellSpacing=0
width=470><TBODY>
<TR>
<TD background=http://paganhp.subnet.dk/tfg/redd-filer/cs-2nd.subnet-filer/bag3.bmp
bgColor=#69775B valign=\"top\">
<%
Function LinkTekst(Tekst)
LinkTekst = \"\"
A_Start = 1
if InStr(Tekst, \"http://\") then
do until A_Start >= len(Tekst)
LinkChr = InStr(A_Start, Tekst, \"http://\")
NextSpace = InStr(LinkChr, Tekst, \" \")
if NextSpace = 0 then NextSpace = Len(Tekst) + 1
URL = Mid(Tekst, LinkChr, NextSpace - LinkChr)
LinkTekst = LinkTekst & Mid(Tekst, A_Start, LinkChr - A_Start)
LinkTekst = LinkTekst & \"<A Href=\" & Chr(34) & URL & Chr(34) & \" target=blank>\" & URL & \"</A>\"
if Int(LinkChr) = Int(InStrRev(Tekst, \"http://\")) then
LinkTekst = LinkTekst & Mid(Tekst, NextSpace, Len(Tekst) - A_Start)
A_Start = Len(Tekst)
else
A_Start = NextSpace
end if
loop
else
LinkTekst = Tekst
end if
End Function
%>
<font face=\"Verdana\" size=\"1\" color=\"#000000\"><%=LinkTekst(Replace(rs(\"nyhed\")&\"\", vbCrLf, \" <BR> \"))%></font><font face=\"Verdana\" size=\"1\" color=\"#000000\">
<TABLE align=center border=0 cellPadding=1 cellSpacing=2 height=10
width=470>
<TR vAlign=top>
<TD align=middle bgColor=#69775B
style=\"border: 1px solid #000000\"
vAlign=middle width=75%>
<font color=\"#000000\" face=\"Verdana\" size=\"1\">Skrevet af: <a href=\"mailto:<% Response.Write Record(\"Email\") %>\"><% Response.Write Record(\"Forfatter\") %></a></font></TD></TR></TABLE>
</font>
</TD>
</TR></TBODY></TABLE></TD></TR></TABLE>
<%
\'rs.MoveNext
\'LOOP
\'RS.Close
conn.Close
Set conn = nothing
%>
</body>
</html>
