A better way?

	Home Register Search Help Login

Sponsors

Shopping Cart Software
Ecommerce software integrated into Frontpage, Dreamweaver and Golive templates. No monthly fees and available in ASP and PHP versions.

Website Templates
We also have a wide selection of Dreamweaver, Expression Web and Frontpage templates as well as webmaster tools and CSS layouts.

Frontpage website templates
Creative Website Templates for FrontPage, Dreamweaver, Flash, SwishMax

Free FrontPage Templates

Search Forums

Recent Posts

Todays Posts
Most Active posts
Posts since last visit
My Recent Posts
Mark posts read

A better way?

View related threads: (in this forum | in all forums)

Logged in as: Guest

Users viewing this topic: none

Printable Version

All Forums >> Web Development >> ASP and Database >> A better way?

Page: [1]

mar0364

Posts: 3221
Joined: 4/5/2002
From: Florida, US
Status: offline

A better way? - 3/11/2005 8:49:45

This is part of an edit form in one of my apps. Can anyone suggest an easier way to do this. I was thinking place it in a mdb table and call it as a recordset. But I'm not sure if that will work. Your thoughts are apprciated.

<select name="url" size="1">
<option>Select a Folder</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/company/ac/report/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/company/ac/report/" then response.write "selected"%>>Accounting Company - System Generated Reports
</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/company/ac/bank_invest/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/company/ac/bank_invest/" then response.write "selected"%>>Accounting Company - Bank/Investment Accounts
</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/company/ac/audit/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/company/ac/audit/" then response.write "selected"%>>Accounting Company - Auditor/CPA Files
</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/company/ac/accounts_payable/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/company/ac/accounts_payable/" then response.write "selected"%>>Accounting Company - Acccounts Payable/Cash Receipts
</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/company/ac/financials/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/company/ac/financials/" then response.write "selected"%>>Accounting Company - Financial Statements
</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/company/ac/general_correspondence/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/company/ac/general_correspondence/" then response.write "selected"%>>Accounting Company - Correspondence
</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/company/ac/interoffice_memo/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/company/ac/interoffice_memo/" then response.write "selected"%>>Accounting Company - Memorandums
</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/company/ac/misc/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/company/ac/misc/" then response.write "selected"%>>Accounting Company - Miscellaneous
</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/receiver/ac/financials/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/receiver/ac/financials/" then response.write "selected"%>>Accounting Receiver - Financial Statements</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/receiver/ac/general_correspondence/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/receiver/ac/general_correspondence/" then response.write "selected"%>>Accounting Receiver - Correspondence</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/receiver/ac/interoffice_memo/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/receiver/ac/interoffice_memo/" then response.write "selected"%>>Accounting Receiver - Memorandums
</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/receiver/ac/misc/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/receiver/ac/misc/" then response.write "selected"%>>Accounting Receiver - Miscellaneous
</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/company/ad/general_correspondence/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/company/ad/general_correspondence/" then response.write "selected"%>>Administration Company - Correspondence
</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/company/ad/interoffice_memo/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/company/ad/interoffice_memo/" then response.write "selected"%>>Administration Company - Memorandums
</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/company/ad/misc/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/company/ad/misc/" then response.write "selected"%>>Administration Company - Miscellaneous
</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/receiver/ad/general_correspondence/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/receiver/ad/general_correspondence/" then response.write "selected"%>>Administration Receiver - Correspondence
</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/receiver/ad/interoffice_memo/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/receiver/ad/interoffice_memo/" then response.write "selected"%>>Administration Receiver - Memorandums
</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/receiver/ad/misc/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/receiver/ad/misc/" then response.write "selected"%>>Administration Receiver - Miscellaneous
</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/receiver/ad/monthly_reports/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/receiver/ad/monthly_reports/" then response.write "selected"%>>Administration Receiver - Monthly Reports
</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/company/ar/agents_balances/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/company/ar/agents_balances/" then response.write "selected"%>>Asset Recovery Company - Agents Balances</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/company/ar/assessments/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/company/ar/assessments/" then response.write "selected"%>>Asset Recovery Company - Assessment</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/company/ar/general_correspondence/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/company/ar/general_correspondence/" then response.write "selected"%>>Asset Recovery Company - Correspondence</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/company/ar/interoffice_memo/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/company/ar/interoffice_memo/" then response.write "selected"%>>Asset Recovery Company - Memorandums</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/company/ar/misc/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/company/ar/misc/" then response.write "selected"%>>Asset Recovery Company - Miscellaneous</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/company/ar/property/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/company/ar/property/" then response.write "selected"%>>Asset Recovery Company - Property</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/company/ar/reinsurance/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/company/ar/reinsurance/" then response.write "selected"%>>Asset Recovery Company - Reinsurance</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/company/ar/subro_salvage/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/company/ar/subro_salvage/" then response.write "selected"%>>Asset Recovery Company - Subrogation and Salvage</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/company/ar/underwriting/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/company/ar/underwriting/" then response.write "selected"%>>Asset Recovery Company - Underwriting</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/receiver/ar/agents_balances/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/receiver/ar/agents_balances/" then response.write "selected"%>>Asset Recovery Receiver - Agents Balances</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/receiver/ar/assessments/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/receiver/ar/assessments/" then response.write "selected"%>>Asset Recovery Receiver - Assessment</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/receiver/ar/general_correspondence/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/receiver/ar/general_correspondence/" then response.write "selected"%>>Asset Recovery Receiver - Correspondence</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/receiver/ar/interoffice_memo/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/receiver/ar/interoffice_memo/" then response.write "selected"%>>Asset Recovery Receiver - Memorandums</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/receiver/ar/misc/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/receiver/ar/misc/" then response.write "selected"%>>Asset Recovery Receiver - Miscellaneous</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/receiver/ar/property/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/receiver/ar/property/" then response.write "selected"%>>Asset Recovery Receiver - Property</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/receiver/ar/reinsurance/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/receiver/ar/reinsurance/" then response.write "selected"%>>Asset Recovery Receiver - Reinsurance</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/receiver/ar/subro_salvage/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/receiver/ar/subro_salvage/" then response.write "selected"%>>Asset Recovery Receiver - Subrogation and Salvage</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/receiver/ar/underwriting/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/receiver/ar/underwriting/" then response.write "selected"%>>Asset Recovery Receiver - Underwriting</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/regulatory/bureau/admin_sup/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/regulatory/bureau/admin_sup/" then response.write "selected"%>>Bureau - Administrative Supervision - (may be Confidential)
</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/regulatory/bureau/bio_statement/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/regulatory/bureau/bio_statement/" then response.write "selected"%>>Bureau - Biographical Statement
</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/regulatory/bureau/charter_file/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/regulatory/bureau/charter_file/" then response.write "selected"%>>Bureau - Charter File
</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/regulatory/bureau/correspondence/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/regulatory/bureau/correspondence/" then response.write "selected"%>>Bureau - Correspondence by Year
</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/regulatory/bureau/financial_exams/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/regulatory/bureau/financial_exams/" then response.write "selected"%>>Bureau - Financial Examination File
</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/regulatory/bureau/financials_audited/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/regulatory/bureau/financials_audited/" then response.write "selected"%>>Bureau - Financial Statements Audited/NAIC/ADE File
</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/regulatory/bureau/holding_company/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/regulatory/bureau/holding_company/" then response.write "selected"%>>Bureau - Holding Company Registration Statement
</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/regulatory/bureau/misc_agreements/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/regulatory/bureau/misc_agreements/" then response.write "selected"%>>Bureau - Miscellaneous Agreements</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/regulatory/bureau/reinsurance/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/regulatory/bureau/reinsurance/" then response.write "selected"%>>Bureau - Reinsurance File</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/regulatory/bureau/risk_based_cap/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/regulatory/bureau/risk_based_cap/" then response.write "selected"%>>Bureau - Risk Based Capitol File (confidential)</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/regulatory/bureau/special_consent/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/regulatory/bureau/special_consent/" then response.write "selected"%>>Bureau - Special Consent File</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/regulatory/bureau/statutory_deposit/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/regulatory/bureau/statutory_deposit/" then response.write "selected"%>>Bureau - Statutory Deposit File</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/company/cl/printouts/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/company/cl/printouts/" then response.write "selected"%>>Claims Company - Claims Printouts</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/company/cl/general_correspondence/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/company/cl/general_correspondence/" then response.write "selected"%>>Claims Company - Correspondence</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/company/cl/interoffice_memo/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/company/cl/interoffice_memo/" then response.write "selected"%>>Claims Company - Memorandums</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/company/cl/misc/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/company/cl/misc/" then response.write "selected"%>>Claims Company - Miscellaneous</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/company/cl/policy_samples/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/company/cl/policy_samples/" then response.write "selected"%>>Claims Company - Policy Samples
</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/receiver/cl/printouts/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/receiver/cl/printouts/" then response.write "selected"%>>Claims Receiver - Printouts</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/receiver/cl/general_correspondence/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/receiver/cl/general_correspondence/" then response.write "selected"%>>Claims Receiver - Correspondense</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/receiver/cl/interoffice_memo/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/receiver/cl/interoffice_memo/" then response.write "selected"%>>Claims Receiver - Memorandums
</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/receiver/cl/misc/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/receiver/cl/misc/" then response.write "selected"%>>Claims Receiver - Miscellaneous</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/receiver/cl/notices/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/receiver/cl/notices/" then response.write "selected"%>>Claims Receiver - Notices
</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/receiver/cl/poc/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/receiver/cl/poc/" then response.write "selected"%>>Claims Receiver - Claim Forms
</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/receiver/em/audit_reports/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/receiver/em/audit_reports/" then response.write "selected"%>>Estate Management - Audit Reports
</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/receiver/em/company_meeting_notes/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/receiver/em/company_meeting_notes/" then response.write "selected"%>>Estate Management - Company Meeting Notes</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/receiver/em/general_correspondence/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/receiver/em/general_correspondence/" then response.write "selected"%>>Estate Management - Correspondence</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/receiver/em/insolvency_report/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/receiver/em/insolvency_report/" then response.write "selected"%>>Estate Management - Insolvency Reports</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/receiver/em/interoffice_memo/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/receiver/em/interoffice_memo/" then response.write "selected"%>>Estate Management - Memorandums</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/receiver/em/misc/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/receiver/em/misc/" then response.write "selected"%>>Estate Management - Miscellaneous
</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/receiver/em/paper_articles/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/receiver/em/paper_articles/" then response.write "selected"%>>Estate Management - Newspaper Articles</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/receiver/em/onsite_checklist/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/receiver/em/onsite_checklist/" then response.write "selected"%>>Estate Management - On-Site Checklist</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/receiver/em/questionnaire/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/receiver/em/questionnaire/" then response.write "selected"%>>Estate Management - Questionnaire Responses</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/company/hr/general_correspondence/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/company/hr/general_correspondence/" then response.write "selected"%>>Human Resources Company - Correspondence</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/company/hr/interoffice_memo/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/company/hr/interoffice_memo/" then response.write "selected"%>>Human Resources Company - Memorandums
</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/company/hr/misc/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/company/hr/misc/" then response.write "selected"%>>Human Resources Company - Miscellaneous</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/company/hr/payroll/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/company/hr/payroll/" then response.write "selected"%>>Human Resources Company - Payroll</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/company/hr/personnel/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/company/hr/personnel/" then response.write "selected"%>>Human Resources Company - Personnel</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/receiver/hr/general_correspondence/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/receiver/hr/general_correspondence/" then response.write "selected"%>>Human Resources Receiver - Correspondence
</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/receiver/hr/interoffice_memo/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/receiver/hr/interoffice_memo/" then response.write "selected"%>>Human Resources Receiver - Memorandums
</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/receiver/hr/misc/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/receiver/hr/misc/" then response.write "selected"%>>Human Resources Receiver - Miscellaineous</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/regulatory/individual/assistant_director_oir/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/regulatory/individual/assistant_director_oir/" then response.write "selected"%>>Individual Files - Assistant Director of OIR
</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/regulatory/individual/assistant_director_oir_insol/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/regulatory/individual/assistant_director_oir_insol/" then response.write "selected"%>>Individual Files - Assistant Director of OIR - Insolvency
</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/regulatory/individual/bureau_chief/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/regulatory/individual/bureau_chief/" then response.write "selected"%>>Individual Files - Bureau Chief
</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/regulatory/individual/director_oir/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/regulatory/individual/director_oir/" then response.write "selected"%>>Individual Files - Director of OIR
</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/regulatory/individual/financial_admin_exam/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/regulatory/individual/financial_admin_exam/" then response.write "selected"%>>Individual Files - Financial Administrative Examinations
</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/regulatory/individual/financial_admin_analysis/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/regulatory/individual/financial_admin_analysis/" then response.write "selected"%>>Individual Files - Financial Administrative Analysis
</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/regulatory/individual/financial_exam_anlysis_field/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/regulatory/individual/financial_exam_anlysis_field/" then response.write "selected"%>>Individual Files - Financial Examiner/Analyst Supervisor - InField</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/regulatory/individual/financial_exam_anlysis_inhouse/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/regulatory/individual/financial_exam_anlysis_inhouse/" then response.write "selected"%>>Individual Files - Financial Examiner/Analyst Supervisor - InHouse</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/company/it/general_correspondence/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/company/it/general_correspondence/" then response.write "selected"%>>Information Technology Company - Correspondence</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/company/it/interoffice_memo/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/company/it/interoffice_memo/" then response.write "selected"%>>Information Technology Company - Memorandums
</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/company/it/it_reports/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/company/it/it_reports/" then response.write "selected"%>>Information Technology Company - Reports
</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/company/it/misc/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/company/it/misc/" then response.write "selected"%>>Information Technology Company - Miscellaneous
</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/receiver/it/general_correspondence/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/receiver/it/general_correspondence/" then response.write "selected"%>>Information Technology Receiver - Correspondence
</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/receiver/it/interoffice_memo/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/receiver/it/interoffice_memo/" then response.write "selected"%>>Information Technology Receiver - Memorandums</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/receiver/it/it_reports/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/receiver/it/it_reports/" then response.write "selected"%>>Information Technology Receiver - Reports
</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/receiver/it/misc/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/receiver/it/misc/" then response.write "selected"%>>Information Technology Receiver - Miscellaneous
</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/company/lg/corporate_records/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/company/lg/corporate_records/" then response.write "selected"%>>Legal Company - Corporate Records
</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/company/lg/general_correspondence/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/company/lg/general_correspondence/" then response.write "selected"%>>Legal Company - Correspondence</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/company/lg/interoffice_memo/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/company/lg/interoffice_memo/" then response.write "selected"%>>Legal Company - Memorandums</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/company/lg/contracts/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/company/lg/contracts/" then response.write "selected"%>>Legal Company - Contracts</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/company/lg/misc/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/company/lg/misc/" then response.write "selected"%>>Legal Company - Miscellaneous</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/company/lg/sub_case_issues/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/company/lg/sub_case_issues/" then response.write "selected"%>>Legal Company - Sub-Case Issues</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/receiver/lg/court_docs_others/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/receiver/lg/court_docs_others/" then response.write "selected"%>>Legal Receiver - Other State</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/receiver/lg/court_docs/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/receiver/lg/court_docs/" then response.write "selected"%>>Legal Receiver - Court Documents</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/receiver/lg/general_correspondence/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/receiver/lg/general_correspondence/" then response.write "selected"%>>Legal Receiver - Correspondence</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/receiver/lg/interoffice_memo/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/receiver/lg/interoffice_memo/" then response.write "selected"%>>Legal Receiver - Memorandums</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/receiver/lg/misc/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/receiver/lg/misc/" then response.write "selected"%>>Legal Receiver - Miscellaneous</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/receiver/lg/notices/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/receiver/lg/notices/" then response.write "selected"%>>Legal Receiver - Notices</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/receiver/lg/sub_case_issues/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/receiver/lg/sub_case_issues/" then response.write "selected"%>>Legal Receiver - Sub-Case Issues</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/regulatory/other/mga_tpa/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/regulatory/other/mga_tpa/" then response.write "selected"%>>Other Files - Agent and Agency Services - MGA/TPA
</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/regulatory/other/app_cord_section/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/regulatory/other/app_cord_section/" then response.write "selected"%>>Other Files - Applications Coordination Section - Company Apps
</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/regulatory/other/bureau_forms_rates_forms/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/regulatory/other/bureau_forms_rates_forms/" then response.write "selected"%>>Other Files - Bureau of Forms and Rates - Forms</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/regulatory/other/bureau_forms_rates_rates/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/regulatory/other/bureau_forms_rates_rates/" then response.write "selected"%>>Other Files - Bureau of Forms and Rates - Rates</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/regulatory/other/market_conduct/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/regulatory/other/market_conduct/" then response.write "selected"%>>Other Files - Bureau of Market Conduct - Inves/Exam
</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/regulatory/other/dfs_legal/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/regulatory/other/dfs_legal/" then response.write "selected"%>>Other Files - DFS Legal
</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/regulatory/other/division_tresury/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/regulatory/other/division_tresury/" then response.write "selected"%>>Other Files - Division of Treasury - Deposits
</option>
<option value="file://RLTLHNAS1/Images/Estate_Master_Files/503/regulatory/other/oir_legal/" <%If FpTemp = "file://RLTLHNAS1/Images/Estate_Master_Files/503/regulatory/other/oir_legal/" then response.write "selected"%>>Other Files - OIR Legal</option>
</select>

