军人电视剧排行榜:asp与数据库连接问题，急~！

<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("data/56789.asp")

sql = "select p_id,p_name.p_pic,p_spec from p_info"
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,1

Do While Not rs.Eof

Response.Write "<a href="showpic.asp?p_id=<%= n_rs("p_id") %>&path=<%= n_rs("p_pic") %>&pname=<%= n_rs("p_name") %>" target="_self"><img name="<%= n_rs("p_name") %>" src="UploadFile/<%= n_rs("p_pic") %>" alt="产品的名称：<%= n_rs("p_name") %>-型号：<%= n_rs("p_spec") %>" border="1" style="border-style: solid; border-color: #000000"></a>"
rs.MoveNext
Loop

rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing

%>
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("data/56789.asp")}

sql = "select p_id,p_name.p_pic,p_spec from p_info"
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,1

Do While Not rs.Eof

Response.Write "<a href="showpic.asp?p_id=<%= rs("p_id") %>&path=<%= rs("p_pic") %

>&pname=<%= rs("p_name") %>" target="_self"><img name="<%= rs("p_name") %>"

src="UploadFile/<%= rs("p_pic") %>" alt="产品的名称：<%= rs("p_name") %>-型号：<%= rs

("p_spec") %>" border="1" style="border-style: solid; border-color: #000000"></a>"
rs.MoveNext
Loop

rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
%>