%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open ConnectionString
merchant_id=clng("0" & trim(Request("merchant_id")))
SQL_merchant="Select merchant_name from merchants where merchant_id=" & merchant_id
Set RS_merchant=Conn.Execute (SQL_merchant)
If not RS_merchant.EOF Then
merchant_name=RS_merchant("merchant_name")
End If
If merchant_id=100000 Then
%>
Site Under Construction
<%response.end
End If
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open ConnectionString
merchant_id=Request("merchant_id")
'get location id
page_number=Request("page")
if page_number="" Then
page_number="1"
End If
SQL="Select * from websites where merchant_id=" & merchant_id & "Order By Template_id DESC"
set RS_template=Conn.Execute(SQL)
If not RS_Template.EOF Then
location_id=RS_Template("location_id").Value
Session("location_id")
template_id=RS_Template("template_id").Value
'get the page names from the template
SQL="SELECT [template_id], [template_name], [page_1], [page_1_name], [page_2], [page_2_name], [page_3], [page_3_name], [page_4], [page_4_name], [page_5], [page_5_name], [page_6], [page_6_name], [page_7], [page_7_name], [page_8], [page_8_name], [page_9], [page_9_name], [page_10], [page_10_name],[page_11], [page_11_name], [page_12], [page_12_name], [page_13], [page_13_name], [page_14], [page_14_name], [page_15], [page_15_name], [page_16], [page_16_name], [page_17], [page_17_name], [page_18], [page_18_name], [page_19], [page_19_name], [page_20], [page_20_name] FROM [moneyjingle_new].[dbo].[Templates] Where template_id=" & template_id
'response.write SQL
'response.end
set RS_page=Conn.Execute(SQL)
page_1 =RS_page("page_1").Value
page_1_name =RS_page("page_1_name").Value
page_2 =RS_page("page_2").Value
page_2_name =RS_page("page_2_name").Value
page_3 =RS_page("page_3").Value
page_3_name =RS_page("page_3_name").Value
page_4 =RS_page("page_4").Value
page_4_name =RS_page("page_4_name").Value
page_5 =RS_page("page_5").Value
page_5_name =RS_page("page_5_name").Value
page_6 =RS_page("page_6").Value
page_6_name =RS_page("page_6_name").Value
page_7 =RS_page("page_7").Value
page_7_name =RS_page("page_7_name").Value
page_8 =RS_page("page_8").Value
page_8_name =RS_page("page_8_name").Value
page_9 =RS_page("page_9").Value
page_9_name =RS_page("page_9_name").Value
page_10 =RS_page("page_10").Value
page_10_name=RS_page("page_10_name").Value
page_11 =RS_page("page_11").Value
page_11_name =RS_page("page_11_name").Value
page_12 =RS_page("page_12").Value
page_12_name =RS_page("page_12_name").Value
page_13 =RS_page("page_13").Value
page_13_name =RS_page("page_13_name").Value
page_14 =RS_page("page_14").Value
page_14_name =RS_page("page_14_name").Value
page_15 =RS_page("page_15").Value
page_15_name =RS_page("page_15_name").Value
page_16 =RS_page("page_16").Value
page_16_name =RS_page("page_16_name").Value
page_17 =RS_page("page_17").Value
page_17_name =RS_page("page_17_name").Value
page_18 =RS_page("page_18").Value
page_18_name =RS_page("page_18_name").Value
page_19 =RS_page("page_19").Value
page_19_name =RS_page("page_19_name").Value
page_20 =RS_page("page_20").Value
page_20_name=RS_page("page_20_name").Value
'get the content of the page
'replace the page names links from the pages with the merchant_id and page number
'select the page_names from templates and view them as a list of links to their content
Select Case page_number
Case "1"
If ISNULL(page_1_name)=False Then
page_content=Replace(page_1,page_1_name,"../Sites/index.asp?merchant_id=" & merchant_id & "&page=1")
End If
If ISNULL(page_2_name)=False Then
page_content=Replace(page_content,page_2_name,"../Sites/index.asp?merchant_id=" & merchant_id & "&page=2")
End If
If ISNULL(page_3_name)=False Then
page_content=Replace(page_content,page_3_name,"../Sites/index.asp?merchant_id=" & merchant_id & "&page=3")
End If
If ISNULL(page_4_name)=False Then
page_content=Replace(page_content,page_4_name,"../Sites/index.asp?merchant_id=" & merchant_id & "&page=4")
End If
If ISNULL(page_5_name)=False Then
page_content=Replace(page_content,page_5_name,"../Sites/index.asp?merchant_id=" & merchant_id & "&page=5")
End If
If ISNULL(page_6_name)=False Then
page_content=Replace(page_content,page_6_name,"../Sites/index.asp?merchant_id=" & merchant_id & "&page=6")
End If
If ISNULL(page_7_name)=False Then
page_content=Replace(page_content,page_7_name,"../Sites/index.asp?merchant_id=" & merchant_id & "&page=7")
End If
If ISNULL(page_8_name)=False Then
page_content=Replace(page_content,page_8_name,"../Sites/index.asp?merchant_id=" & merchant_id & "&page=8")
End If
If ISNULL(page_9_name)=False Then
page_content=Replace(page_content,page_9_name,"../Sites/index.asp?merchant_id=" & merchant_id & "&page=9")
End If
If ISNULL(page_10_name)=False Then
page_content=Replace(page_content,page_10_name,"../Sites/index.asp?merchant_id=" & merchant_id & "&page=10")
End If
If ISNULL(page_11_name)=False Then
page_content=Replace(page_content,page_11_name,"../Sites/index.asp?merchant_id=" & merchant_id & "&page=11")
End If
If ISNULL(page_12_name)=False Then
page_content=Replace(page_content,page_12_name,"../Sites/index.asp?merchant_id=" & merchant_id & "&page=12")
End If
If ISNULL(page_13_name)=False Then
page_content=Replace(page_content,page_13_name,"../Sites/index.asp?merchant_id=" & merchant_id & "&page=13")
End If
If ISNULL(page_14_name)=False Then
page_content=Replace(page_content,page_14_name,"../Sites/index.asp?merchant_id=" & merchant_id & "&page=14")
End If
If ISNULL(page_15_name)=False Then
page_content=Replace(page_content,page_15_name,"../Sites/index.asp?merchant_id=" & merchant_id & "&page=15")
End If
If ISNULL(page_16_name)=False Then
page_content=Replace(page_content,page_16_name,"../Sites/index.asp?merchant_id=" & merchant_id & "&page=16")
End If
If ISNULL(page_17_name)=False Then
page_content=Replace(page_content,page_17_name,"../Sites/index.asp?merchant_id=" & merchant_id & "&page=17")
End If
If ISNULL(page_18_name)=False Then
page_content=Replace(page_content,page_18_name,"../Sites/index.asp?merchant_id=" & merchant_id & "&page=18")
End If
If ISNULL(page_19_name)=False Then
page_content=Replace(page_content,page_19_name,"../Sites/index.asp?merchant_id=" & merchant_id & "&page=19")
End If
If ISNULL(page_20_name)=False Then
page_content=Replace(page_content,page_20_name,"../Sites/index.asp?merchant_id=" & merchant_id & "&page=20")
End If
Select Case location_id
Case "1"
page_content=Replace(page_content,"