دوباره

[nasser]

سلام بر همگي

آقا من دست بر دار نيستم آخه خيلي بهش احتياج دارم

لطفا آقا مجيد يا هر كي با ASP كار كرده بگه اين كدها چه اشكالي داره واقعا ممنون مي شوم

<%   
Dim okok
Dim rs      


 set okok = server.createObject("ADODB.Connection")
 Set rs = Server.CreateObject("ADODB.Recordset") 

dbconnection2 = "DRIVER=Microsoft Access Driver (*.mdb);DBQ="

dbconnection2 = dbconnection2 & Server.MapPath("/nasser/database/db1.mdb")

okok.Open dbconnection2

rsCheckUser = "SELECT * FROM Admin WHERE "
rsCheckUser = rsCheckUser & ((Admin.StrUserName)='Admin'"))
rs.Open rsCheckUser, okok, 2, 3


rs.Fields("describe") = Request.Form("S1")


rs.Update 

rs.Requery 

Session("blnIsUserGood") = True 
okok.close
Set okok = Nothing 
rs.close
Set rs = Nothing 

%>

اين كدها را روي سايت DomainDLX پياده شده حالا اگه سايت ديگه اي كار كرده ايد روي همون بگيد تا من يك امتحاني بكنم

ممنون

 

[xnux]

والا من asp بلد نيستم
ولي فكر كنم مشكلت اين باشه

بعدا اگي نشد منو نزني ها


شما نوشتي

rsCheckUser = rsCheckUser & ((Admin.StrUserName)='Admin'"))

ولي فكر كنم بايد يه پرانتزها را حذف كني

يعني اينطوري

rsCheckUser = rsCheckUser & ((Admin.StrUserName)='Admin'")

در ضمن من به اون كتيشن ها هم شك دارم
برو يه تحقيقي بكن