%
Dim cnn
set cnn=Server.CreateObject("ADODB.Connection")
Dim ConnectionString
ConnectionString="PROVIDER=SQLOlEDB;Data Source= india-server;uid=mallofindia;pwd=password;database=mallofindia"
cnn.ConnectionString =ConnectionString
cnn.open
Dim rscat
rscat= server.createObject()
%>