Opdele streng

Brug regular expression.

javascript

a = HTTP_REFERER;
a = a.replace(/(http://.*[^/])/gi,$1);

Du kunne bruge Request.ServerVariables("HOST_NAME") el. Request.ServerVariables("SERVER_NAME") ...

Hvis du kun vil have filnavnet skal du bare bruge denne:

strFilename = Mid(Request.ServerVariables("PATH_INFO"),InStrRev(Request.ServerVariables("PATH_INFO"),"/")+1)

Det skulle være

a = a.replace(/http://[^/]*)/gi,"$1");

// atoft

har du løsningen i VBScript

// melander

Din sidste linie giver rigtig nok kun filnavnet, men det er lige præcis det jeg ikke gider at have jeg vil kun have http://www.mitlink.dk og ikke andet.

Kan du hjælpe her?

Kan du ikke bruge Request.ServerVariables("HOST_NAME") el. Request.ServerVariables("SERVER_NAME") ...

ellers prøver jeg lige at bikse noget sammen ...

Nej, det giver ikke noget resultat.
Jeg har undersøgt det lidt nærmere og jeg skal bruge HTTP_REFERER.
For at få strenge ud skriver jeg:

hostfra = Request.ServerVariables("HTTP_REFERER")

Nu vil jeg kun have http://www.mitlink.dk og ikke http://www.mitling.dk/index.asp

Jeg kunne forestille mig at man skal lede efter den 3 / og så fjerne alt der kommer derefter. Således man kun har http://www.mitlink.dk tilbage.

Følgende funktion er lånt fra MSDN'en

Function ReplaceTest(patrn, replStr)
  Dim regEx, str1              ' Create variables.
  str1 = "The quick brown fox jumped over the lazy dog."
  Set regEx = New RegExp            ' Create regular expression.
  regEx.Pattern = patrn            ' Set pattern.
  regEx.IgnoreCase = True            ' Make case insensitive.
  ReplaceTest = regEx.Replace(str1, replStr)  ' Make replacement.
End Function

Nu skulle du kunne bruge

MsgBox(ReplaceTest("(http://[^/]*)/", "$1"))

Det var noget fordrukken sludder jeg. Vender tilbage.

Torben gav mig en ide, derfor pointene.

Ok, tak for point :-)