%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
'connect to database
Set conn = OpenOrGet_Database("str_conn")
'recieve the tablename
dim str_tablename
str_tablename = "TC_Index_Pages_AD"
Dim strSQL
strSQL = " SELECT * FROM ["&str_tablename&"] "
Function ShowFileByType(argFileName,argFileWidth,argFileHeight)
if len(argFileName)=0 then
ShowFileByType = ""
else
if right(argFileName,4)=".swf" then
ShowFileByType = ""
else
ShowFileByType = ""
end if
end if
End Function
set selectrs = open_rs(conn,strSQL)
if selectrs.eof and selectrs.bof then
str_photoA = ""
str_photoB = ""
str_photoC = ""
str_photoD = ""
str_photoA_URL = ""
str_photoB_URL = ""
str_photoC_URL = ""
str_photoD_URL = ""
else
str_photoA = showFileByType(selectrs("Index_Pages_AD_PhotoA"),264,264)
str_photoB = showFileByType(selectrs("Index_Pages_AD_PhotoB"),264,71)
str_photoC = showFileByType(selectrs("Index_Pages_AD_PhotoC"),264,71)
str_photoD = showFileByType(selectrs("Index_Pages_AD_PhotoD"),264,71)
str_photoA_URL = selectrs("Index_Pages_AD_PhotoA_URL")
str_photoB_URL = selectrs("Index_Pages_AD_PhotoB_URL")
str_photoC_URL = selectrs("Index_Pages_AD_PhotoC_URL")
str_photoD_URL = selectrs("Index_Pages_AD_PhotoD_URL")
end if
if len(trim(str_photoA_URL)) = 0 then str_photoA_URL="#"
if len(trim(str_photoB_URL)) = 0 then str_photoB_URL="#"
if len(trim(str_photoC_URL)) = 0 then str_photoC_URL="#"
if len(trim(str_photoD_URL)) = 0 then str_photoD_URL="#"
%>