Thanks!
Rich

mar0364

Posts: 3221
Joined: 4/5/2002
From: Florida, US
Status: offline

RE: A better way? - 3/11/2005 10:06:23

It will allow me to pull it from a table

<%
	Dim oRS1
	
	Set oRS1=Server.CreateObject ("ADODB.Recordset")
	oRS1.Open "testtable", strconnect
	%>
	<select name=url>
	<% 	
	 		'loop through recordset til you find the correct one
	 		Do while not ors1.eof
	 
	 If FpTemp =   ors1("url")   then 
	 %>
	  <option value=<%=ors1("url")%>><%=ors1("codename")%></option>	
	 <%
	 	End If

			ors1.movenext
	 	loop

		
		
	oRS1.Close
	Set oRS1=Nothing
	%>

However I need to be able to change what is selected. It will only show me what is selected. Any ideas?

(in reply to mar0364)


rdouglass Posts: 9280 From: Biddeford, ME USA Status: offline	RE: A better way? - 3/11/2005 11:16:48 Yes, IMO that would be easier in the long run, especially if these things change at all. If it was me, I'd put the stuff ina DB table and turn it into a function. It looks like you have a lot of "common ground" in the file path structure so you may want to turn it into a constant. Maybe something along the lines of this: <%DIM myMainPath myMainPath = "file://RLTLHNAS1/Images/Estate_Master_Files/503/" FUNCTION buildDropdown(parameter) 'Change mySQL to fit your table mySQL = ("SELECT id,filePath FROM myTable") set conntemp=server.createobject("adodb.connection") 'Need to have myDSN defined for your environment conntemp.open myDSN set rstemp=conntemp.execute(mySQL) IF rstemp.eof THEN response.write ("ERROR :NO dropdown stuff in " & userSQL) rstemp.close set rstemp=nothing conntemp.close set conntemp=nothing ELSE ddArray=rstemp.getrows rstemp.close set rstemp=nothing conntemp.close set conntemp=nothing Response.write("<select name='url' size='1'>" & VbCrLf & "<option>Select a Folder</option>") FOR i = 0 To ubound(ddArray,2) Response.write("<option value='" & myMainPath & ddArray(1,i) & "'" IF parameter = (myMainPath & ddArray(1,i)) THEN Response.write(" selected") END IF Response.write(">" & myMainPath & ddArray(1,i) & "</option>" & VbCrLf) NEXT Response.write("</select>" & VbCrLf) END IF END FUNCTION%> Then for you to call the dropdown function, you could do something like this: <%=buildDropdown(FpTemp)%> Haven't tested any of this code for syntax, but that's basically how I do it all the time. Hope it helps. _____________________________ Don't take you're eye off your final destination. ASP Checkbox Function Tutorial. (in reply to mar0364)

