<% If Session("BlnLoggedIn") <> True Then Response.Redirect("index.asp") End If %> About Us

About Us

Welcome to the official website of Sinsational Features. We are a brand new entertainement agency with seven years of experience in the adult entertainment industry. We have a new way to provide what a club and entertainer needs to succeed that no other agency provides. This new dynamic will provide you, our client, an unprecedented level of service and commitment dedicated to the success of your event. If you are a club owner or manager and would like to book an entertainer or event in your venue, contact us, we will not disappoint.

<% If Request("action")="" Then%>

 Please fill out form for inquiries on our services.
* Denotes required field
* Name:
Street Address:
City:
State/Province:
Zip Code:
Day Phone:
Evening Phone:
* Email Address:
* Verify Email Address:
  
How would you
like to be contacted?
  
How did you
learn about Sinsational?
Other/List Source:
  
* Question/Inquiry:
  
 

<%End If%> <% If Request("action")="validate" Then Response.Write("
") Response.Write("

") Response.Write("") If Request("contact")="Any" Then Response.Write("Thank you, "&Request("name")& " for your inquiry. A representative will contact you shortly.") End If If Request("contact")="Email" Then Response.Write("Thank you, "&Request("name")& " for your inquiry. A representative will contact you via email at: " &Request("email") & ".") End If If Request("contact")="DayPhone" Then Response.Write("Thank you, "&Request("name")& " for your inquiry. A representative will contact you at your daytime phone number: " &Request("daytimephone") & ".") End If If Request("contact")="EveningPhone" Then Response.Write("Thank you, "&Request("name")& " for your inquiry. A representative will contact you at your evening phone number: " &Request("eveningPhone") & ".") End If Response.Write("") Dim mbody mbody = "
The following inquiry was submitted through SinsationalFeatures.com:

" mbody = mbody & "

" mbody = mbody & "Name: " mbody = mbody & (Request("name")) mbody = mbody & "
" mbody = mbody & "Address: " mbody = mbody & (Request("address")) & ", " & (Request("city")) & ", " & (Request("state")) & " " & (Request("zip")) mbody = mbody & "
" mbody = mbody & "Email: " mbody = mbody & (Request("email")) mbody = mbody & "
" mbody = mbody & "Daytime Phone: " mbody = mbody & (Request("daytimephone")) mbody = mbody & "
" mbody = mbody & "Evening Phone: " mbody = mbody & (Request("eveningPhone")) mbody = mbody & "
" mbody = mbody & "Contact via: " mbody = mbody & (Request("contact")) mbody = mbody & "
" mbody = mbody & "Heard of Sinsational from: " mbody = mbody & (Request("origin")) mbody = mbody & "
" mbody = mbody & "Other/Source: " mbody = mbody & (Request("source")) mbody = mbody & "

" mbody = mbody & "Question/Inquiry: " mbody = mbody & (Request("add_info")) Set oCdoMail = Server.CreateObject("CDO.Message") Set oCdoConf = Server.CreateObject("CDO.Configuration") sConfURL = "http://schemas.microsoft.com/cdo/configuration/" with oCdoConf .Fields.Item(sConfURL & "sendusing") = 2 .Fields.Item(sConfURL & "smtpserver") = "relay-hosting.secureserver.net" .Fields.Item(sConfURL & "smtpserverport") = 25 .Fields.Update end with with oCdoMail .From = "inquiry@SinsationFeatures.com" .To = "sinsationalfeatures@hotmail.com" .Subject = "You have a question/inquiry from SinsationalFeatures.com!" .HTMLBody = mbody end with oCdoMail.Configuration = oCdoConf oCdoMail.Send Set oCdoConf = Nothing End If %>