<%
Dim ACCOUNTS
Dim ACCOUNTS_cmd
Dim ACCOUNTS_numRows
Set ACCOUNTS_cmd = Server.CreateObject ("ADODB.Command")
ACCOUNTS_cmd.ActiveConnection = ACCOUNTS_STRING
ACCOUNTS_cmd.CommandText = "SELECT Account_Code, Account_Heading, Account_City, Account_State, Account_Zip, Account_Url from Csbautomation WHERE ACCOUNT_CODE ='"& Answer &"' ORDER BY Account_Code;"
ACCOUNTS_cmd.Prepared = true
Set ACCOUNTS = ACCOUNTS_cmd.Execute
ACCOUNTS_numRows = 0
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xht…