mar0364

Posts: 3221
Joined: 4/5/2002
From: Florida, US
Status: offline

RE: A better way? - 3/11/2005 15:32:06

Thanks it seem to be working. I just can't get anything into the record set. Can you have a look?

<%
 option explicit
 Dim strconnect
 Dim orsco
 DIM fptemp
 Dim mysql
 Dim conntemp
 Dim mydsn
 Dim rstemp
 Dim ddArray
 Dim usersql
 %>
<!--METADATA TYPE="typelib" FILE="C:\Program Files\Common Files\System\ado\msado15.dll" -->
<!--#include file="503_connect.asp"-->
<%DIM myMainPath 

myMainPath = "file://RLTLHNAS1/Images/Estate_Master_Files/503/" 

FUNCTION buildDropdown(parameter) 
'Change mySQL to fit your table 
mySQL = ("SELECT * FROM links WHERE auto_id=50") 
set conntemp=server.createobject("adodb.connection") 
'Need to have myDSN defined for your environment 
conntemp.open strconnect 
set rstemp=conntemp.execute(mySQL) 
IF rstemp.eof THEN 
response.write ("ERROR :NO dropdown stuff in " & userSQL) 
rstemp.close 
set rstemp=nothing 
conntemp.close 
set conntemp=nothing 
ELSE 
ddArray=rstemp.getrows 
rstemp.close 
set rstemp=nothing 
conntemp.close 
set conntemp=nothing 
Response.write("<select name='url' size='1'>" & VbCrLf & "<option>Select a Folder</option>") 
FOR i = 0 To ubound(ddArray,2) 
Response.write("<option value='" & myMainPath & ddArray(1,i) & "'") 
IF parameter = (myMainPath & ddArray(1,i)) THEN 
Response.write(" selected") 
END IF 
Response.write(">" & myMainPath & ddArray(1,i) & "</option>" & VbCrLf) 
NEXT 
Response.write("</select>" & VbCrLf) 
END IF 
END FUNCTION
%> 

