<% ' FP_ASP ASP Automatically generated by a Frontpage Component. Do not Edit. On Error Resume Next Session("FP_OldCodePage") = Session.CodePage Session("FP_OldLCID") = Session.LCID Session.CodePage = 1252 Session.LCID = 1033 Err.Clear strErrorUrl = "" If Request.ServerVariables("REQUEST_METHOD") = "POST" Then If Request.Form("VTI-GROUP") = "0" Then Err.Clear Set fp_conn = Server.CreateObject("ADODB.Connection") FP_DumpError strErrorUrl, "Cannot create connection" Set fp_rs = Server.CreateObject("ADODB.Recordset") FP_DumpError strErrorUrl, "Cannot create record set" fp_conn.Open Application("prod01_ConnectionString") FP_DumpError strErrorUrl, "Cannot open database" fp_rs.Open "Results", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable FP_DumpError strErrorUrl, "Cannot open record set" fp_rs.AddNew FP_DumpError strErrorUrl, "Cannot add new record set to the database" Dim arFormFields0(6) Dim arFormDBFields0(6) Dim arFormValues0(6) arFormFields0(0) = "ProductOrService" arFormDBFields0(0) = "ProductOrService" arFormValues0(0) = Request("ProductOrService") arFormFields0(1) = "SalesContactRequested" arFormDBFields0(1) = "SalesContactRequested" arFormValues0(1) = Request("SalesContactRequested") arFormFields0(2) = "Email" arFormDBFields0(2) = "Email" arFormValues0(2) = Request("Email") arFormFields0(3) = "Name" arFormDBFields0(3) = "Name" arFormValues0(3) = Request("Name") arFormFields0(4) = "SendProductLiterature" arFormDBFields0(4) = "SendProductLiterature" arFormValues0(4) = Request("SendProductLiterature") arFormFields0(5) = "Address" arFormDBFields0(5) = "Address" arFormValues0(5) = Request("Address") FP_SaveFormFields fp_rs, arFormFields0, arFormDBFields0 If Request.ServerVariables("HTTP_USER_AGENT") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("HTTP_USER_AGENT"), "Browser_type" End If If Request.ServerVariables("REMOTE_HOST") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_HOST"), "Remote_computer_name" End If FP_SaveFieldToDB fp_rs, Now, "Timestamp" If Request.ServerVariables("REMOTE_USER") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_USER"), "User_name" End If fp_rs.Update FP_DumpError strErrorUrl, "Cannot update the database" fp_rs.Close fp_conn.Close Session("FP_SavedFields")=arFormFields0 Session("FP_SavedValues")=arFormValues0 Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") Response.Redirect "fpdb/prod01.mdb" End If End If Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") %> LONMAN Product 1
Make your own free website on Tripod.com

Automated Rotation Listing

Home Up Contest Winners Most Sung Song




The Automated Karaoke Rotation program will do more than just keep track of your singer rotation. See some of the other key benefits you'll get from the program.

Automated Karaoke Rotation Sample Screen Shot

Key Benefits

bulletAutomatic Song Look-up by either Song Title, Disc Number or Artist.
bulletTrack winners of contest you have and when they are eligible to enter contest again. Also set your own options for contest eligibility.
bulletDisplay a history of the Most Sung Song and the frequency of how many times a singer sang that song.
bulletWait time is automatically recalculated, as you move from singer to singer in the rotation.
bulletProgram comes with it's own Help screens.

Lonnie of LONMAN Productions writes: "I've been using this program for 5 years now & wouldn't do another show without it.  It not only has cut back on singers questioning rotation fairness, it allows them to see at a glance who is up & what everyone is singing.  Love the built in song list database to view if songs are available or just as a quick reference."

Karaokeholics writes: This is an excellent venue.  Submit one slip at a time. Computerized rotation, with a singer-viewable computer monitor, assures you sing in turn. Visit their website at Karaokeholics.com

System Requirements:

bulletMultimedia PC including Windows® 98/Millennium/XP
bulletPentium processor recommended
bullet64MB of RAM recommended
bullet20MB of hard disk space minimum, 60MB recommended
bulletVGA card with 256 colors minimum, 640 x 480 resolution
bulletColor monitor


Description SKU # Price
Automated Karaoke Rotation AKR-1 $49.95



<% Function FP_SaveFormFields(rs, rgFormFields, rgDBFields) On Error Resume Next Err.Clear Dim i For i = 0 To UBound(rgFormFields) FP_SaveFormField rs, rgFormFields(i), rgDBFields(i) Next Err.Clear End Function Function FP_SaveFormField(rs, strField, strDBField) On Error Resume Next Err.Clear If (Request.Form(strField)) = "" And rs(strDBField).Type <> adBoolean Then Exit Function End If FP_SaveFieldToDB rs, Request.Form(strField), strDBField Err.Clear End Function Function FP_SaveFieldToDB(rs, strField, strDBField) On Error Resume Next Err.Clear Select Case rs(strDBField).Type Case adInteger Or adBigInt Or adUnsignedTinyInt Or adUnsignedSmallInt Or adUnsignedInt Or adUnsignedBigInt rs(strDBField) = CInt(strField) Case adSingle Or adDecimal Or adNumeric rs(strDBField) = CSng(strField) Case adDouble rs(strDBField) = CDbl(strField) Case adCurrency rs(strDBField) = CCur(strField) Case adBoolean rs(strDBField) = CBool(strField) Case adDate Or adDBDate Or adDBTime or adDBTimeStamp rs(strDBField) = CDate(strField) Case Else rs(strDBField) = CStr(strField) End Select strError = "Cannot save value """ & strField & """ to database field """ & strDBField & """" FP_DumpError strErrorUrl, strError Err.Clear End Function Function FP_FormConfirmation(szCharset, szTitle, szmsg1, szUrl, szMsg2) Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write " " & szTitle & "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "

" & szTitle & "

" & vbCrLf Response.Write "

" & szMsg1 &"

" & vbCrLf Response.Write "

" & vbCrLf For Each item in Request.Form If item <> "VTI-GROUP" Then Response.Write "" & item & "" & ": " & Server.HTMLEncode(Request.Form(item)) & "
" & vbCrLf End If Next Response.Write "

" & vbCrLf Response.Write "

" & szMsg2 & "

" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.End End Function Function FP_DumpError(strErrorUrl, strMsg) If Err.Number <> 0 Then fp_conn.Close If strErrorUrl <> "" Then Response.Redirect strErrorUrl Else Response.Write " " & strMsg & "

" Response.Write "Error Description: " & Err.Description & "

" Response.Write "Error Number: " & Err.Number & "

" Response.Write "Error Source: " & Err.Source & "

" Response.End End If End if End Function %>

Information Request Form

Select the items that apply, and then let us know how to contact you.

Send product literature
Have a salesperson contact me


NOTE:  This product is sold on an as is bases and comes with limited technical support.
Copyright © 2003 LONMAN Productions
Last modified: February 12, 2003