<% Response.Buffer = True On Error Resume Next Set dbConn = Server.CreateObject("ADODB.Connection") 'dbConn.CursorLocation = Application("dbCursorLocation") dbConn.Open Application("dbString") MAINTENANCESQL = "SELECT ID FROM kodb_content WHERE categoryid='1'" Set MAINTENANCEDS = Server.CreateObject("ADODB.Recordset") MAINTENANCEDS.Open MAINTENANCESQL, dbConn If Err.Number <> 0 And dbConn.Errors.Count <> 0 Then Response.Clear Response.Redirect "maintenance/index.asp" End If dbConn.Close Set dbConn = Nothing %> Ko Orthopaedic Specialist <% IF REQUEST.QueryString("lang") = "CN" THEN LANGCHECK = "CN" ELSE LANGCHECK = "EN" END IF %>
<% IF request("CID")="fcontact" then %> <% ELSEIF request("CID") = "newsletter" then %> <% ELSE %> <% END IF %>