<%=buildDropdown(FpTemp)%>

(in reply to rdouglass)


rdouglass Posts: 9280 From: Biddeford, ME USA Status: offline	RE: A better way? - 3/11/2005 15:37:52 quote: Thanks it seem to be working. I just can't get anything into the record set. So the dropdown is working and not when you post? Are you doing Request.form("url") when you try to grab the values? If this dropdown is on a form, the handler page should only need to request the object. Or am I off-base? Can you post the SQL you're using to post back to the DB? _____________________________ Don't take you're eye off your final destination. ASP Checkbox Function Tutorial. (in reply to mar0364)

mar0364

Posts: 3221
Joined: 4/5/2002
From: Florida, US
Status: offline

RE: A better way? - 3/11/2005 15:51:15

I was just trying it by it self on a seprate page first. But here is the code I use to make the changes. I wanted to get it working as a small example. That way I get a handle on what it does. Don't want to just cut and paste. Trying to learn along the way.

Thanks!
Rich

<%
	Dim oRS
	Dim varName
	Dim varauto_id
	Dim varcode
	Dim vartitle
	Dim varurl
	Dim varfile_name
	Dim varbox
	Dim vardescribe
	Dim varlocation
	Dim varsource
	Dim varcreated
	Dim varsub_category
	Dim varauditor
	Dim varaudit_date
	Dim varimage_quality
	Dim varlegible
	Dim varcross_index
	Dim varquality_comment
	Dim varprivate
	Dim varcolor
	varauto_id =Request.QueryString ("auto_id")
	varcode =Request.QueryString ("code")
	vartitle =Request.QueryString ("title")
	varurl =Request.QueryString ("url")
	varfile_name =Request.QueryString ("file_name")
	varbox =Request.QueryString ("box")
	vardescribe =Request.QueryString ("describe")
	varlocation =Request.QueryString ("location")
	varsource =Request.QueryString ("source")
	varcreated =Request.QueryString ("created")
	varsub_category =Request.QueryString ("sub_category")
	varauditor =Request.QueryString ("auditor")
	varaudit_date =Request.QueryString ("audit_date")
	varimage_quality =Request.QueryString ("image_quality")
	varlegible =Request.QueryString ("legible")
	varcross_index =Request.QueryString ("cross_index")
	varquality_comment =Request.QueryString ("quality_comment")
	varprivate =Request.QueryString ("private")
	varcolor =Request.QueryString ("color")

	
	'following line for testing
	Response.Write varauto_ID & "<br>"
	Response.Write "vartitle = " & vartitle & "<br>"
	
	Set oRS=Server.CreateObject ("ADODB.Recordset")
	oRS.Open "links", strconnect,adOpenKeyset,adLockOptimistic
	oRS.Find "auto_ID = " & varauto_ID
	If oRS.EOF Then
		Response.Write "There was an error in finding your item"
		Response.Write "<a href='index.asp'>Homepage</a>"
	End If
	
	'Perform Updates
	If varcode<>"" Then oRS("code") = varcode
	If vartitle<>"" Then oRS("title") = vartitle
	If Trim(varurl)<>"" Then oRS("url") = varurl
	If varfile_name<>"" Then oRS("file_name") = varfile_name
	If varbox<>"" Then oRS("box") = varbox
	If Trim(vardescribe)<>"" Then oRS("describe") = vardescribe
	If Trim(varlocation)<>"" Then oRS("location") = varlocation
	If varsource<>"" Then oRS("source") = varsource
	If varcreated<>"" Then oRS("created") = varcreated
	If varsub_category<>"" Then oRS("sub_category") = varsub_category
	If varauditor<>"" Then oRS("auditor") = varauditor
	If varaudit_date<>"" Then oRS("audit_date") = varaudit_date
	If varimage_quality<>"" Then oRS("image_quality") = varimage_quality
	If varlegible<>"" Then oRS("legible") = varlegible
	If varcross_index<>"" Then oRS("cross_index") = varcross_index
	If Trim(varquality_comment)<>"" Then oRS("quality_comment") = varquality_comment
	If varprivate<>"" Then oRS("private") = varprivate
	If varcolor<>"" Then oRS("color") = varcolor
oRS.Update
%>

(in reply to rdouglass)


rdouglass Posts: 9280 From: Biddeford, ME USA Status: offline	RE: A better way? - 3/11/2005 16:18:18 Forgive me if I seem dense, but does that code work? If so, you should be picking up the values of that dropdown as long as the dropdown is contained in the form that's posting to that form handler / code. Did that make any sense? _____________________________ Don't take you're eye off your final destination. ASP Checkbox Function Tutorial. (in reply to mar0364)


mar0364 Posts: 3221 Joined: 4/5/2002 From: Florida, US Status: offline	RE: A better way? - 3/12/2005 8:56:08 After a little more thought on my side it works great. Sorry I should have been more clear in my objective. Thanks! Rich (in reply to rdouglass)

Page: [1]

All Forums >> Web Development >> ASP and Database >> A better way?

Page: [1]

Jump to: 1

New Messages	No New Messages
Hot Topic w/ New Messages	Hot Topic w/o New Messages
Locked w/ New Messages	Locked w/o New Messages

Post New Thread

Reply to Message

Post New Poll

Submit Vote

Delete My Own Post

Delete My Own Thread

Rate Posts