<% if request.querystring("mode") = "email" then call joinEmailList sub joinEmailList mailVal = True sEmail = trim(request("email")) If Len(sEmail) < 5 Then mailVal = False Else If InStr(1, sEmail, "@", 1) < 2 Then mailVal = False Else If InStr(1, sEmail, ".", 1) = 0 Then mailVal = False End If End If End If if mailVal = false then session("errMessage") = "Incorrect
Email Format" else session("errMessage") = "" Set Connect = Server.CreateObject("ADODB.Connection") 'If InStr(Request.ServerVariables("SERVER_NAME"), "test") > 0 then Connect.Open Session("TheConnectionString") 'else 'Connect.Open Session("Zeta_ConnectionString"), Session("Zeta_RuntimeUserName"), Session("Zeta_RuntimePassword") 'end if Set RS = Server.CreateObject("ADODB.RecordSet") sQuery = "SELECT * FROM EMAILTABLE WHERE (((Email)='" & sEmail & "'));" RS.Open sQuery, Connect, AdOpenStatic, adLockOptimistic if RS.EOF then RS.addnew RS("email") = sEmail RS.Update session("errMessage") = "Thank You." else session("errMessage") = "You have already registered. Thank you." end if RS.close Set RS = Nothing end if end sub function evenorodd(number) temp = CCur(number) / 2 if instr(temp,".")>0 then evenorodd = "odd" else evenorodd = "even" end if end function %> Zeta Music

<%=day(date)%> <%=monthname(month(date))%>, <%=year(date)%>









?mode=email">
<% if not session("cart_validated") then %> "> <% Else %> <% End If %>
<%= session("errMessage") %>
 Enter Email
<%= GetQuote %>


Sorry, your browser doesn't support Java(tm).
<% aQuery = "SELECT Name,ProdID FROM PRODUCTS WHERE Attic=1 AND Spotlight=1 and active=1" set aRS = connect.execute(aQuery) if not aRS.eof then %>

Zeta Attic Specials
<% i=0 do until aRS.eof tQuery = "SELECT price,note from Items where prodID=" & aRS("prodID") & " and active=1" set tRS = connect.execute(tQuery) i=i+1 evenorodd(i) if evenorodd(i)="odd" then hotCell = " bgcolor=#A8C2C9" else hotCell = " bgcolor=#FEFEE5" end if %> > <% aRS.movenext loop %>
"><%= aRS("name") %> <%= formatcurrency(tRS("price")) %> <%'= tRS("note") %>

MORE >>
<% End If %>
<% tQuery = "SELECT NewsID,Title FROM News WHERE Spotlight=1 and active=1" set tRS = connect.execute(tQuery) if not tRS.eof then %> <% i=0 do until tRS.eof i=i+1 evenorodd(i) if evenorodd(i)="odd" then hotCell = " bgcolor=#FEFEE5" else hotCell = " bgcolor=#A8C2C9" end if %> > <% tRS.movenext loop %>

Latest News

"><%= tRS("title") %>

<% end if %> <% nQuery = "select prodID,name,newimage,newtext from products where spotlight=1 and new=1 and active=1" set nRS = connect.execute(nQuery) if not nRS.eof then %>

NEW Product!
<%= nRS("name") %>

<% if trim(nRS("newimage")) <> "" then %> >" align="right" border="0"> <% End If %> <%= nRS("newtext") %>

>MORE >>

<% end if %> <% dQuery = "SELECT ID,CompanyName,City,State FROM Dealers WHERE new=1 and active=1" set dRS = connect.execute(dQuery) if not dRS.eof then i=0 do until dRS.eof i=i+1 evenorodd(i) if evenorodd(i)="odd" then hotCell = " bgcolor=#FEFEE5" else hotCell = " bgcolor=#A8C2C9" end if %> <% dRS.movenext loop end if %>

NEW Dealers!

align="left" valign="top"> "><%= dRS("companyname") %> - <%= dRS("city") %>, <%= dRS("state") %>
 
Search by Zip Code: