• 31-10-2013, 00:13:46
    #1
    www'suz tüm alt sayfaları www'lu haline yönelndirmeye çalışıyorum

    <%
    If InStr(Request.ServerVariables("SERVER_NAME"),"www" ) = 0 Then
    Response.Status="301 Moved Permanently"
    Response.AddHeader "Location","http://www."
    & Request.ServerVariables("HTTP_HOST")
    & Request.ServerVariables("REQUEST_URI")
    Response.End
    End if
    %>
    şu kodu eklediğimde çalışması gerek fakat


    Microsoft VBScript compilation error '800a0400'
    
    Expected statement
    
    /ADOVBS.inc, line 274
    
    & Request.ServerVariables("HTTP_HOST")
    ^
    hatası veriyor.

    ne yapmama lazım?

    şimdiden teşekkürler.
  • 31-10-2013, 00:26:15
    #2
    Response.AddHeader "Location","http://www." & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("REQUEST_URI")

    şeklinde tek satır yaparsan çalışır
  • 31-10-2013, 00:26:22
    #3
    If InStr(Request.ServerVariables("SERVER_NAME"),"www") = 0  Then
    Response.Status="301 Moved Permanently"
    Response.AddHeader "Location","http://www." & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("REQUEST_URI")
    Response.End
    End if
    olarak çalışır.
  • 31-10-2013, 00:26:34
    #4
    Şöyle düzeltmek gerekir.
    <%
    If InStr(Request.ServerVariables("SERVER_NAME"),"www" ) = 0 Then
    Response.Status="301 Moved Permanently"
    Response.AddHeader "Location","http://www." & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("REQUEST_URI")
    Response.End
    End if
    %>
  • 31-10-2013, 01:33:50
    #5
    TaGo adlı üyeden alıntı: mesajı görüntüle
    Response.AddHeader "Location","http://www." & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("REQUEST_URI")

    şeklinde tek satır yaparsan çalışır
    ZorluWEB adlı üyeden alıntı: mesajı görüntüle
    If InStr(Request.ServerVariables("SERVER_NAME"),"www") = 0  Then
    Response.Status="301 Moved Permanently"
    Response.AddHeader "Location","http://www." & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("REQUEST_URI")
    Response.End
    End if
    olarak çalışır.
    frdtrkc adlı üyeden alıntı: mesajı görüntüle
    Şöyle düzeltmek gerekir.
    <%
    If InStr(Request.ServerVariables("SERVER_NAME"),"www" ) = 0 Then
    Response.Status="301 Moved Permanently"
    Response.AddHeader "Location","http://www." & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("REQUEST_URI")
    Response.End
    End if
    %>
    adamların dibisiniz.
  • 31-10-2013, 01:51:20
    #6
    htaccess kullansan olmazmıydı ?