Editing: connectDB.asp.bak

<% 'dim rsw ' Function dbConnect() ' Set conn = Server.CreateObject("ADODB.Connection") 'response.write "connect db" 'Conn.Provider="Microsoft.Jet.OLEDB.4.0" 'conn.connectionsting= '"PROVIDER0 = SQLOLEDB; DATA SOURCE=BSRI\MSSQLSERVER;DATABASE=test; user id =guest; password=" 'conn.open ' conn.Open "driver={SQL Server}; SERVER=bsri; DATABASE=ict2;uid=administrator;pwd=GlVlyd28 " 'conn.open("provider=sqloledb; data source = ; initial catalog= ; user id = ; password= ;") Dim Conn,strSQL,objRec Set Conn = Server.Createobject("ADODB.Connection") Conn.Open "Driver={SQL Server};Server=BSRI\bsriserver;Database=test;UID=sa;PWD=sonteeen;" 'Conn.Open "Driver={SQL Server};Server=BSRI\administrator;Database=ict2;UID=sa;PWD=sonteeen;" 'Conn.Open "Driver={SQL Server};Server=BSRI\administrator;Database=test1;UID=sa;PWD=sonteeen;" %>