<!--#include file="conn/conn.asp" -->
<!--#include file="conn/function.asp" -->
<%
if C_close=1 then:response.Redirect("close.html"):end if:if C_todomain<>"empty" and C_todomain<>"" and  C_todomain<>C_domain then:response.Redirect "http://"&C_todomain:end if:if C_first=1 then:response.Redirect("install.asp"):end if:if request.QueryString("M_id")<>"" and request.QueryString("auth")<>"" then:call auth(request.servervariables("HTTP_HOST")&"|"&request.QueryString("M_id")&"|"& request.QueryString("auth")):end if:if request.QueryString("type")="" then:U_type="index":else:U_type=request.QueryString("type"):end if:if request.QueryString("S_id")="" then:S_id=1:else:S_id=request.QueryString("S_id"):end if:If WAPstr()=true and W_show=2 Then    :response.redirect "wap_index.asp?type="&request.QueryString("type")&"&S_id="&request.QueryString("S_id"):response.end():End if:if C_html=1 and U_type<>"index" then:response.Redirect "html/"&C_template&"/"&U_type&"_"&S_id&".html":end if:select case request.QueryString("type"):case "index":Response.Write ReplaceLableFlag(ReplaceTag(CreateHTMLReplace(ReplacePart(CreateIndex(LoadTemplate("index")))))):case "contact":Response.Write ReplaceLableFlag(ReplaceTag(CreateHTMLReplace(ReplacePart(CreateContact(LoadTemplate("contact")))))):case "guestbook":Response.Write ReplaceLableFlag(ReplaceTag(CreateHTMLReplace(ReplacePart(CreateGuestbook(LoadTemplate("guestbook")))))):case "text":Response.Write ReplaceLableFlag(ReplaceTag(CreateHTMLReplace(ReplacePart(CreateText(LoadTemplate("text"),request.QueryString("S_id")))))):case "form":Response.Write ReplaceLableFlag(ReplaceTag(CreateHTMLReplace(ReplacePart(CreateForm(LoadTemplate("form"),request.QueryString("S_id")))))):case "news":Response.Write ReplaceLableFlag(ReplaceTag(CreateHTMLReplace(ReplacePart(CreateNewsList(LoadTemplate("news"),request.QueryString("S_id")))))):case "newsinfo":Response.Write ReplaceLableFlag(ReplaceTag(CreateHTMLReplace(ReplacePart(CreateNewsInfo(LoadTemplate("newsinfo"),request.QueryString("S_id")))))):case "product":Response.Write ReplaceLableFlag(ReplaceTag(CreateHTMLReplace(ReplacePart(CreateProductList(LoadTemplate("product"),request.QueryString("S_id")))))):case "productinfo":Response.Write ReplaceLableFlag(ReplaceTag(CreateHTMLReplace(ReplacePart(CreateProductInfo(LoadTemplate("productinfo"),request.QueryString("S_id")))))):case else:Response.Write ReplaceLableFlag(ReplaceTag(CreateHTMLReplace(ReplacePart(LoadTemplate("index"))))):end select:
%>