<% dim conn ' Data connection for normal database connections. sub OpenConn() Set conn = Server.CreateObject("ADODB.Connection") if err.number <> 0 then ' Error Occurred response.write "Error occurred while creating Connection Object.
" response.write "Error Message:
" & err.description else ' Everything's Cool conn.ConnectionTimeout = Application("Conn_ConnectionTimeout") conn.CommandTimeout = Application("Conn_CommandTimeout") conn.Open Application("Conn_ConnectionString") if err.number <> 0 then ' Error Occurred response.write "Error Occurred While Opening Database Connection.
" response.write "Error Message:
" & err.description end if end if end sub sub CloseConn() conn.close set conn = nothing end sub function ReplaceQuotes(TheInput) ReplaceQuotes = Trim(Replace(TheInput, "'", "''")) end function %>