<% Dim MyConn_RQ, USERNAME, PASSWORD

  '------------------------------------'
  ' Random Quote  2.5                  '
  ' Copyright � 2000-2005 Expinion.net '
  ' http://www.expinion.net            '
  ' Released Under GPL                 '
  ' Released: February 24. 2005        '
  '------------------------------------'


  '// SET YOUR USERNAME & PASSWORD
  USERNAME = "quotes"
  PASSWORD = "quotes"

  '// SET YOUR DATBASE CONNECTION
  SUB OPEN_DB()
    '// MySQL CONNECTION
       Set MyConn_RQ = Server.CreateObject("ADODB.Connection")
       MyConn_RQ.open = "DRIVER={MySQL ODBC 3.51 Driver};" & "SERVER=mysql.itpartnership.com;" & " DATABASE=itpquotes;" & "UID=quotes;PWD=quotes; OPTION=35"

      '// DSN CONNECTION
    'Set MyConn_RQ = Server.CreateObject("ADODB.Connection")
      'MyConn_RQ.open = "DSN=dsn_name"

    '// ACCESS CONNECTION
    'Set MyConn_RQ = Server.CreateObject("ADODB.Connection")
    'MyConn_RQ.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=F:\Inetpub\wwwroot\RandomQ\DB\random_q.mdb;"

    '// SAMPLE MapPath CONNECTION
    'Set MyConn_RQ = Server.CreateObject("ADODB.Connection")
    'sConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("\path_to\db\random_q.mdb") & ";Persist Security Info=False"
    'MyConn_RQ.Open(sConnection)
  END SUB


    ' --==--==--==--==--  THAT IS ALL YOU HAVE TO CHAGE  --==--==--==--==-- '
































































    PRIVATE FUNCTION APO(val)
      APO = Replace(Trim(val),"'","''")
    END FUNCTION

    FUNCTION CONVERT_TXT(val)
      IF Trim(Cstr(val)) = "1" THEN
        CONVERT_TXT = "Yes"
      ELSE
        CONVERT_TXT = "No"
      END IF
    END FUNCTION

    PRIVATE FUNCTION APO_FULL(val)
        Dim tmpSTR
        tmpSTR = val
        IF NOT tmpSTR = "" THEN
            tmpSTR = Replace(Trim(tmpSTR),chr(34),"&quot;")
          tmpSTR = Replace(Trim(tmpSTR),"'","''")
            tmpSTR = Replace(Trim(tmpSTR),"<","&lt;")
            tmpSTR = Replace(Trim(tmpSTR),">","&gt;")
            tmpSTR = Replace(Trim(tmpSTR),vbcrlf," ")
        END IF
        APO_FULL = tmpSTR
    END FUNCTION

  FUNCTION STRIP_CODE(strText)
    Dim RegEx
    Set RegEx = New RegExp
    RegEx.Pattern = "<[^>]*>"
    RegEx.Global = True
    strText = Replace(strText, "<br>", chr(10))
    strText = Replace(strText, "&quot;", "'")
    strText = Replace(strText, "&nbsp;", " ")
    STRIP_CODE = RegEx.Replace(strText, "")
    Set RegEx = Nothing
  END FUNCTION

  PRIVATE FUNCTION IS_VALID_ID(sID)
    If IsNull(sID) OR Trim(sID) = "" Then
      IS_VALID_ID = False
    Else
        If Instr(sID,",") >=1 THEN
            IS_VALID_ID = False
        Else
            If IsNumeric(sID) = True Then
                IS_VALID_ID = True
            Else
                IS_VALID_ID = False
            End If
        End If
    End If
  END FUNCTION

%>