En lille ping dims

Jeg har den her lille ping kompenent:


<%
Set Pinger = Server.CreateObject(\"AspPing.Conn\")
Pinger.RemoteHost = \"www.optik.dk\"
Pinger.PingCount = 1
resultat = pinger.ping
if InStr(resultat,\"timeout\")<>0  then
  Response.write \"<img border=\'0\' src=\'ok.gif\'>\"
else
  Response.write \"<img border=\'0\' src=\'fejl.gif\'>\"
end if
Set Pinger = nothing
%>

Meningen var at den skulle returnere med enten ok.gif eller fejl.gif alt efter det svarer i den anden ene.....

Jeg har lagt det ind i et asp dokument, placeret det på en IIS men jeg får blot denne fejl her:

Fejltype:
Der opstod en Microsoft VBScript-kompileringsfejl (0x800A03EA)
Der er en syntaksfejl
/index.asp, line 12, column 33
Set Pinger = Server.CreateObject(\"AspPing.Conn\")