<%@ Language=VBScript %> <% Response.Buffer = "true" %> <% cat1 = Request.QueryString("cat") Set Conn = Server.CreateObject("ADODB.Connection") Conn.open "filedsn=c:\inetpub\orangepie\dsn\sqldb.dsn","orangepie","orangepie" Set rs = Server.CreateObject("ADODB.recordset") Set rs1 = Server.CreateObject("ADODB.recordset") sql="select presentdate,cardnum,catid from cardoftheday where category ='" & cat1 &"'" sql3 = "select catid from cardoftheday where category not in ('" & cat1 &"')" rs.Open sql3,conn,0,1 ' current card catid nocatid1 contains nocatid1 = rs("catid") rs.Close rs.Open sql,conn,1,3 prdate = rs("presentdate") cardnumber = rs("cardnum") select case cat1 case "ani" if prdate <> date() then sql1="select cardnum,catid from carddetail where catid not in('AN1','AN195','FL3','AN51','AN53','AN261','AN50','AN247','AN27','AN28','AN34','AN49','AN37','AN42','AN57','AN59','AN260','AN262','AN60','AN61','AN63','AN172','AN47','AN241','AN75','AN81','AN82','AN48','AN89','AN46','AN92','FL21','AN160','AN106','AN108','FL57','FL20','AN249','AN263','AN110','AN45','An112','AN44','AN119','AN43','AN161','AN158','AN131','AN134','FL32','AN142','AN52','AN157','AN156','AN168','FL42','AN46','FL59','AN8','" &nocatid1&"')" rs1.Open sql1,conn,1,3 totalcards = rs1.RecordCount randomize() 'Response.Write rnd 'Response.Write "TOTAL=" &totalcards pos = round(int((rnd*totalcards))) 'Response.Write "POS=" &pos rs1.Move(pos) anicard= rs1("cardnum") catid1 = rs1("catid") path="generate.asp?cno="&anicard sql1="update cardoftheday set cardnum = '" & anicard & "', path = '"& path & "',catid = '" & catid1 & "',presentdate = '" & date()& "' where category ='"&cat1&"'" conn.Execute(sql1) else sql="select * from cardoftheday where category ='"&cat1&"'" rs1.Open sql,conn,0,1 path=rs1("path") end if Response.Redirect(path) rs.Close set rs=nothing conn.Close set conn=nothing case "flash" if prdate <> date() then sql1="select cardnum,catid from flashcarddetail where catid not in('AN1','AN195','FL3','AN51','AN53','AN261','AN50','AN247','AN27','AN28','AN34','AN49','AN37','AN42','AN57','AN59','AN260','AN262','AN60','AN61','AN63','AN172','AN47','AN241','AN75','AN81','AN82','AN48','AN89','AN46','AN92','FL21','AN160','AN106','AN108','FL57','FL20','AN249','AN263','AN110','AN45','An112','AN44','AN119','AN43','AN161','AN158','AN131','AN134','FL32','AN142','AN52','AN157','AN156','AN168','FL42','AN46','FL59','AN8','" &nocatid1&"')" rs1.Open sql1,conn,1,3 totalcards = rs1.RecordCount randomize() 'Response.Write rnd 'Response.Write "TOTAL=" &totalcards pos = round(int((rnd*totalcards))) 'Response.Write "POS=" &pos rs1.Move(pos) flashcard= rs1("cardnum") catid1 = rs1("catid") path="flashsite/flashcard.asp?cardnum="&flashcard sql1="update cardoftheday set cardnum = '" & flashcard & "', path = '"& path & "',catid = '" & catid1 & "',presentdate = '" & date()& "' where category ='"&cat1&"'" conn.Execute(sql1) else sql="select * from cardoftheday where category ='"&cat1&"'" rs1.Open sql,conn,0,1 path=rs1("path") end if Response.Redirect(path) rs.Close set rs=nothing conn.Close set conn=nothing end select %>