%
Function StripHTML(ByRef asHTML)
Dim loRegExp ' Regular Expression Object
' Create built in Regular Expression object
Set loRegExp = New RegExp
' Set the pattern to look for HTML tags
loRegExp.Pattern = "<[^>]*>"
' Return the original string stripped of HTML
StripHTML = loRegExp.Replace(asHTML, "")
' Release object from memory
Set loRegExp = Nothing
End Function
sub getData()
' set objcon = server.createObject("adodb.Connection")
'*** objcon.open "Provider=SQLOLEDB;Data Source =WEBSRV01;Initial Catalog=WebPublic; User ID=sa; Password=MelGibson;"
' objcon.open "Provider=SQLNCLI;Data Source=WEBSRV01\sqlexpress;Initial Catalog=WebPublic; User ID=sa; Password=MelGibson;"
' set sqlsmt = server.createobject("adodb.command")
' set rs = server.createobject("adodb.recordset")
' sqlsmt.commandtype =1
' set sqlsmt.activeconnection = objcon
' sqlsmt.commandtext ="select * from WP_News order by Title desc"
' rs.open sqlsmt
' do while not rs.EOF
' response.write(""&StripHTML(rs("Title"))&"
")
' rs.moveNext
' loop
end sub
sub getTenders()
' set objcon = server.createObject("adodb.Connection")
'*** objcon.open "Provider=SQLOLEDB;Data Source =WEBSRV01;Initial Catalog=WebPublic; User ID=sa; Password=MelGibson;"
' objcon.open "Provider=SQLNCLI;Data Source=WEBSRV01\sqlexpress;Initial Catalog=WebPublic; User ID=sa; Password=MelGibson;"
' set sqlsmt = server.createobject("adodb.command")
' set rs = server.createobject("adodb.recordset")
' sqlsmt.commandtype =1
' set sqlsmt.activeconnection = objcon
' sqlsmt.commandtext ="select * from WP_Tender order by Title desc"
' rs.open sqlsmt
' do while not rs.EOF
' response.write(""&StripHTML(rs("Descr"))&"
")
' rs.moveNext
' loop
end sub
%>
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||
|
|
||||||||||||||||||||||||||||||||||||||||||||||||||||
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||