because it is friend... VB

Hi,
I coded this:
Public Class all Public Sub allhead() Dim nowi As Date = Now().AddDays(30) Dim l As String = HttpContext.Current.Request.QueryString("l") Dim sname As String = HttpContext.Current.Request.ServerVariables("SERVER_NAME") Dim tld As String = "" If InStr(sname, ".at") > 0 Then tld = "at" Else tld = "eu" End If If l = "de" Or InStr(sname, ".at") > 0 Or InStr(sname, ".de") > 0 Then HttpContext.Current.Response.Cookies("l").Value = "DE" HttpContext.Current.Response.Cookies("l").Expires = nowi ElseIf l = "fr" Then HttpContext.Current.Response.Cookies("l").Value = "FR" HttpContext.Current.Response.Cookies("l& ...