
<%
On Error Resume Next
	Dim ConnStr,conn
		Dim SqlDatabaseName,SqlPassword,SqlUsername,SqlLocalName
		SqlDatabaseName = "516dataa" 
		SqlPassword = "516data516data"   
		SqlUsername = "sa"   
		SqlLocalName = "(local)"
		ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"
	Set conn = Server.CreateObject("ADODB.Connection")
	conn.open ConnStr
%>
