<%@ Language=VBScript %> <% dQte = Chr(34) sQte = Chr(39) Set connWells99 = Server.CreateObject("ADODB.Connection") connWells99.Open "Data Source=" & Server.Mappath("/database/Wells99.mdb") & ";Provider=Microsoft.Jet.OLEDB.4.0;" If Request.Form("op_comp") <> "" Then session("company") = Request.Form("op_comp") End If If Request.Form("op_state") <> "" Then session("state") = Request.Form("op_state") End If If Request.Form("op_area") <> "" Then session("area") = Request.Form("op_area") End If If Request.Form("op_recPage") <> "" Then session("recPage") = CInt(Request.Form("op_recPage")) End If session("lwrBndRec") = 1 session("uprBndRec") = session("recPage") iPg1st_fnd = 1 iPgRec_fnd = session("recPage") iPgMul_fnd = session("recPage") b_Bndfnd = "b_" & CStr(iPg1st_fnd) & "_" & CStr(iPgMul_fnd) For iLnkCnt_fnd = 1 to session("iTotRecCnt") If iLnkCnt_fnd > iPgMul_fnd Then b_Bndfnd = "b_" & CStr(iPg1st_fnd) & "_" & CStr(iPgMul_fnd) If Request.Form(b_Bndfnd) <> "" Then session("lwrBndRec") = iPg1st_fnd session("uprBndRec") = iPgMul_fnd Exit For End If iPgMul_fnd = iPgMul_fnd + iPgRec_fnd iPg1st_fnd = iLnkCnt_fnd End If Next If iLnkCnt_fnd < iPgMul_fnd Then b_Bndfnd = "b_" & CStr(iPg1st_fnd) & "_" & CStr(iLnkCnt_fnd) If Request.Form(b_Bndfnd) <> "" Then session("lwrBndRec") = iPg1st_fnd session("uprBndRec") = iLnkCnt_fnd End If End If %> Stratagraph, Inc.

Yearly Banner

widget
Login

Network Solutions Seal

 

 

Wells Search

Company: <% Set rst_Wells99_comp = Server.CreateObject("ADODB.RecordSet") sSQL_comp = "SELECT DISTINCT COMPANY FROM [ALPHA97]" Set rst_Wells99_comp = connWells99.Execute(sSQL_comp) Response.Write("") Set rst_Wells99_comp = Nothing %>     Wildcard Search,...
State: <% If session("company") <> "" Then Set rst_Wells99_state = Server.CreateObject("ADODB.RecordSet") sSQL_area = "SELECT DISTINCT STATE2 FROM [ALPHA97] WHERE COMPANY=" & sQte & session("company") & sQte Set rst_Wells99_state = connWells99.Execute(sSQL_area) iflgSelect_state = 0 Response.Write("") Set rst_Wells99_state = Nothing Else Response.Write("Please select a company") End If If iflgSelect_state = 0 Then session("state") = "%" %>
Area: <% If session("company") <> "" Then Set rst_Wells99_area = Server.CreateObject("ADODB.RecordSet") sSQL_area = "SELECT DISTINCT AREA FROM [ALPHA97] WHERE COMPANY=" & sQte & session("company") & sQte & " AND STATE2 LIKE " & sQte & session("state") & sQte Set rst_Wells99_area = connWells99.Execute(sSQL_area) iflgSelect_area = 0 Response.Write("") Set rst_Wells99_area = Nothing Else Response.Write("to initiate your search") End If If iflgSelect_area = 0 Then session("area") = "%" %>
Page Results:   /  Page
<% If session("company") <> "" Then sSQL_cnt = "SELECT COUNT(COMPANY) AS TotRecCnt FROM [ALPHA97] WHERE COMPANY=" & sQte & session("company") & sQte & " AND AREA LIKE " & sQte & session("area") & sQte & " AND STATE2 LIKE " & sQte & session("state") & sQte sSQL_qry = "SELECT WELL_NAME, DEPTH, AREA, DATE, COMPANY, STATE2, LOGGER_1, LOGGER_2, LOGGER_3, LOGGER_4, LOGGER_5, LOGGER_6 FROM [ALPHA97] WHERE COMPANY=" & sQte & session("company") & sQte & " AND AREA LIKE " & sQte & session("area") & sQte & " AND STATE2 LIKE " & sQte & session("state") & sQte & " ORDER BY WELL_NAME" Set rst_Wells99_cnt = Server.CreateObject("ADODB.RecordSet") Set rst_Wells99_cnt = connWells99.Execute(sSQL_cnt) Do While NOT rst_Wells99_cnt.EOF session("iTotRecCnt") = rst_Wells99_cnt.Fields("TotRecCnt").value - 1 rst_Wells99_cnt.MoveNext Loop rst_Wells99_cnt.Close Set rst_Wells99_cnt = Nothing Set rst_Wells99_qry = Server.CreateObject("ADODB.RecordSet") Set rst_Wells99_qry = connWells99.Execute(sSQL_qry) Response.Write("") Response.Write("") Response.Write("") Response.Write("") 'Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") 'Response.Write("") 'Response.Write("") 'Response.Write("") 'Response.Write("") 'Response.Write("") 'Response.Write("") Response.Write("") Do While NOT rst_Wells99_qry.EOF iCurrRec = iCurrRec + 1 If iCurrRec >= session("lwrBndRec") And iCurrRec <= session("uprBndRec") Then If ((iCurrRec / 2) - Round((iCurrRec / 2),0)) <> 0 Then Response.Write("") Else Response.Write("") End If Response.Write("") Response.Write("") 'Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") 'Response.Write("") 'Response.Write("") 'Response.Write("") 'Response.Write("") 'Response.Write("") 'Response.Write("") Response.Write("") End If rst_Wells99_qry.MoveNext Loop rst_Wells99_qry.Close Set rst_Wells99_qry = Nothing Response.Write("
#WellDepthAreaDateCompanyStateLogger 1Logger 2Logger 3Logger 4Logger 5Logger 6
 " & CStr(iCurrRec) & " " & rst_Wells99_qry.Fields("WELL_NAME").value & " " & rst_Wells99_qry.Fields("DEPTH").value & " " & rst_Wells99_qry.Fields("AREA").value & " " & rst_Wells99_qry.Fields("DATE").value & " " & rst_Wells99_qry.Fields("COMPANY").value & " " & rst_Wells99_qry.Fields("STATE2").value & " " & rst_Wells99_qry.Fields("LOGGER_1").value & " " & rst_Wells99_qry.Fields("LOGGER_2").value & " " & rst_Wells99_qry.Fields("LOGGER_3").value & " " & rst_Wells99_qry.Fields("LOGGER_4").value & " " & rst_Wells99_qry.Fields("LOGGER_5").value & " " & rst_Wells99_qry.Fields("LOGGER_6").value & "
") iLnkRow = 6 iLnkAdd = 1 iPg1st = 1 iPgRec = session("recPage") iPgMul = session("recPage") Response.Write("
") Response.Write("") Response.Write("") For iLnkCnt = 1 to session("iTotRecCnt") If iLnkCnt > iPgMul Then Response.Write("") Response.Write("") iPgMul = iPgMul + iPgRec iPg1st = iLnkCnt If iLnkAdd = iLnkRow Then Response.Write("") iLnkAdd = 1 Else iLnkAdd = iLnkAdd + 1 End If End If Next If iLnkCnt < iPgMul Then Response.Write("") End If Response.Write("") Response.Write("
    
") End If 'Response.Write("
" & sSQL_qry & "
") %>

 

<% connWells99.Close Set connWells99 = Nothing %>