oyyla.com da siteye login olabiliyorum bi kerelik ama sonra tekrar ana sayfayı çektiğimde giriş yapın yazısı cıkıyo

kodları veriyim

dim xml,url
url = "http://www.oyyla.com/login.php"
set xml = Server.CreateObject("MSXML2.ServerXMLHTTP.3.0")

xml.Open "POST", url, false
xml.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
xml.SetRequestHeader "cookie", Request.ServerVariables("HTTP_COOKIE")

xml.Send "username=deneme&password=deneme&processlogin=1&return=/"

response.Write xml.responsetext
Set xml = nothing

dim xmll,urll
url = "http://www.oyyla.com/"
set xmll = Server.CreateObject("MSXML2.ServerXMLHTTP.3.0")
xmll.Open "POST", url, false
xmll.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
xmll.Send "canafar"
response.Write xmll.responsetext
set xmll = nothing

ilk kısım da doğru username ve password girildiğinde login olup anasayfaya atıyo

ama tekrar ana sayfayı çektiğim de sağ üstte gene "giriş" yazısı cıkıyo yani login olmamış

getResponseHeader("set-cookie") yi ekrana bastırdğımda da cookie yok diyor.

bunu nasıl çözerim yardımcı olurmusunuz

ek not :

api kadar güzel bişi var mı yav

function identi(msg,user,pass)
dim xml,url
url = "http://identi.ca/api/statuses/update.xml"
set xml = Server.CreateObject("MSXML2.ServerXMLHTTP.3.0")
xml.Open "POST", url, false, user, pass
xml.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
xml.Send "status=" & server.URLencode(msg)
identi = xml.responseText
Set xml = nothing

end Function

keşke her sitenin apisi olsa =))