<% Dim sEspotting_ContentIdentifier, sEspotting_XSLFileName, lEspotting_Hits, bJavaScriptInclude, sEspotting_OutPutHTML bJavaScriptInclude = Request.QueryString("Espotting_JavaScriptInclude") if CBool(bJavaScriptInclude) <> True Then bJavaScriptInclude = False sEspotting_XSLFileName = Request.QueryString("Espotting_XSLFileName") sEspotting_ContentIdentifier = Request.QueryString("Espotting_ContentIdentifier") lEspotting_Hits = Request.QueryString("Espotting_Hits") sEspotting_OutPutHTML = createEspottingContentPage (sEspotting_ContentIdentifier, sEspotting_XSLFileName, lEspotting_Hits) If bJavaScriptInclude Then Dim Espotting_aOutPutHTML, Espotting_Counter, Espotting_HTMLTextLine Espotting_aOutPutHTML = Split(sEspotting_OutPutHTML, vbCrLf) For Espotting_Counter = LBound(Espotting_aOutPutHTML) To UBound(Espotting_aOutPutHTML) Espotting_HTMLTextLine = Espotting_aOutPutHTML(Espotting_Counter) Espotting_HTMLTextLine = Replace(Espotting_HTMLTextLine, "\", "\\") Espotting_HTMLTextLine = Replace(Espotting_HTMLTextLine, "'", "\'") Espotting_HTMLTextLine = Replace(Espotting_HTMLTextLine, """", "\""") Response.Write "document.write('" & Espotting_HTMLTextLine & "');" & vbCrLf Next Else Response.Write sEspotting_OutPutHTML End If %>