QueryStringrss = ProtectSQL(request.QueryString("rss"))
Set sqlRSS = Server.CreateObject("ADODB.Command")
sqlRSS.ActiveConnection=objConn
sqlRSS.Prepared = true
sqlRSS.commandtext="Select id, RSSFeed FROM MyTable WHERE id=? AND RSSFeed=1"
sqlRSS.Parameters.Append sqlRSS.CreateParameter("@id", adInteger, adParamInput, , rss)
set rsRSS = sqlRSS.executepage.asp?rsss=1
Set sqlFFiltnd = CreateObject("ADODB.Command")
sqlFFiltnd.ActiveConnection=objConn
sqlFFiltnd.commandtext="update DTable set DFolder='NotDefault' where id=? and PicsFolder=?"
sqlFFiltnd.Parameters.Append sqlFFiltnd.CreateParameter("@id", 3, 1, , MineID)
sqlFFiltnd.Parameters.Append sqlFFiltnd.CreateParameter("@PFolder", 200, 1, 25, strFolderName)
sqlFFiltnd.execute
QueryStringVariablepage.asp?rss=1rss = ProtectSQL(request.QueryString("rss"))
Set sqlRSS = Server.CreateObject("ADODB.Command")
sqlRSS.ActiveConnection=objConn
sqlRSS.Prepared = true
sqlRSS.commandtext="Select id, RSSFeed FROM MyTable WHERE id=? AND RSSFeed=1"
sqlRSS.Parameters.Append sqlRSS.CreateParameter("@id", adInteger, adParamInput, , rss)
set rsRSS = sqlRSS.execute
Set sqlFFiltnd = CreateObject("ADODB.Command")
sqlFFiltnd.ActiveConnection=objConn
sqlFFiltnd.commandtext="update DTable set DFolder='NotDefault' where id=? and PicsFolder=?"
sqlFFiltnd.Parameters.Append sqlFFiltnd.CreateParameter("@id", 3, 1, , MineID)
sqlFFiltnd.Parameters.Append sqlFFiltnd.CreateParameter("@PFolder", 200, 1, 75, strFolderName)
sqlFFiltnd.execute