Det var så det. Nu er den lavet så den finder
\"src=\" og finder næste \", \' eller mellemrum (\" \") og tager derfra. På den måde kan src= værdien være midt i <img> tagget, starten eller slutningen
<%
Function FixImgPaths(strDocument)
Index = 1
Do
Index = InStr(Index, LCase(strDocument), \"src=\"): If Index = 0 Then Exit Do
Index = Index + 4
EndIndex = InStr(Index + 1, LCase(strDocument), Chr(34))
If EndIndex = 0 Then EndIndex = InStr(Index + 1, LCase(strDocument), \"\'\")
If EndIndex = 0 Then EndIndex = InStr(Index + 1, LCase(strDocument), \" \")
If EndIndex = 0 Then Exit Do
strFile = Mid(strDocument, Index, (EndIndex - Index) + 1)
If Instr(strFile, \"\\\") > 0 Then
strFileX = Right(strFile, Len(strFile) - InStrRev(strFile, \"\\\"))
If Right(strFileX, 1) = \"\'\" Or Right(strFileX, 1) = Chr(34) Then
strChar = Right(strFileX, 1)
strFileX = Left(strFileX, Len(strFileX) - 1)
End If
strDocument = Replace(strDocument, strFile, strChar & strFileX & strChar)
End If
Index = Index + 1
Loop
FixImgPaths = strDocument
End Function
strImgs = \"<IMG align=right alt=\'Jeanne vandt bronze\' border=2 hspace=3 src=\'D:\\Inetpub\\wwwroot\\verdenmesterskab\\new\\profiler\\jeanne.jpg\' vspace=3> <b>gjsjgjs gdf</b> YI HAAAA!!! <img src=\'c:\\det\\her\\lugter.jpg\'>\"
Response.Write FixImgPaths(strImgs)
%>
