ASP problem (skriva html i nyheten)

2003-01-02 14:52

Permalänk

tank82

Medlem

Registrerad: Nov 2002

●

ASP problem (skriva html i nyheten)

Hejsan,
Vad ska jag lägga till/ta bort i koden så jag kan skriva html kod i nyheterna? Tack på förhand!

<%
NyhetPerSida = 200
URL = "nyheter.asp"
db = Server.MapPath("/db/news.mdb")
Width = "200"
%>
<%Function Link(strText)

Set regExp = New regexp

regExp.Global = true
regExp.IgnoreCase = true

regExp.Pattern = "(http://|www)([\S]*)"
strText = regExp.Replace(strText,"<a href=""http://$1$2"" target=""_blank"">$1$2</a>")

regExp.Pattern = "(ftp://)([\S]*)"
strText = regExp.Replace(strText,"<a href=""$1$2"" target=""_blank"">$1$2</a>")

regExp.Pattern = "([\S]*@[\S]*[.se|.com|.nu|.net|.org])"
strText = regExp.Replace(strText,"<a href=""mailto:$1"" target=""_blank"">$1</a>")

regExp.Pattern = "([.|,|!|?|:|;|)|\|&]]*)</a> "
strText = regExp.Replace(strText,"</a>$1 ")

regExp.Pattern = "([.|,|!|?|:|;|)|\|&]]*)"" target=""_blank"">([^<]*)</a>"
strText = regExp.Replace(strText,""">$2</a>")

strText = Replace(Trim(strText),vbCrLf, "<br>")

Link = strText ' Skriver ut texten, uppdelad och fin!

End Function%>

<%Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & db

If Request.QueryString("ID") = "" Then

Set RecSet = Server.CreateObject("ADODB.Recordset")
Sidan = Request.QueryString("sida")
If Sidan = "" then
sida = 1
Else
sida = Sidan
End If

With RecSet
.CursorLocation = 3
.CacheSize = NyhetPerSida
End With

SQL = "SELECT * FROM news Order By id desc"
RecSet.Open SQL, Conn

If RecSet.EOF Then%>
<tr>
<td>Inga nyheter för år2003 inlagda!</td>
</tr>
<%Else

With RecSet
.MoveFirst
.PageSize = NyhetPerSida
.AbsolutePage = sida
End With

Sidor = RecSet.PageCount
x = 0
Do While Not RecSet.EOF And x < RecSet.PageSize%>
<tr>
<td><font face="Verdana"><%=FormatDateTime(RecSet("datum"),2)%> - <a href="<%=URL%>?ID=<%=RecSet("ID")%>"><%=RecSet("rubrik")%></a></td><td><font face="Verdana"><font face="Verdana"></td>
</tr>
<%x=x+1
RecSet.MoveNext
Loop
RecSet.Close
If Sidor > 1 Then%>
<tr>
<td valign="top" colspan="2" style="border-top: 1px solid #000000">
<%For Sid = 1 To Sidor
If (Int(Sid)) = (Int(sida)) Then%><%=Sid%><%Else%> <a href="<%=URL%>?sida=<%=Sid%>"><%=Sid%></a> <%End If
Next%>
</td>
</tr>
<%End If
End If
End If
If Request.QueryString("ID") <> "" Then
Set RS=Conn.Execute("Select * From news Where id=" & Request.QueryString("ID"))%>
<tr>
<%If RS("bild") <> "" Then%>
<td rowspan="3" valign="top"><img src="nyheter/<%=RS("bild")%>" border="1" width="<%=Width%>"></td>
<td rowspan="3" width="5"> </td>
<%End If%>
<td width="6%"><img src="nyheter/bilder/nytt.gif" border="0" valign="middle"></td><td width="94%"><font face="Verdana"><%=RS("rubrik")%> - <%=FormatDateTime(RS("datum"),2)%></td>
</tr>
<tr>
<td colspan="2"><font face="Verdana"><%=Link(RS("nyhet"))%></td>
</tr>
<tr>
<td colspan="2"><font face="Verdana"><br><a href="<%=URL%>">« Tillbaka !</a></td>
</tr>
<%End If%>
</table>