Hjælp til fejl på denne kode ???

Hejsa !

Jeg sider og er ved at lave et udtræk fra en db hvor
jeg skal lave et link om fra at være :

http://www.eksperten.dk/opretspm.phtml?id=3

Til at være :

eksperten.dk

Men jeg får fejl som ser sådan her ud :

Error Type:
Microsoft VBScript runtime (0x800A0005)
Invalid procedure call or argument: \'mid\'
/Asp-Counter/Links.asp, line 88

Og det er på følgende kode den opstår :

<%
Do While Not RsTop10.EOF
Name = RsTop10(\"Referent\")

If Left(Name, 7) = \"http://\" then
  Name = mid(Name, 8)
End If

If Left(Name, 4) = \"www.\" then
  Name = mid(Name, 5)
End If

domainpos = instr(name, \"/\")
name = mid(name, 1, domainpos-1)
counter = 0
for i = 1 to len(name)

if mid(name, i, 1) = \".\" then
  counter = counter + 1
end if

next

if counter > 1 then
  domainpos = instr(name, \".\")
  name = mid(name, domainpos + 1)
end if

response.write(Name)
response.write \"<br>\"
RsTop10.MoveNext
Loop
%>

Hvor det er denne linie \"name = mid(name, 1, domainpos-1)\" der er tale om.

Håber nogen kan hjælpe mig vidre Mvh. Martin