数据库链接问题

[jxyl502]

错误类型：
Microsoft VBScript compilation (0x800A0411)
Name redefined
conn.asp, line 3, column 4
dim startime,conn,connstr,db,rs_s,rs_s1
---^

这是conn.asp的代码
<%
dim startime,conn,connstr,db,rs_s,rs_s1
startime=timer()
db="shop.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
conn.Open connstr
%>

我不知道怎样解决，请各位大侠帮帮忙！谢谢！