ASP Database Connection Program

<%@ LANGUAGE = VBScript CodePage = 936%>
<!--#include file= "safe.asp"-->
<%

On Error Resume Next
Response.Buffer = True
Dim startime
Dim conn
Dim connstr
Dim Sqldatabase,sql_pass_word,sql_user_id,sql_data_source
Startime=timer ()
Set conn = Server.CreateObject ("ADODB. Connection ")
ConnStr = "Provider=SQLOLEDB.1; Password= ' 88888547&* ($ '; Persist Security Info=false; User id= ' 888 '; Initial catalog= ' 888 ';D ATA source= ' 888 ' "
Conn. Open ConnStr
' ConnStr = ' provider=sqloledb.1;integrated security=sspi; Persist Security Info=false;data source= (local)
' Conn. Open ConnStr
' Conn. DefaultDatabase = "Dgjob"
Sub Creaters (SQL,LV1,LV2)
Set Rs=server. CreateObject ("Adodb.recordset")
Rs.Open Sql,conn,lv1,lv2
End Sub

function Closedb
Conn.close
Set conn = Nothing
End Function

If ERR Then
Response.Write "<!--" & Err.Number & ": & Err.Description &"--> "& vbCrLf
Response.Write "<!--" & Conn. ConnectionString & "-->" & vbCrLf
Response.Write "Database connection error, please check the connection string. "' Note, you need to translate these words into English.
Err. Clear
Set Conn = Nothing
Response.End
End If

function Rsclose
Set rs=nothing
End Function

function Connclose
Conn.close
Set conn=nothing
End Function

%>