Cataloging Services

We are happy to offer cataloging services in the ofrm of Card Kits, Data disc or email, and Automation Kits. To order cataloging services, please download our printable Cataloging Services Order Form and mail or fax it to us.

About our Packaging

Many people love our economy case, shich is sturdier than a paperboard box yet just as economical. But we've also had numerous requests from librarians for the more familiar album-style binder. Now all our productions are available in both formats!

Our CD binder case provides extra-sturdy construction for repeat use. CDs are held in plastic sleeves within the case. (Titles with only one or two CDs come in similar sturdy packages, but without the sleeves.)

Returns/Replacements Procedures

We unconditionally guarantee each and every recording. If you are not satisfied for any reason, simply return the product for a full refund of your money—including postage both ways!

2.

Tapes and CDs are guaranteed free of defect for one year from the time of purchase.

3.

We will always carry a full stock of replacement cassettes and CDs. (alas, to be honest, cassettes will probably disappear in time. Sic transit gloria!) We can also provide new packaging material to keep well-circulated copies looking fresh and appealing.

Replacement prices (S&H included:)

Cassettes $4.95 each

CDs $6.95 each

CD Economy Cases $4.00 each (includes cover insert)

CD Binders $7.00 each (includes cover insert)

Cover Inserts $2.00 each

CD Binder pages $0.50 for one, $0.30 for all additional

Defective Items

We love libraries! We love you so much! Ooooh!

Lost/Damaged

We love libraries! We love you so much! Ooooh!

Purchase Orders

We are happy to accept your purchase order. Terms are Net 30.

If you would like to use a Purchase Order, please fax your order to us at (800) 871-7411, or contact Andrew Sudol, our Library Sales Specialist, at jamil@fullcastaudio.com. Thanks!

OK, lets face it: cassettes are going away. They're still a great medium (for one thing, you can move them from the car to the house without losing your place.) Even so, we have more of them than we can use right now. So if you're still using them, we've got a fabulous deal for you. Check out these great prices!

Here's an exciting innovation we think classroom teachers are going to love. We've recorded short stories by some of today's most popular children's and YA authors that we are making available both as downloads from various online services, and as stand alone CD's. Running 20 to 30 minutes each, these stories are perfect for individual lesson units.

To make them highly accessible, we package them in simple vinyl envelopes at price points that can't be beat!

"
If rstReviews("PrintEdition") And Not blnPrint Then
Response.Write "Praise for the print version of " _
& GetItemNameFromProdID(rstReviews("ITEMID")) _
& ":

"
Response.Write "

"
blnPrint = True
End If
If Not IsNada(rstReviews("Review")) Then
Response.Write """ & rstReviews("Review") & """
Response.Write " " & rstReviews("Award") & " "
If Not IsNada(rstReviews("Source")) Then
Response.Write "  " & rstReviews("Source")
If Not IsNada(rstReviews("Date")) Then
Response.Write ", " & rstReviews("Date")
End If
Response.Write ""
If rstReviews("IsStarred") Then
Response.Write " Starred Review"
End If
If Not IsNada(rstReviews("Link")) Then
If rstReviews("ShowLink") <> 0 Then
Response.Write " Read entire review "
End If
End If
End If
End If
rstReviews.MoveNext
' If rstReviews.EOF Then
' Response.Write "

"
Set rsA = OpenFastRS("SELECT TBLTALENT.* FROM TBLTALENT WHERE (((TBLTALENT.IS_AUTHOR)<>0) AND ((TBLTALENT.WebSite) Is Not Null)) ORDER BY TBLTALENT.LAST_NAME, TBLTALENT.FIRST_NAME;")
Do Until rsA.EOF
fn = TalentFullName(rsA)
Response.Write "

You can also call us at 1-800-871-6809. However please be aware that the office is not staffed at all times, so email is usually the fastest way to get a response.

It is our goal to become the world's most consumer-friendly audio publisher. So here are our products policies:

1.

We unconditionally guarantee each and every recording. If you are not satisfied for any reason, simply return the product for a full refund of your money—including postage both ways!

2.

Tapes and CDs are guaranteed free of defect for one year from the time of purchase.

3.

We will always carry a full stock of replacement cassettes and CDs. (alas, to be honest, cassettes will probably disappear in time. Sic transit gloria!) We can also provide new packaging material to keep well-circulated copies looking fresh and appealing.

