Jeg tænkte på om noget lign. det her ikke kunne virke
<%
Set regEx = New RegExp ' Create a regular expression.
regEx.Pattern = "<a href="?" target="?">"
regEx.IgnoreCase = True ' Set case insensitivity.
regEx.Global = True ' Set global applicability.
Set Matches = regEx.Execute(Streng) ' Execute search.
Set regEx2 = New RegExp ' Create a regular expression.
regEx2.Pattern = "<a href="(?)">"
regEx2.IgnoreCase = True ' Set case insensitivity.
regEx2.Global = True ' Set global applicability.
Set Matches2 = regEx2.Execute(Streng) ' Execute search.
Streng = "<a href="
www.delle.com">linket<a/>"If Matches.Count = Matches2.Count then
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DSN"
SQL = "Insert into tabel(kolonne) values('" & Streng & "')"
Conn.Execute(SQL)
Conn.Close
Set Conn = Nothing
Else
Do While Not Mathches.Count < Matches2
Streng = Replace(Streng, <a href=""" & matches2.value & """>, <a href=""" & matches2.Value & """ target="Rammen">
Loop
If Matches.Count = Matches2.Count then
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DSN"
SQL = "Insert into tabel(kolonne) values('" & Streng & "')"
Conn.Execute(SQL)
Conn.Close
Set Conn = Nothing
End If
Response.Write "" & Streng & ""
end function
%>
Måske er der lidt fejl men som sagt er det ikke noget jeg bruger normalt.