asp/database
-
Home >> New Token Creation
New Token Creation
Please Fill the Following Details
<% sql="Select * from user order by name" Opendatabase conn Set rsUserInfo = Server.CreateObject("ADODB.Recordset") rsUserInfo.open sql,conn,1,1 if rsUserInfo.eof=true then response.Write "
No User, So you Can't assign the token.!!
" response.End() end if if request("step")="1" then er="" username = request("username") issue = request("issue") if issue="" then er = er & "Please Enter The Issue, Issue can't be blank.
" if username="" then er = er & "Please select Username.
" flg=1 response.Write("username is" & username & "
") response.Write("issue is" & issue) if er="" then 'response.Write("comes") sql="select * from user where username='"& trim(username) &"' limit 1" Set rsAssign = Server.CreateObject("ADODB.Recordset") rsAssign.open sql,conn,1,1 ' response.Write("second") if rsAssign.eof<>true then ' response.Write("comes here") 'sql="insert into tokeninfo (issue,userid) values ('"& issue &"',"& rsAssign("id") &")" sql="update tokeninfo set issue='" & issue & "',userid=" & rsAssign("id") & "" conn.execute sql flg=0 response.Write("flag is "& flg) response.Write "Token is Created Successfully.
" 'response.End() rsAssign.movenext end if else response.Write "
"& er &"
" end if
-
Home >> New Token Creation
New Token Creation
Please Fill the Following Details
<% sql="Select * from user order by name" Opendatabase conn Set rsUserInfo = Server.CreateObject("ADODB.Recordset") rsUserInfo.open sql,conn,1,1 if rsUserInfo.eof=true then response.Write "
No User, So you Can't assign the token.!!
" response.End() end if if request("step")="1" then er="" username = request("username") issue = request("issue") if issue="" then er = er & "Please Enter The Issue, Issue can't be blank.
" if username="" then er = er & "Please select Username.
" flg=1 response.Write("username is" & username & "
") response.Write("issue is" & issue) if er="" then 'response.Write("comes") sql="select * from user where username='"& trim(username) &"' limit 1" Set rsAssign = Server.CreateObject("ADODB.Recordset") rsAssign.open sql,conn,1,1 ' response.Write("second") if rsAssign.eof<>true then ' response.Write("comes here") 'sql="insert into tokeninfo (issue,userid) values ('"& issue &"',"& rsAssign("id") &")" sql="update tokeninfo set issue='" & issue & "',userid=" & rsAssign("id") & "" conn.execute sql flg=0 response.Write("flag is "& flg) response.Write "Token is Created Successfully.
" 'response.End() rsAssign.movenext end if else response.Write "
"& er &"
" end if
What did you just Post :(
Vuyiswa Maseko, Few companies that installed computers to reduce the employment of clerks have realized their expectations.... They now need more and more expensive clerks even though they call them "Developers" or "Programmers." C#/VB.NET/ASP.NET/SQL7/2000/2005/2008 http://www.vuyiswamaseko.com vuyiswa@its.co.za http://www.itsabacus.co.za/itsabacus/