<%Dim Cn,StrDSN,StrServerName,StrDBName,StrUid,StrPwd
StrServerName="(local)"
StrDBName="Show5new"
StrUid="cnzzd"
StrPwd="cnzzd"
Set Cn = Server.CreateObject("ADODB.Connection")
StrDSN="Driver={SQL Server};Server=" & StrServerName & ";Database=" & StrDBName & ";Uid=" & StrUid & ";Pwd=" & StrPwd & ";"
Cn.Open StrDSN%>