Sometimes you'll see titles listed here months, or even years, before we plan to release them. The reason for this is simple: to keep a steady flow of new releases coming, we have to plan at least a year and a half in advance. And because there is more and more competition with other audio publishers for new books, we often buy the rights to a story before the author has even finished the final version! And, unlike typical audiobooks, where you can rush a production by putting a single reader in front of a microphone, we have to cast and coordinate schedules for as many as fifty actors. (Like a fine wine, these audiobooks take time!)

With that in mindtake a look at what we've got coming up for your listening pleasure

0 ORDER BY RELEASE_DATE_NUMERIC, ITEMID, ALPHANAME")
If Not rsCA.EOF Then
WriteCAList rsCA
End If
rsCA.Close
Set rsCA = Nothing
TemplateAfterPC
Tek9PageEnd
End Sub
'-----------------------------------------------------------
' WriteCAList
' -------------------
' write list for the year rst
'-----------------------------------------------------------
Sub WriteCAList(ByRef p_rst)
Dim rstReviews
If Not p_rst.EOF Then
'begin table
While Not p_rst.EOF
With Response
.Write ""
.Write "

"
If Not IsNada(p_rst("IMG_BASE")) Then
If s_fso.FileExists(Request.ServerVariables("APPL_PHYSICAL_PATH") & "images\products\fp\" & p_rst("IMG_BASE") & "_FP.jpg") Then
.Write ""
End If
End If
.Write "

"
Set rstReviews = OpenFastRS("SELECT * FROM TBLREVIEWS WHERE Production = " & p_rst("ITEMID") & " AND PrintEdition <> 0 ORDER BY ReviewOrder ASC;")
If HasRecords(rstReviews) Then
.Write "

Reviews for the print edition of " & p_rst("ITEMNAME") & ":

"
.Write "

"
Do Until rstReviews.EOF
If Not IsNada(rstReviews("Review")) Then
.Write "

"" & rstReviews("Review") & ""

"
End If
If Not IsNada(rstReviews("Award")) Then
.Write "

" & rstReviews("Award") & "

"
End If
If Not IsNada(rstReviews("Source")) Then
Response.Write "

 " & rstReviews("Source")
If Not IsNada(rstReviews("Date")) Then
.Write " " & rstReviews("Date")
End If
.Write " " & rstReviews("Comment") & ""
End If
.Write ""
If rstReviews("IsStarred") Then
Response.Write " Starred Review"
End If
If Not IsNada(rstReviews("Link")) Then
If rstReviews("ShowLink") <> 0 Then
Response.Write " Read entire review "
End If
End If
Response.Write "

" & img4
Response.Write txt4
End Select
TemplateAfterPC
Tek9PageEnd
End Sub
'-----------------------------------------------------------
' PgAcct
' -------------------
' this is the page that is used for your customers to access their eAccounts, track their order, etc etc.
'-----------------------------------------------------------
Sub PgAcct()
If Not Tek9PageBegin(pg, Empty) Then Response.Redirect g.HomePageURL & "tek9.asp"
TemplateBeforePC
If Not IsLoggedIn() Then mode = "login"
If mode = "" Then
Set rst = GetCurrentCustomerRS()
Response.Write "Welcome to Your Account management page. We hope to provide you with simple access to all of your info if you would like to see something added here, feel free to contact us direct. Please select your destination from the menu below:" & _
"

"
rst.Close: Set rst = Nothing
ElseIf mode = "login" Then
Response.Write img1 & pc & ""
DisplayLogin g.SecureURL & "tek9.asp?pg=acct&mode=login", g.SecureURL & "tek9.asp?pg=acct"
ElseIf mode = "orderstatus" Then
Response.Write "Here are the orders which we currently have on file for you. If you are having problems of any kind, please feel free to contact us direct. Thank you!

"
Set rsCheck = g_Conn.Execute("SELECT DISTINCT OrderID FROM tblOrders WHERE CustID " & CSQLEq(cid))
If Not rsCheck.EOF Then
Do Until rsCheck.EOF
Response.Write "

"
Set rs2 = g_Conn.Execute("SELECT CODE3, CODE2, Country FROM TBLCOUNTRIES ORDER BY Country ASC;")
If Not rs2.EOF Then
Response.Write "-Select the Country"
Else Response.Write "No Countries entered yet!"
End If
rs2.Close: Set rs2 = Nothing
Response.Write "

"
End If
rsU.Close: Set rsU = Nothing
End If
ElseIf mode = "download" Then
Set rst = GetCurrentCustomerRS()
If Not rst("Reseller") Then Response.Redirect "tek9.asp?pg=acct"
Set rsI = g_Conn.Execute("Select ItemName, ItemID From tblInventory Where Download_Filename <> '' Order By ItemName")
Response.Write "Here you can find our library of downloadable software products:

"
End Select
TemplateAfterPC
Tek9PageEnd
End Sub
'-----------------------------------------------------------
' PgSurvey
' -------------------
' if you own a copy of the LINE9 Survey software, this special code is used for that application:
'-----------------------------------------------------------
Sub PgSurvey()
If IsEmpty(mode) Then Response.Redirect g.HomePageURL
If Request.Form("answer") = "" Then Response.Redirect g.HomePageURL
If Not Tek9PageBegin(pg, Empty) Then Response.Redirect g.HomePageURL & "tek9.asp"
TemplateBeforePC
InitSurvey
TemplateAfterPC
Tek9PageEnd
End Sub
'-----------------------------------------------------------
' PgManuf
' -------------------
' this code is used to email manufacturers of their orders if you have that feature enabled in your Intranet Global Editor:
'-----------------------------------------------------------
Sub PgManuf()
If GetCurrentManuf Then MarkCurrentManufActive
Select Case mode
Case "login"
If Request.Form("savecookie") = "on" Then s_blnSaveCookie = True
If ManufLogin(Request.Form("email"), Request.Form("password")) Then Response.Redirect g.SecureURL & "tek9.asp?pg=manuf"
ExPageManufLogin
Case "logout"
If IsManufLoggedIn() Then
ManufLogout
ExPageManufLogout
Else Response.Redirect g.SecureURL & "tek9.asp?pg=manuf&mode=login"
End If
Case "profile"
If Not IsManufLoggedIn() Then Response.Redirect g.SecureURL & "tek9.asp?pg=manuf&mode=login"
If Request.Form("submit.x") <> "" Then
If Not Tek9PageBegin(pg, Empty) Then Response.Redirect g.HomePageURL & "tek9.asp"
TemplateBeforePC
If UpdateManufProfile(Request.Form("Name"), Request.Form("Descrip"), Request.Form("EMail"), Request.Form("Password")) Then
Response.Write "

" & strFullName & "

" & strBio _
& "

"
Else
Response.Write "Sorry, that person was not found in our database..."
End If
rsActor.Close: Set rsActor = Nothing
End If
Tek9PageEnd
End Sub
'-----------------------------------------------------------
' ExPageManufDownload
' -------------------
' Displays the acct manufacturer downloads.
'-----------------------------------------------------------
Sub ExPageManufDownload()
Dim rst
If Not Tek9PageBegin(pg, Empty) Then Response.Redirect g.HomePageURL & "tek9.asp"
TemplateBeforePC
Set rst = GetCurrentManufDownloadRS()
Response.Write "Here you can find all the downloadable (e)items available on this site, produced by yours truly:

"
' End If
Response.Write ""
If rstReviews("IsStarred") Then
Response.Write " Starred Review"
End If
If Not IsNada(rstReviews("Link")) Then
If rstReviews("ShowLink") <> 0 Then
Response.Write " Read entire review "
End If
End If
Response.Write "

"
' End If
Else
Response.Write ""
End If
Response.Write rstCredits("part")
LastActorID = rstCredits("TALENT_ID")
rstCredits.MoveNext
If rstCredits.EOF Then
Response.Write "

"
Else
If rstCredits("TALENT_ID") <> LastActorID Then
Response.Write ""
End If
If blnShowSubs Then
If rstCredits("sub") <> strSubsection Then
strSubsection = rstCredits("sub")
Response.Write "

" & strSubsection & ":

"
End If
End If
End If
Loop
End If
rstCredits.Close: Set rstCredits = Nothing
strSQL = "SELECT TBLTALENT.* FROM TBLTALENT" _
& " INNER JOIN tblCreditsDirectors ON TBLTALENT.TALENT_ID = tblCreditsDirectors.TalentID" _
& " WHERE tblCreditsDirectors.ItemID = " & prodID
Set rstCredits = OpenFastRS(strSQL)
If HasRecords(rstCredits) Then
If Not blnStarted Then
Response.Write "Meet the Cast:"
Response.Write "

"
End If
rstVideos.Close: Set rstVideos = Nothing
End Sub
'-----------------------------------------------------------
' ProductionPicsTableFSO
' -----
' oh boy better be able to see that audiobook
'-----------------------------------------------------------
Sub ProductionPicsTableFSO(prodID)
Dim strSQL, rstPics, picnum, strLink
If HasRecords(rstPics) Then
Response.Write "Watch pics about the making of this audiobook:"
Response.Write "