<%@LANGUAGE="VBSCRIPT"%> <% Dim Recordset1__rett Recordset1__rett = "1" If (request.querystring("techid") <> "") Then Recordset1__rett = request.querystring("techid") End If %> <% Dim Recordset1 Dim Recordset1_numRows Set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = MM_opco2_STRING Recordset1.Source = "SELECT * FROM technology WHERE techid = " + Replace(Recordset1__rett, "'", "''") + "" Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType = 1 Recordset1.Open() Recordset1_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 5 Repeat1__index = 0 Recordset1_numRows = Recordset1_numRows + Repeat1__numRows %> <% Dim MM_paramName %> <% ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters Dim MM_keepNone Dim MM_keepURL Dim MM_keepForm Dim MM_keepBoth Dim MM_removeList Dim MM_item Dim MM_nextItem ' create the list of parameters which should not be maintained MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" End If MM_keepURL="" MM_keepForm="" MM_keepBoth="" MM_keepNone="" ' add the URL parameters to the MM_keepURL string For Each MM_item In Request.QueryString MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item)) End If Next ' add the Form variables to the MM_keepForm string For Each MM_item In Request.Form MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item)) End If Next ' create the Form + URL string and remove the intial '&' from each of the strings MM_keepBoth = MM_keepURL & MM_keepForm If (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1) End If If (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) End If If (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) End If ' a utility function used for adding additional parameters to these strings Function MM_joinChar(firstItem) If (firstItem <> "") Then MM_joinChar = "&" Else MM_joinChar = "" End If End Function %> OPCO - Technology - <%=(Recordset1.Fields.Item("techheader").Value)%>
People - Process - Communication - Technology
From level ground to finish building - OPCO in ACTION

OPCO terms and conditions

back to previous page

Constructionline logo - click for more information

OPCO Terms and Conditions    

OPCO Web site

By accessing this site, you agree to the following terms and conditions and other applicable law. If you do not agree to be bound by these terms and conditions, please do not use this site.

All the information and material provided on this web site is solely for illustrative purposes. It is not intended to, and does not create any business, contractual or employment relationship with OPCO. All the information, content, text, images, including but not limited to) html code, photography and buttons are the property of OPCO, and may not be copied, reproduced, republished, posted, transmitted, or distributed in any way without our express, advance, written consent. All trademarks used or referred to in this site are the property of their respective owners.

The information on this site is provided free of charge and for informational purposes. It does not create a business, employment or professional services relationship between you and OPCO.

Links on this site may lead to services or sites not operated by OPCO. No judgment or warranty is made with respect to such other services or sites and OPCO takes no responsibility for such other sites or services. A link to another site or service is not an endorsement of that site or service. Any use you make of the information provided on this site, or any site or service linked to by this site, is at your own risk. This site is provided "as is" and OPCO expressly disclaims all warranties of any kind, whether express or implied, including the warranties of merchantability and fitness for a particular purpose.

In no event shall OPCO, or any of its employees or contractors, be liable for any damages whatsoever in connection with the information or material on this web site, including but not limited to actual, consequential, direct, exemplary, incidental, indirect, punitive or special damages. "OPCO" and the OPCO logo are trademarks of OPCO.



  Copyright © 2017 OPCO Construction     Terms and Conditions      Email Enquiry                         
<% Recordset1.Close() Set Recordset1 = Nothing %>