% Function FixQuotes(Str) If Str<>"" Then FixQuotes=Replace(str,"'","''") End If End Function %> <% ' url =Request.ServerVariables("PATH_TRANSLATED") ' pointer = InstrRev(url, "\", -1, 1) ' root = Mid(url,1,pointer) ' Set objConn = Server.CreateObject("ADODB.Connection") 'objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& root & "..\DB\trademark.mdb;Persist Security Info=False" Set objConn = Server.CreateObject("ADODB.Connection") Config = Server.MapPath("DB\trademark.mdb") objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source="&Config&";Persist Security Info=False;Jet OLEDB:Database Password=nmunttmark" %>
![]() |
![]() |
![]() |
![]() |
|
|
|
Copyright © www.trademarkmyanmar.com (2004, All rights reserved). Affiliated with U Nyunt Tin Associates, Intellectual Property Law Firm, Yangon, Union of Myanmar. This programmed, contents and database are protected by copyright law and International Treaties. Unauthorized reproduction, copying or distribution of this program, or any portion of it may be dealt with existing laws. |
|
Powered by Myanmar Mastery Technology |
Hits Since 19 Apr 2005 |