%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% site_id = Request.QueryString("site_id") lake_id = Request.QueryString("lake_ID") Dim rs_LakeInfo Dim rs_LakeInfo_numRows Set rs_LakeInfo = Server.CreateObject("ADODB.Recordset") rs_LakeInfo.ActiveConnection = MM_strREC_STRING 'rs_LakeInfo.Source = "SELECT LAKE_ID, LAKE_NAME, LAKE_IMAGE_FILE, PROJECT_NAME, RIVER, LAKE_TEXT, ADDRESS_ID, ADDRESS1, ADDRESS2, STREET, CITY, STATE, ZIP_CODE, PHONE1, PHONE2, TOLL_FREE, FAX1, EMAIL1, EMAIL2, NOTES FROM RECREATION.V_LAKE_INFO" rs_LakeInfo.Source = "SELECT LAKE_ID, LAKE_NAME, LAKE_IMAGE_FILE, PROJECT_NAME, RIVER, LAKE_TEXT, ADDRESS_ID, ADDRESS1, ADDRESS2, STREET, CITY, STATE, ZIP_CODE, PHONE1, PHONE2, TOLL_FREE, FAX1, EMAIL1, EMAIL2, NOTES FROM RECREATION.V_LAKE_INFO WHERE LAKE_ID = " & lake_id rs_LakeInfo.CursorType = 0 rs_LakeInfo.CursorLocation = 2 rs_LakeInfo.LockType = 1 'rs_LakeInfo.Open() rs_LakeInfo_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rs_siteInfo_numRows = rs_siteInfo_numRows + Repeat1__numRows %>
| District Home | Recreation Home | Site Selection |
|
Dworshak Reservoir US Army Corps of Engineers P O Box 48 Ahsahka ID. 83520 |
![]() |
|
|
Phone: 208-476-1255 Visitor Center Staff Phone: 208-476-1261 Administrative Staff Toll Free: 800-321-3198 24-hour Information E-mail: DworshakRecreation-NaturalResources@usace.army.mil |
||
|
|||||||||||||||||||||||||||