Hvordan får jeg forkortet denne servervaribel ned

hej

kan du ikke splitte den?

<%
varRef = Request.ServerVariables("HTTP_REFERER")

If Len(varRef) > 0 then

  arrDomain = Split(varRef, ".")
 
  if IsArray(arrDomain) = True then
      Response.Write "http://" & arrDomain(0) & "." & arrDomain(1) & "." & arrDomain(2)
  Else
      'fejl
  End if
Else
  ' ingen ref.
End if

/hiks


%>

Den splitter ikke som den skal

den skal jeg lige have forklaret.

hvordan ser det ud? kan du paste det ind her?

/hiks

arrDomain = Split(varRef, ".")
Det virker bedre med nedenstående
arrDomain = Split(varRef, "/")
så ser det bare mærkelig ud med http://

Så nu mangler jeg bare at den ikke skal udskrive de første 7 tegn

er det hver gang den ikke skal udskrive de første syv tegn?

de første syv tegn kan jo være arrDomain(0) - som du kan udelade!

Response.Write "http://" & arrDomain(1) & "." & arrDomain(2)

/hiks

Det var lige en øvelse jeg fin lært nok af, mange tak :-)
Nu virker det

jamen det var jo fint... Og jeg fik points så er vi begge glade... :o)

/hiks

Lige en lille ting til
hvordan får jeg erklæret resultatet som en variabel
jeg har prøvet med:
Dim domaene
domaene= "" & arrDomain(1) & "" & arrDomain(2) & ""
men det æder den ikke
Der er 30 point at hente igen :-)

den får du lige på huset:

Dim domaene

domaene = arrDomain(1) & "." & arrDomain(2)

response.write domaene

Mange tak, men det virker ikke :-(
Jeg skal ikke bruge punktummet

Dim domaene

domaene = arrDomain(1) & arrDomain(2)

Nu virker det.
Jeg havde fået trykket forkert, Undskyld besværet.
Vil du ikke have de 30 point?
Jens

narj - spar dem til en anden god gang!

/hiks

Så siger jeg mange tak
Jens