Google Analytics Tracking

<%
Dim sGoogleCode, iCt

Function Repler(sRepler)
    Repler = sRepler
    If sRepler <> "" Then Repler = Replace(sRepler, ",", "")
End Function

...

If rs.EOF = False Then
  sGoogleCode = "_addTrans," & rs("id") & ",Company Name," & Repler(rs("total")) & "," & Repler(rs("tax")) & "," & Repler(rs("freightcharge")) & "," & Repler(rs("scity")) & "," & Repler(rs("sstate")) & ",USA" & vbCrLf
%>

...

<%
sGoogleCode =sGoogleCode & "_addItem," & rs("id") & "," & Repler(rs("part")) & "," & Repler(rs("sdescript")) & "," & Repler(rs("n404")) & "," & Repler(rs("price")) & "," & Repler(rs("qty")) & vbCrLf
rs.MoveNext
Loop
rs.MoveFirst
%>

...

<script type="text/javascript">

    var _gaq = _gaq || [];
        _gaq.push(['_setAccount', 'UA-xxxxxx-1']);
        _gaq.push(['_trackPageview']);
        _gaq.push([<%=sGoogleCode%>
    ]);
    _gaq.push(['_trackTrans']);

</script>