Initial contact with a MySQL database :

' CHANGE THESE VALUES TO YOUR OWN SERVER INFORMATION ***********************************************

MySQLSVR = "xx.xx.xx.xx"                            ' IP or hostname of MySQL server
MySQLPRT = 3306                                        ' MySQL port (default 3306)
MySQLUID = "root"                                       ' Username (between quotes)
MySQLPWD = ""                                           ' Password (between quotes)
MySQLDB = "Database"                               ' Active DataBase (between quotes)
MySQLOPT = 16386                                     ' MyODBC options values (at least 16386)

' END OF UPDATE ***********************************************************************************

strConnection = "driver={mysql ODBC 3.51 driver};" _
                           server="&MySQLSVR&";port="&MySQLPRT&";uid="&MySQLUID&";" _
                           pwd="&MySQLPWD&";database="&MySQLDB&";option="&MySQLOPT&";"

Set RS = Server.CreateObject("ADODB.Recordset")
RS.ActiveConnection = strConnection
RS.CursorType = 0
RS.CursorLocation = 3
RS.LockType = 3

To insert a record to the database and return the unique ID of the record inserted.
          ID field should be set to 'int' and 'Auto Increment' enabled.

set dbconn = createobject("ADODB.Connection")
dbConn.open strConnection
dbconn.execute "insert into database.tablename (field1,field2,field3,fieldn) VALUES ('value1','value2','value3','valuen') ;"
          Set ID = dbconn.Execute("SELECT ID FROM database.tablename WHERE ID = last_insert_id() ; ")
          My_Last_Inserted_ID = ID(0)
dbconn.close
set dbconn = Nothing

To update a record

set dbconn = createobject("ADODB.Connection")
dbConn.open strConnection
dbconn.execute "update database.tablename SET field1 = " & value1 & ",field2 = 'value2' WHERE id = " & My_Selected_ID & " ;"
dbconn.close
set dbconn = nothing

To delete a record

set dbconn = createobject("ADODB.Connection")
dbConn.open strConnection
dbconn.execute "delete from database.tablename WHERE id = " & My_Selected_ID& " ;"
dbconn.close
set dbconn = nothing

To retrieve a record from a database

RS.Source = "SELECT * FROM database.tablename WHERE field1 = 'value1' ;"
RS.Open()
             My_Retrieved_Information = RS.Fields("field").Value
RS.Close

To retrieve a lot of records from a database (1)

RS.Source = "SELECT * FROM database.tablename WHERE field1 = 'value1' AND field2 = '" & value2 & "' ;"
RS.Open()

Do While NOT RS.EOF
             Response.Write ( RS.Fields("field").Value )
             Response.Flush()
             RS.MoveNext()
Loop
RS.Close

To retrieve a lot of records from a database (2)

RS.Source = "SELECT * FROM database.tablename WHERE field1 = 'value1' AND field2 = '" & value2 & "' ;"
RS.Open()

MyRecordCount = 0

If NOT RS.EOF
             MyRecordCount = RS.RecordCount() - 1
             MyArray = RS.GetRows()
End If
RS.Close

For MyCount = 0 to MyRecordCount
             Response.Write ( MyArray(field_number,MyCount) )
             Response.Flush()
Next 'MyCount

' #######################################################

RS.Source = "SELECT *, count(*) cnt FROM TABLE GROUP BY 'FIELD' HAVING cnt > 1"
RS.Open()
	DS = RS.GetRows()
RS.Close()

set dbconn = createobject("ADODB.Connection")
		dbConn.open strConnection

	For myCount = 0 to UBound(DS,2)
			dbconn.execute "delete from DATABASE.TABLE WHERE id = " & DS(0,myCount) & " ;"
	Next

dbconn.close
set dbconn = nothing
		
' ####################################################################    		
    	  

Function pCase(aString)
  If (Len(aString)) Then
    aString = LCase(aString)
    pCase = ""
    cchar = ""
    pchar = " "

    For i = 1 To Len(aString)
      cchar = Mid(aString,i,1)
      If cchar = "'" then cchar = "’"
      Select Case pchar
      Case "/", "\", "-", ":", ";", ".", " ", "(", "&"
        cchar = UCase(cchar)
      End Select

      pchar = cchar
      pCase = pCase & cchar
    Next
  Else
    pCase = aString
  End If

  If InStr(pCase,"(Uk)") then pCase = Replace(pCase,"(Uk)","(UK)")

End Function