<% Select Case Request.QueryString("action") Case "" %>
 

Order the full-length "Knee Deep in Blues" CD

Uncle Dell's new CD "Knee Deep in Blues" feat. the hit single "Afghan Blues"

$10 PER CD - This includes shipping within the United States, for orders outside the US please e-mail for shipping information.

PLEASE NOTE - You are ordering the full-length CD "Knee Deep in Blues"

If you would like to purchase the collector's single "Afghan Blues", please specify.
The cost of the single is $5.00.


Please Provide the Following Shipping Information:

Name: 
Title: 
Organization: 

Address:

City:

State:

       Zip: -
Work Phone: 
Home Phone: 
E-mail: 

How many CD's are you ordering? 

I would also like to join the fan club.  (add $19.95)

  <% Select Case Request.QueryString("action") Case "submit" Dim strFullName, strTitle, strOrganization, strEmail, strState,strCity, strZip, strAddress, strHomePhone, strWorkPhonesubject, strSiteTitle, strDomain, fromAddr, strEmailMsg,smtpServer, mailComp strFullName = Trim(Request("FullName")) strTitle = Trim(Request("Title")) strOrganization = Trim(Request("Organization")) strEmail = Trim(Request("Email")) strState = Trim(Request("State")) strCity = Trim(Request("City")) strZip = Trim(Request("Zip")) strAddress = Trim(Request("Address")) strHomePhone = Trim(Request("HomePhone")) strWorkPhone = Trim(Request("WorkPhone")) subject = "Uncle Dell CD" strSiteTitle = "Dell Test" strDomain = "www.delltest.com" 'Your mail server smtpServer = "mail.syclone.net" fromAddr = "earl@syclone.net" strEmailMsg = "

Full Name:" & strFullName & "

" & _ "

Organization:" & strOrganization & "

" & _ "

Address:" & strAddress & "

" & _ "

" & strHomePhone & "

" & _ "

Work Phone:" & strWorkPhone & "

" & _ "

Home Phone:" & strHomePhone & "

" & _ "

Email:" & strEmail & "

" 'Send email (CDOSYS version). mailComp = "CDOSYS" set cdoMessage = Server.CreateObject("CDO.Message") set cdoConfig = Server.CreateObject("CDO.Configuration") cdoConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 cdoConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtpServer cdoConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = fromAddr cdoConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "tufwfo" cdoConfig.Fields.Update set cdoMessage.Configuration = cdoConfig cdoMessage.From = "" & strSiteTitle & " <" & fromAddr & ">" cdoMessage.To = fromAddr cdoMessage.Subject = subject cdoMessage.HtmlBody = strEmailMsg on error resume next cdoMessage.Send %>

  <% If Err.Number <> 0 Then Response.Write = "Email send failed: " & Err.Description & "." Else Response.Write "Your information has been sent for your order" & _ "We thank your " & strTitle & " " & strFullName & " and we thank you for your interest" & _ "Confirm your subscription by following the instructions in the email" End If set cdoMessage = Nothing set cdoConfig = Nothing End Select %>

Send your check to:

Uncle Dell
2002 Highway 53 East
Dawsonville, GA  30534

 

 

 

<% End Select %>