August 22, 2002
![sp_UserOfflineSmall](https://nordichardware.se/wp-content/sp-resources/forum-themes/reboot/images/darkpack/sp_UserOfflineSmall.png)
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%>
Inga nyheter för år2003 inlagda! | |||
<%=FormatDateTime(RecSet("datum"),2)%> - ?ID=<%=RecSet(">">[b]<%=RecSet("rubrik")%> | |||
<%For Sid = 1 To Sidor If (Int(Sid)) = (Int(sida)) Then%><%=Sid%><%Else%> ?sida=<%=Sid%>"><%=Sid%> <%End If Next%> |
|||
[Image Can Not Be Found]" border="1" width="<%=Width%>"> | [Image Can Not Be Found] | <%=RS("rubrik")%> - <%=FormatDateTime(RS("datum"),2)%> | |
<%=Link(RS("nyhet"))%> | |||
">« Tillbaka ! |
1 Guest(s)
![sp_Information](https://nordichardware.se/wp-content/sp-resources/forum-themes/reboot/images/darkpack/sp_Information.png)