ASP problem (skriva html i nyheten)|Programmering / Grafisk formgivning|Forum|Nordichardware

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,"$1$2")

regExp.Pattern = "(ftp://)([S]*)"
strText = regExp.Replace(strText,"$1$2")

regExp.Pattern = "([S]*@[S]*[.se|.com|.nu|.net|.org])"
strText = regExp.Replace(strText,"$1")

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

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

strText = Replace(Trim(strText),vbCrLf, "
")

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%>

<%Else With RecSet
.MoveFirst
.PageSize = NyhetPerSida
.AbsolutePage = sida
End With

Sidor = RecSet.PageCount
x = 0
Do While Not RecSet.EOF And x < RecSet.PageSize%>

<%x=x+1
RecSet.MoveNext
Loop
RecSet.Close
If Sidor > 1 Then%>

<%End If
End If
End If
If Request.QueryString("ID") <> "" Then
Set RS=Conn.Execute("Select * From news Where id=" & Request.QueryString("ID"))%>

<%End If%>

<%End If%>