hi, there it is
<script language="VBScript"><!--
Sub window_onLoad()
mrktco.Additem "CLC Marketing Ltd 69"
mrktco.Additem "Sunningdale 19"
end sub
--></script>
<script language="VBScript"><!--
Sub letsgo_Click()
if mrktco.text = "CLC Marketing Ltd 69" then selection = 69 end if
if mrktco.text = "Sunningdale 19" then selection = 19 end if
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DSN=CLCWEB;UID=****;PWD=*******;DATABASE=CLCACC;"
SQLcommand="exec clcacc..get_screen_3_amounts '"&selection &"'"
SET CA=Conn.Execute(SQLcommand)
if selection = "" then
msgbox "Please select a Marketing Company",32,"ICT Intranet"
end if
if selection = "69" then
Window.location.href = "http://sqlreports.clublacosta.com.local/SQLreports/Accounts/Developments/Screen_3_amounts.xls"
end if
if selection = "19" then
Window.location.href = "http://sqlreports.clublacosta.com.local/SQLreports/Accounts/Developments/screen_3_Amounts.xls"
end if
End Sub
--></script>