aspاشكال در بازكردن بانك اطلاعاتي در

[roli_metalic2006]

من در كد هايم با اي اس پي ايراد دارم وقتي دستور ور ( اس كيو ال ) رو وارد مي كنم خطا مشاهده مي كنم ولي بدون اين ور درست كار مي كند آيا مي توانيد كد مرا اصلاح نماييد

<%
DIM objConn
Set objConn = Server.CreateObject("ADODB.Connection")
objconn.Open "dsn=nomre"
DIM Sql
DIM user1
user1 = request("user")
dim pass1
pass1 = request("pass")
Sql = " Select * From nomre where user="&pass&""
DIM objRS
DIM user2
DIM PASS2
Dim name1
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open Sql, objConn
do while not objrs.eof
User2 = objRS("user")
pass2 = objrs("pass")
name1 = objrs("name")
objrs.movenext
loop
objrs.close
set objrs=nothing

objConn.close
set objConn=nothing
if user2=user1 & pass2=pass1 Then
Response.Redirect "sthome.asp?user="&user2&"&name1="&name1&" "
else
Response.Redirect "validst.asp"
end if
%>

لطفا كمكم كنيد كارم خيلي گيره

[مهمان]

سلام
خط زير به صورتي که مشاهده مي شود اصلاح شد:
Sql = " Select * From nomre where user='"&pass&"'"
اگر مشکل شما حل نشد دوباره به اشکال اشاره نماييد.
موفق باشيد