%dim Language,Title
Act=request("Act")
'session("Member_Name")="" 'for test only
conn.execute("Update Products set Hits=Hits+1 where Product_ID="&Product_ID)
set Configurations=server.CreateObject("ADODB.recordset")
Configurations.open "select * from Configurations",conn,1
if not (Configurations.bof and Configurations.eof) then
Title=Configurations("Page_Title_"&Language)
Url=configurations("Url")
else
TiTle="Untitled"
Url="http://www.home.net"
end if %>
<%
function Show_V_Times(para1)
if session("Now_Visting")<>"Now_Visting" then
conn.execute ("update V_Times set V_Times=V_Times+1")
end if
session("Now_Visting")="Now_Visting"
set V_Times_Rs=conn.execute("select V_Times.V_Times from V_Times")
Show_V_Times=Vistor_a(Prompt_Col)&""&V_Times_Rs("V_Times")&""&Vistor_b(Prompt_Col)
end function
function Show_Tel_Fax(Tel,Fax)
if Fax<>"" then
if Tel=Fax then
Show_Tel_Fax=Tel_Prompt_2(Prompt_Col)&Configurations("National_Code")&" "&Configurations("Local_Code")&" "&Tel
else
Show_Tel_Fax=Tel_Prompt_2(Prompt_Col)&Configurations("National_Code")&" "&Configurations("Local_Code")&" "&Tel&" "&Tel_Prompt_1(Prompt_Col)&Configurations("National_Code")&" "&Configurations("Local_Code")&" "&Fax
end if
else
Show_Tel_Fax=Tel_Prompt_2(Prompt_Col)&Configurations("National_Code")&" "&Configurations("Local_Code")&" "&Tel
end if
end function
%>