kun domain.dk

<%
name = \"http://www.hotbot.lycos.com/?MT=sendit+email&II=10&RPN=2&SQ=1&TR=2290 : 1\"
domainpos = instrrev(name, \".\")
alias = left(name, domainpos - 1)
domainpos = instrrev(alias, \".\")
domain = mid(name, domainpos + 1)

også lige en %> til sidst

Eller nok nærmere:

<%
name = \"http://www.hotbot.lycos.com/?MT=sendit+email&II=10&RPN=2&SQ=1&TR=2290 : 1\"
domainpos1 = instrrev(name, \".\")
alias = left(name, domainpos - 1)
domainpos2 = instrrev(alias, \".\")
domain = mid(name, domainpos2 + 1, domainpos1 + len(alias))
%>

Invalid procedure call or argument: \'left\'

stadig: Invalid procedure call or argument: \'left\'

Sådan her:

<%
name = \"http://www.hotbot.lycos.com/?MT=sendit+email&II=10&RPN=2&SQ=1&TR=2290 : 1\"
domainpos1 = instrrev(name, \".\")
alias = left(name, domainpos1 - 1)
domainpos2 = instrrev(alias, \".\")
domain = mid(name, domainpos2 + 1, domainpos1 + len(alias))
%>

giver et udkast på
dk/d.asp

hvis stien er http://www.sendit.dk/d.asp

Så vil jeg heller at den skoder ved hotbot.lycos.com en ved http://www.sendit.dk/d.asp

hvis ikke det kan laves anderledes.

<%
name = \"http://www.hotbot.lycos.com/?MT=sendit+email&II=10&RPN=2&SQ=1&TR=2290 : 1\"
domainpos1 = instrrev(name, \".\")
alias = left(name, domainpos1 - 1)
domainpos2 = instrrev(alias, \".\")
domain = mid(name, domainpos2 + 1, domainpos1 + len(alias))
if instr(domain, \"/\") then
domainpos3 = instr(domain, \"/\")
domain = mid(domain, 1, domainpos3 - 1)
end if
response.write(domain)
%>

Hm...

<%
name = \"http://www.hotbot.lycos.com/?MT=sendit+email&II=10&RPN=2&SQ=1&TR=2290 : 1\"
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)
response.write(name)
%>

Endnu bedre

<%
name = \"http://www.sendit.dk/d.asp\"
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)
%>

Regulære udtryk er skabt til den slags problemer. Prøv dette:

Dim objRegExp
Dim strURL

strURL = \"http://www.hotbot.lycos.com/?MT=sendit+email&II=10&RPN=2&SQ=1&TR=2290\"

Set objRegExp = New RegExp

With objRegExp
  .Pattern = \"http://([-a-zA-Z0-9]+\\.)*([-a-zA-Z0-9]+\\.[-a-zA-Z0-9]+)/.+\"
  .Global = False
  .IgnoreCase = True
End With

Response.Write(objRegExp.Execute(strURL)(0).SubMatches(1))

Vil dog kun virke i VBScript version 5.5 eller senere, da tidligere versioner af VBScripts regulære udtryk ikke understøttede SubMatches.

Oh well, hvis I insisterer på at gøre strenghåndteringsarbejdet, når sproget kan gøre det for Jer... :-)