<%
dim intPresentation
dim strName
dim strTitle1
dim strCompany
dim strAddress
dim strCity
dim strState
dim strZipcode
dim strCountry
dim strPhone
dim strFax
dim strEmail
dim strAffiliation
dim strListen
dim strPacket
dim cn
dim cmd
dim rs
dim URL
'Response.Expires = 0
strName = trim(request.form("name"))
strTitle1 = trim(request.form("title"))
strCompany = trim(request.form("company"))
strAddress = trim(request.form("address"))
strCity = trim(request.form("city"))
strState = trim(request.form("state"))
strZipcode = trim(request.form("zipcode"))
strCountry = trim(request.form("country"))
strPhone = trim(request.form("phone"))
strFax = trim(request.form("fax"))
strEmail = trim(request.form("email"))
strAffiliation = trim(request.form("affiliation"))
strListen = trim(request.form("listen"))
strPacket = trim(request.form("packet"))
if strListen = "" then
strListen = "0"
end if
if strPacket = "" then
strPacket = "0"
end if
set cmd = server.CreateObject("ADODB.Command")
cmd.CommandText = "P_ins_investor"
cmd.CommandType = 4
cmd.Parameters.Append cmd.CreateParameter("",3,1,,Request.Form("videoNum"))
cmd.Parameters.Append cmd.CreateParameter("",200,1,200,strName)
cmd.Parameters.Append cmd.CreateParameter("",200,1,50,Request.Form("title"))
cmd.Parameters.Append cmd.CreateParameter("",200,1,100,Request.Form("company"))
cmd.Parameters.Append cmd.CreateParameter("",200,1,250,Request.Form("address"))
cmd.Parameters.Append cmd.CreateParameter("",200,1,50,Request.Form("city"))
cmd.Parameters.Append cmd.CreateParameter("",200,1,10,strZipcode)
cmd.Parameters.Append cmd.CreateParameter("",200,1,50,Request.Form("country"))
cmd.Parameters.Append cmd.CreateParameter("",200,1,50,Request.Form("phone"))
cmd.Parameters.Append cmd.CreateParameter("",200,1,50,Request.Form("fax"))
cmd.Parameters.Append cmd.CreateParameter("",200,1,50,Request.Form("email"))
cmd.Parameters.Append cmd.CreateParameter("",200,1,250,Request.Form("affiliation"))
cmd.Parameters.Append cmd.CreateParameter("",129,1,10,Request.Form("listen"))
cmd.Parameters.Append cmd.CreateParameter("",129,1,10,Request.Form("packet"))
set cn = ConnDB("Live")
set cmd.ActiveConnection = cn
cmd.Execute
set cmd.ActiveConnection = nothing
set cn = nothing
set cmd = nothing
if request.form("packet") <> “” then
response.write “Your request to receive an investor packet is being processed.
Your investor packet will be sent via U.S. mail. If you do not receive your investor packet within ten (10) business days from the date of your request, please notify us by emailing NEED_EMAIL_ADDRESS
”
end if
if request.form(“listen”) <> “” then
response.write “First Quarter 2001 Results-May 15, 2001
”
response.write “Fourth Quarter and Year End 2000 Results-April 2, 2001
”
response.write “Hollywood Media Corp. Presentation at the 14th Annual Bear Stearns Media, Entertainment and Information Conference-March 6, 2001
”
response.write “Strategic and Financial Outlook Call-November 29, 2000
”
response.write “*Free RealPlayer Required
”
end if
%>
