|
<%dim rs,cat,id
set conn=server.createobject("adodb.connection")
set rs=server.createobject("adodb.recordset")
currdt=cdate(currdt)
currdt=DATE
conn.Open "DSN=planababe"
set rs=conn.execute ("select * from tempsing where dt = #" & currdt & "#")
'do while not rs.eof
' rs.fields("dt")=currdt then
if not rs.EOF = true then
' rs.MoveLast
' mquid = rs.Fields("qid")
flag=1
' exit do
end if
' rs.movenext
'loop
if flag=1 then
desc1=rs.fields("ddesc")
quid=rs.fields("qid")
response.write desc1
else
' set rss1=server.createobject("adodb.recordset")
' rss1.open "select * from tempsing",conn,2,3
' rss1.movenext
' quid=rss1.fields("qid")
' quid=quid+1
Set rs2=conn.execute("select * from singleqt where dt = #" & currdt & "#")
' rs2.movefirst
on error resume next
' do while not rs2.eof
' if rs2.fields("qid")=quid then
if not rs2.eof = true then
rs2.movelast
flg=1
desc1 = rs2.fields("ddesc")
quid = rs2.fields("qid")
' exit do
else
Response.Write "No questions for you today..!"
mflg=2
end if
' flg=2
' rs2.movenext
' loop
if flg=1 then
' conn.execute "insert into tempsing (qid,dt,ddesc,pos,neg,unsure) values ('"&quid&"','"&currdt&"','"&desc1&"',1,1,1)",i
conn.execute "insert into tempsing (qid,dt,ddesc,pos,neg,unsure) values ('"&quid&"','"&currdt&"','"&desc1&"',0,0,0)",i
response.write rs2.fields("ddesc")
end if
' if flg=2 then
' rs2.movefirst
' qqid=rs2.fields("qid")
' desc1=rs2.fields("ddesc")
' response.write desc1
' conn.execute ("insert into tempsing (qid,dt,ddesc,pos,neg,unsure) values ('"&qqid&"','"&currdt&"','"&desc1&"',1,1,1)")
' end if
end if
'if rs.bof then
' rs.close
'set rs=nothing
'set rs1=conn.execute ("select * from tempsing")
'do while not rs1.eof
' rs1.movenext
'loop
'id=rs1.fields("qid")
' id=cint(id)
'id=id+1
'response.write id
'response.write "id"
'set rs2=conn.execute ("select * from singleqt")
'if not rs2.movefirst then
''rs2.movefirst
' end if
' do while not rs2.eof
' if rs2.fields("qid")=id then
' 'rs1.movelast
'quid=rs2.fields("qid")
' desc1=rs2.fields("ddesc")
'
'st="insert into tempsing (qid,dt,ddesc) values ('"&quid&"','"&currdt&"','"&desc1&"')"
'response.write(st)
' conn.execute ("insert into tempsing (qid,dt,ddesc,pos,neg,unsure) values ('"&quid&"','"&currdt&"','"&desc1&"',1,1,1)")
' response.write rs2.fields("ddesc")
'end if
'rs2.movenext
' loop
'else
' desc2=rs.fields("ddesc")
'response.write desc2
'end if
%>
|
Directory Services