<%@ Language=VBScript %> <% Dim rs_risorsa__ID, newID, newItemID, sURL If (Request("Id") <> "") Then rs_risorsa__ID = Request("Id") Select Case rs_risorsa__ID Case 2 newID = 52: newItemID = 69 Case 3 newID = 98: newItemID = 77 Case 4 newID = 97: newItemID = 77 Case 5 newID = 96: newItemID = 77 Case 6 newID = 172: newItemID = 68 Case 7 newID = 56: newItemID = 68 Case 8 newID = 174: newItemID = 68 Case 9 newID = 173: newItemID = 68 Case 10 newID = 55: newItemID = 68 Case 11 newID = 57: newItemID = 68 Case 12 newID = 176: newItemID = 68 Case 15 newID = 120: newItemID = 75 Case 18 newID = 177: newItemID = 68 Case 19 newID = 119: newItemID = 75 Case 20 newID = 102: newItemID = 77 Case 24 newID = 101: newItemID = 77 Case 25 newID = 100: newItemID = 77 Case 26 newID = 99: newItemID = 77 Case 28 newID = 104: newItemID = 77 Case 30 newID = 178: newItemID = 68 Case 31 newID = 179: newItemID = 68 Case 32 newID = 180: newItemID = 68 Case 33 newID = 131: newItemID = 70 Case 34 newID = 132: newItemID = 70 Case 38 newID = 133: newItemID = 70 Case 39 newID = 54: newItemID = 69 Case 40 newID = 182: newItemID = 68 Case 41 newID = 181: newItemID = 68 Case 42 newID = 103: newItemID = 77 Case 43 newID = 134: newItemID = 69 Case 44 newID = 136: newItemID = 69 Case 45 newID = 135: newItemID = 69 Case 47 newID = 184: newItemID = 68 Case 48 newID = 183: newItemID = 68 Case 49 newID = 130: newItemID = 70 Case 50 newID = 186: newItemID = 68 Case 51 newID = 185: newItemID = 68 Case 52 newID = 137: newItemID = 69 Case 53 newID = 140: newItemID = 69 Case 54 newID = 189: newItemID = 68 Case 55 newID = 53: newItemID = 69 Case 56 newID = 199: newItemID = 68 Case 57 newID = 190: newItemID = 68 Case 58 newID = 193: newItemID = 68 Case 59 newID = 192: newItemID = 68 Case 60 newID = 139: newItemID = 69 Case 61 newID = 196: newItemID = 68 Case 62 newID = 69: newItemID = 69 Case 63 newID = 194: newItemID = 68 Case 64 newID = 141: newItemID = 69 Case 66 newID = 117: newItemID = 75 Case 67 newID = 187: newItemID = 68 Case 68 newID = 188: newItemID = 68 Case 69 newID = 127: newItemID = 71 Case 70 newID = 93: newItemID = 80 Case 71 newID = 115: newItemID = 75 Case 72 newID = 116: newItemID = 75 Case 73 newID = 114: newItemID = 75 Case 75 newID = 108: newItemID = 76 Case 76 newID = 126: newItemID = 73 Case 77 newID = 124: newItemID = 74 Case 78 newID = 95: newItemID = 79 Case 79 newID = 112: newItemID = 75 Case 80 newID = 113: newItemID = 75 Case 81 newID = 191: newItemID = 68 Case 82 newID = 125: newItemID = 73 Case 83 newID = 92: newItemID = 80 Case 84 newID = 107: newItemID = 76 Case 85 newID = 121: newItemID = 74 Case 86 newID = 122: newItemID = 74 Case 87 newID = 123: newItemID = 74 Case 88 newID = 111: newItemID = 75 Case 89 newID = 105: newItemID = 76 Case 90 newID = 118: newItemID = 75 Case 91 newID = 62: newItemID = 73 Case 92 newID = 109: newItemID = 75 Case 93 newID = 110: newItemID = 75 Case 95 newID = 81: newItemID = 77 Case 96 newID = 195: newItemID = 68 Case 97 newID = 68: newItemID = 69 Case 98 newID = 61: newItemID = 70 Case 99 newID = 142: newItemID = 69 Case 100 newID = 67: newItemID = 69 Case 101 newID = 197: newItemID = 68 Case 102 newID = 198: newItemID = 68 Case 103 newID = 66: newItemID = 69 Case 104 newID = 65: newItemID = 80 Case 105 newID = 64: newItemID = 69 Case 106 newID = 200: newItemID = 68 Case 107 newID = 146: newItemID = 69 Case 108 newID = 143: newItemID = 69 Case 109 newID = 145: newItemID = 69 Case 110 newID = 144: newItemID = 69 Case 111 newID = 148: newItemID = 68 Case 112 newID = 128: newItemID = 70 Case 113 newID = 129: newItemID = 70 Case 114 newID = 201: newItemID = 68 Case 115 newID = 71: newItemID = 68 Case 116 newID = 73: newItemID = 68 Case 117 newID = 171: newItemID = 68 Case 118 newID = 90: newItemID = 80 Case 119 newID = 91: newItemID = 80 Case 120 newID = 169: newItemID = 68 Case 121 newID = 170: newItemID = 68 Case 122 newID = 166: newItemID = 68 Case 123 newID = 167: newItemID = 68 Case 124 newID = 168: newItemID = 68 Case 125 newID = 87: newItemID = 80 Case 126 newID = 88: newItemID = 80 Case 127 newID = 89: newItemID = 80 Case 128 newID = 94: newItemID = 80 Case 129 newID = 160: newItemID = 68 Case 130 newID = 161: newItemID = 68 Case 131 newID = 162: newItemID = 68 Case 132 newID = 163: newItemID = 68 Case 133 newID = 164: newItemID = 68 Case 134 newID = 165: newItemID = 68 Case 135 newID = 82: newItemID = 80 Case 136 newID = 83: newItemID = 80 Case 137 newID = 84: newItemID = 80 Case 138 newID = 85: newItemID = 80 Case 139 newID = 86: newItemID = 80 Case 140 newID = 74: newItemID = 68 Case 142 newID = 106: newItemID = 76 Case 143 newID = 153: newItemID = 68 Case 144 newID = 157: newItemID = 68 Case 145 newID = 154: newItemID = 68 Case 146 newID = 155: newItemID = 68 Case 147 newID = 156: newItemID = 68 Case 148 newID = 152: newItemID = 68 Case 149 newID = 75: newItemID = 68 Case 150 newID = 147: newItemID = 69 Case 151 newID = 138: newItemID = 69 Case 152 newID = 60: newItemID = 68 Case 153 newID = 58: newItemID = 68 Case 154 newID = 76: newItemID = 68 Case 155 newID = 151: newItemID = 68 Case 156 newID = 72: newItemID = 68 Case 157 newID = 149: newItemID = 68 Case 158 newID = 150: newItemID = 68 Case Else sURL = "http://www.riolab.org" End Select If sURL="" Then sURL = "http://www.riolab.org/index.php?option=com_content&view=article&id=" & newID & "&itemid=" & newItemID Else sURL = "http://www.riolab.org" End If Response.Status = "301 Moved Permanently" Response.addheader "Location", sURL Response.End %>