<% siteURLVal= Request.serverVariables("SERVER_NAME") set conntemp=server.createobject("adodb.connection") %> <% DSNtemp="DSN=marketdata;uid=pixarch;pwd=M1cR0$" %> <% curDateVal = SPLIT(DateSerial(Year(Date), Month(Date), Day(Date)-1),"/") conntemp.Open DSNtemp sqltemp="SELECT dbo.wfSites.Company, BannerTitle, SiteID FROM dbo.wfSites where dbo.wfSites.URL='"&siteURLVal&"'" set rstemp=conntemp.execute(sqltemp) SiteNameVal=rstemp(0) BannerVal=rstemp(1) CompanyIDVal=rstemp(2) rstemp.close set rstemp=nothing conntemp.close set conntemp=nothing %> <%=SiteNameVal%>
Catchall Press
<%=BannerVal%>

NEWLY RELEASED TITLES

<% set conntemp=server.createobject("adodb.connection") %> <% DSNtemp="DSN=marketdata;uid=pixarch;pwd=M1cR0$" %> <% curDateVal = SPLIT(DateSerial(Year(Date), Month(Date), Day(Date)-1),"/") conntemp.Open DSNtemp sqltempVal="SELECT COUNT(dbo.wfBooks.BookID) FROM wfBooks, wfAuthors where wfBooks.AuthID=wfAuthors.AuthID and wfBooks.IsHome >0 and dbo.wfAuthors.SiteID="&CompanyIDVal set rstemp=conntemp.execute(sqltempVal) TotalRecs=rstemp(0) rstemp.close set rstemp=nothing conntemp.close set conntemp=nothing if TotalRecs <> "" then TotalRecs=FormatNumber(TotalRecs) %> <% set Ctemp=server.createobject("adodb.connection") %> <% DSNtemp="DSN=marketdata;uid=pixarch;pwd=M1cR0$" %> <% Ctemp.Open DSNtemp sqltempVal="SELECT dbo.wfBooks.BookID, ReleaseDate FROM wfBooks, wfAuthors where wfBooks.IsHome > 0 and wfBooks.AuthID=wfAuthors.AuthID and dbo.wfAuthors.SiteID="&CompanyIDVal& " ORDER BY wfBooks.IsHome" set RS=Ctemp.execute(sqltempVal) bookNum=0 do while not RS.eof whichbook=RS(0) if bookNum =0 then %>
<%end if if bookNum =1 then %>
<%end if if bookNum =2 then %>
<%end if if bookNum =3 then %>
<%end if if bookNum =4 then %>
<%end if if bookNum =5 then %>
<%end if if bookNum =6 then %>
<%end if if bookNum =7 then %>
<%end if if bookNum =8 then %>
<%end if if bookNum =9 then %>
<%end if if bookNum =10 then %>
<%end if if bookNum =11 then %>
<%end if set conntemp=server.createobject("adodb.connection") %> <% DSNtemp="DSN=marketdata;uid=pixarch;pwd=M1cR0$" %> <% conntemp.Open DSNtemp sqltemp="select distinct dbo.wfBooks.BookID, MainTitle, SubTitle, ReleaseDate, wfBookType.Style, UseSamples, PayPalOn, FirstName, MiddleName, LastName, RegPrice, SalePrice, Shipping, Company, BannerTitle, EmailContact, EmailOn, wfImages.URL, Width, Height, smTitle " sqltemp= sqltemp & " from wfAuthors, wfBooks, wfPrices, wfUsers, wfSites, wfBookType, wfImages " sqltemp= sqltemp & " where wfAuthors.AuthID=wfBooks.AuthID and wfPrices.BookID="& whichbook &" and wfBookType.SiteID=dbo.wfSites.SiteID and wfBookType.TypeID=wfBooks.Style and dbo.wfUsers.SiteID = dbo.wfSites.SiteID and dbo.wfImages.BookID=wfBooks.BookID and dbo.wfImages.Type=0 and dbo.wfBooks.BookID=" & whichbook set rstemp=conntemp.execute(sqltemp) BookIDVal=rstemp(0) MainTitleVal=rstemp("MainTitle") SubTitleVal=rstemp("SubTitle") ShortTitleVal=rstemp("smTitle") ReleaseDateVal=rstemp("ReleaseDate") StyleVal=rstemp(4) UseSamplesVal=rstemp("UseSamples") PayPalOnVal=rstemp("PayPalOn") FirstNameVal=rstemp("FirstName") MiddleNameVal=rstemp("MiddleName") LastNameVal=rstemp("LastName") RegPriceVal=rstemp("RegPrice") RegPriceVal=FormatNumber(RegPriceVal,2) SalePriceVal=rstemp("SalePrice") if SalePriceVal <> "" then SalePriceVal=FormatNumber(SalePriceVal,2) ShippingVal=rstemp("Shipping") EmailContactVal=rstemp("EmailContact") EmailOnVal=rstemp("EmailOn") Dim DtCode DtCode = Split(ReleaseDateVal, "/", -1, 1) if ShippingVal <> "" then ShippingVal=FormatNumber(ShippingVal,2) SiteNameVal=rstemp("Company") BannerVal=rstemp("BannerTitle") ImgIconVal=rstemp(17) ImgIconW=rstemp(18) ImgIconH=rstemp(19) rstemp.close set rstemp=nothing conntemp.close set conntemp=nothing %>
<%=MainTitleVal%>
<% if PayPalOnVal=1 then %>
<%=LastNameVal%>"/>
<%end if%>
<%if ShortTitleVal <> "" then%> <%=ShortTitleVal%> <%else%> <%=MainTitleVal%>  <%=SubTitleVal%> <%end if%>
<%=FirstNameVal%> <%=MiddleNameVal%> <%=LastNameVal%>

<%=MonthName(DtCode(0)) & " " & DtCode(2)%>, <%=StyleVal%>
<%if SalePriceVal >0 then %>$<%=RegPriceVal%> $<%=SalePriceVal%> <%else%> $<%=RegPriceVal%> <%end if%>

<% if bookNum=1 or bookNum=3 or bookNum=5 or bookNum=7 then %>
<%end if if bookNum=9 then %>
<% end if if bookNum=11 then%>
<% end if bookNum=bookNum+1 RS.movenext loop RS.close set RS=nothing Ctemp.close set Ctemp=nothing %>


The Catchall Press