<%
'----------------- For SQL Server --------
'Dim Con
'Set Con=Server.CreateObject("ADODB.Connection")
'Set Con1=Server.CreateObject("ADODB.Connection")
'Local
'Con.Open "driver=SQL Server;SERVER=WEB-F1GXAR21086;UID=sa;PWD=;APP=;DATABASE=db_Nawab" 'for SqlServer of LOCAL machin
'Con1.Open "driver=SQL Server;SERVER=localhost;UID=sa;PWD=;APP=;DATABASE=db_SFAL_Durgapur" 'for SqlServer of LOCAL machin
'--------------- For Ms Access
Dim Con
Set Con = Server.CreateObject("ADODB.Connection")
Con.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db_satii.mdb") & ";UID=Admin; pwd=irsunelo"
Function FixQuotes(strData)
FixQuotes=Replace(strData,"'","''")
'FixQuotes=Replace("Source String","Which data has to be replace","Value of new data")
End Function
%>
