debug /optimmere aspfil
Er der en der kan debug og optimmere denne asp fil ?<%
domain = Lcase(Request.ServerVariables(\"SERVER_NAME\"))
If left(domain, 4) = \"www.\" Then
domain = Mid(domain, 5)
End if
Response.Write(\"<html>\")
Response.Write(\"<head>\")
Response.Write(\"<title></title>\")
Response.Write(\"</head>\")
Response.Write(\"<frameset framespacing=\"\"0\"\" border=\"\"0\"\" rows=\"\"0,*\"\" frameborder=\"\"0\"\">\")
Response.Write(\"<frame name=\"\"aboutblank\"\" src=\"\"about:blank\"\" target=\"\"_self\"\" scrolling=\"\"no\"\">\")
If domain = \"cleopatra-pizza.dk\" Then
id = \"2\"
End if
\'Response.Write(id)
Response.Write(\"<frame name=\"\"headframe\"\" src=\"\"http://www.cleopatra-pizza.dk/pizza2/default.asp?id=\" & id & \"\"\" target=\"\"_self\"\" scrolling=\"\"auto\"\">\")
Response.Write(\"<noframes></noframes>\")
Response.Write(\"</frameset>\")
Response.Write(\"</html>\")
%>
