ASP，能上传图片，但信息没写进数据库！？？在线等答

<%
set upload=new upload_5xSoft
set file=upload.file("file1")
formPath="images/photo/"
if file.filesize>100 then
fileExt=lcase(right(file.filename,3))
if fileExt="asp" then
Response.Write"文件类型非法"
end if
end if
randomize
ranNum=int(90000*rnd)+10000
filename=formPath&year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&ranNum&"."&fileExt
if file.FileSize>0 then
file.SaveAs Server.mappath(FileName)

Set rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT top 1 * FROM photo"
rs.OPEN sql,Conn,1,3
Rs.AddNew
rs("name")=trim(request.form("name"))
rs("sm")=trim(request.form("sm"))
rs("username")=session("user")
rs.update
response.write "<script language='javascript'>"
re