<%
Dim MM_outrage_STRING
MM_outrage_STRING = "Driver={MySQL}; SERVER=SERVER; PORT=PORT; DATABASE=DATABASE; UID=USERNAME; PWD=PASSWORD"
'MM_outrage_STRING = "dsn=outrageous;"

'some functions

Function adminrecord(thesql) 'recordset admin
	set admin = Server.CreateObject("ADODB.Connection") 
	admin.open MM_outrage_STRING
	admin.execute(thesql)
	admin.close 
End Function


Function formatthedate(dteDate) 'format the date for database
   If IsDate(dteDate) = True Then
      DIM dteDay, dteMonth, dteYear
      dteDay = Day(dteDate)
      dteMonth = Month(dteDate)
      dteYear   = Year(dteDate)
      formatthedate = dteYear & Right(Cstr(dteMonth + 100),2) & Right(Cstr(dteDay + 100),2)
   Else
      formatthedate = Null
   End If
End Function


function rsopen(thesql) 'open database connection

set rsopen = Server.CreateObject("ADODB.Recordset")
rsopen.Open thesql, MM_outrage_STRING

End function


function rsclose(rsname) 'close database connection
rsname.close
End function


%>