<% on error resume next sConnection = "DRIVER={MySQL ODBC 5.1 Driver}; Server=31.186.86.105; Database=uczelnie; User='wpisywarka'; Password='UdfcS$jn#'; Option=3" Set mysql = Server.CreateObject("ADODB.Connection") mysql.Open(sConnection) set mssql = createobject("ADODB.Connection") mssql.Open "Driver={SQL Server};Server=91.185.189.236;Uid=wpis;Pwd=qasw68;Database=uczelnie_test" set rs = Server.CreateObject("ADODB.Recordset") set rs2 = Server.CreateObject("ADODB.Recordset") Adres = "http://"&request.ServerVariables("HTTP_HOST") QS = Replace(request.ServerVariables("QUERY_STRING"), "p=", "") dodkryt2 = "" Response.Status = "301 Moved Permanently" if (Instr(QS, "&")) then QS_P = Left(QS, Instr(QS, "&")-1) QS_DOD = Right(QS, Len(QS)-Len(QS_P)-1) if (Instr(QS_DOD, "z=")) then QS_Z = Replace(QS_DOD, "z=", "") rs.open "SELECT id_zakladki FROM zakladki_mssql_rel WHERE id_zakladki_mssql="&QS_Z, mysql, 1, 3 if not rs.eof then dodkryt2 = dodkryt2&"&idz="&rs("id_zakladki") end if rs.close end if if (Instr(QS_DOD, "s=")) then QS_S = Replace(QS_DOD, "s=", "") end if QS = QS_P end if params = Split(QS, ",") first = true tekst = "" Dim para(10) licz = 1 for each x in params para(licz) = x licz = licz+1 next if ((para(1)="1542" or para(1)="1540" or para(1)="2564" or para(1)="1030" or para(1)="1430" or para(1)="1302" or para(1)="1414" or para(1)="1286") and para(3)<>"14") then 'prezentacja if para(1)="1430" then para(2) = para(5) end if if para(1)="1286" then para(2) = para(3) end if if para(1)="1302" or para(1)="1414" then para(2) = para(4) end if rs.open "SELECT podyplomowa, id_miasta FROM uczelnie WHERE id_uczelni="¶(2), mysql, 1, 3 sekcja = 7 if not rs.eof then if rs("podyplomowa")=1 then sekcja = 29 end if dodkryt2 = "&m="&rs("id_miasta")&dodkryt2 end if rs.close Response.AddHeader "Location", Adres&"/index.php?s="&sekcja&"&id="¶(2)&dodkryt2 elseif (para(1)="1542" and para(3)="14") then 'prezentacja szkoly policealnej rs.open "SELECT id_miasta FROM szkoly_policealne.szkoly WHERE id_szkoly="¶(2), mysql, 1, 3 if not rs.eof then dodkryt2 = "&m="&rs("id_miasta")&dodkryt2 end if rs.close Response.AddHeader "Location", Adres&"/index.php?s="&sekcja&"&id="¶(2)&dodkryt2 elseif ((para(1)="1792" or para(1)="1794" or para(1)="1808" or para(1)="1810" or para(1)="2820") and para(3)<>"14") then 'wydzial idu = 0 dodkryt = "" rs.open "SELECT id_uczelni, id_wydzialu FROM wydzialy WHERE id_wydzialu="¶(2), mysql, 1, 3 if not rs.eof then idu = rs("id_uczelni") idw = rs("id_wydzialu") dodkryt = dodkryt&"&idw="&idw rs.close else rs.close rs.open "SELECT id_uczelni, id_kierunku FROM kierunki WHERE old_id_wydzialu="¶(2), mysql, 1, 3 if not rs.eof then idu = rs("id_uczelni") idk = rs("id_kierunku") dodkryt = dodkryt&"&idk="&idk rs.close else rs.close end if end if if (para(1)="1808" or para(1)="1810") then id_tryb = para(3)-1 dodkryt = dodkryt&"&idtr="&id_tryb end if rs.open "SELECT podyplomowa, id_miasta FROM uczelnie WHERE id_uczelni="&idu, mysql, 1, 3 sekcja = 7 if not rs.eof then if rs("podyplomowa")=1 then sekcja = 29 end if dodkryt = "&m="&rs("id_miasta")&dodkryt end if rs.close if idu>0 then Response.AddHeader "Location", Adres&"/index.php?s="&sekcja&"&id="&idu&dodkryt&dodkryt2 else Response.AddHeader "Location", Adres&"/index.php?s=5" end if elseif ((para(1)="1794" or para(1)="1810") and para(3)="14") then idu = 0 dodkryt = "" rs.open "SELECT id_szkoly FROM szkoly_policealne.profile WHERE id_profilu="¶(2), mysql, 1, 3 if not rs.eof then idu = rs("id_szkoly") dodkryt = dodkryt&"&idw="¶(2) end if rs.close rs.open "SELECT id_miasta FROM szkoly_policealne.szkoly WHERE id_szkoly="&idu, mysql, 1, 3 if not rs.eof then dodkryt2 = "&m="&rs("id_miasta")&dodkryt2 end if Response.AddHeader "Location", Adres&"/index.php?s=15&id="&idu&dodkryt&dodkryt2 rs.close elseif (para(1)="1664" or para(1)="1680" or para(1)="1666" or para(1)="1682" or para(1)="2948") then 'kierunek idu = 0 dodkryt = "" rs.open "SELECT id_uczelni, id_kierunku FROM kierunki WHERE id_kierunku="¶(2), mysql, 1, 3 if not rs.eof then idu = rs("id_uczelni") idk = rs("id_kierunku") dodkryt = dodkryt&"&idk="&idk rs.close else rs.close rs.open "SELECT id_uczelni, id_specjalnosci FROM specjalnosci WHERE old_id_kierunku="¶(2), mysql, 1, 3 if not rs.eof then idu = rs("id_uczelni") ids = rs("id_specjalnosci") dodkryt = dodkryt&"&ids="&ids rs.close else rs.close end if end if if (para(1)="1680" or para(1)="1682") then id_tryb = para(3)-1 dodkryt = dodkryt&"&idtr="&id_tryb else dodkryt = "" end if rs.open "SELECT podyplomowa, id_miasta FROM uczelnie WHERE id_uczelni="&idu, mysql, 1, 3 sekcja = 7 if not rs.eof then if rs("podyplomowa")=1 then sekcja = 29 end if dodkryt = "&m="&rs("id_miasta")&dodkryt end if rs.close if idu>0 then Response.AddHeader "Location", Adres&"/index.php?s="&sekcja&"&id="&idu&dodkryt&dodkryt2 else Response.AddHeader "Location", Adres&"/index.php?s=4" end if elseif (para(1)="522" or para(1)="527") then 'lista wynikowa slowo kluczowe sekcja = 2 dodkryt = "" if (para(1)="522" and para(3)="4") then sekcja = 5 elseif (para(1)="522" and para(3)="14") then sekcja = 14 elseif (para(1)="527") then if (para(4)="4") then sekcja = 5 end if dodkryt = "&str="¶(5)+1 end if Response.AddHeader "Location", Adres&"/index.php?s="&sekcja&"&sk="¶(2)&dodkryt elseif (para(1)="554") then 'lista wynikowa, kluczowe i miasto sekcja = 2 if (para(1)="554" and para(4)="4") then sekcja = 5 elseif (para(1)="554" and para(4)="14") then sekcja = 14 end if rs2.open "SELECT tm_nazwa2 FROM t_miejscowosc WHERE id_miejscowosci="¶(2), mssql, 1, 3 if not rs2.eof then rs.open "SELECT id_miasta FROM miasta.miasta WHERE nazwa='"&rs2("tm_nazwa2")&"'", mysql, 1, 3 para(2) = rs("id_miasta") rs.close end if if sekcja<>14 then dodkryt = "&sk="¶(3)&dodkryt end if Response.AddHeader "Location", Adres&"/index.php?s="&sekcja&"&m="¶(2)&dodkryt elseif (para(1)="546" or para(1)="551" or para(1)="34") then 'lista wynikowa miasto rs2.open "SELECT tm_nazwa2 FROM t_miejscowosc WHERE id_miejscowosci="¶(2), mssql, 1, 3 if not rs2.eof then rs.open "SELECT id_miasta FROM miasta.miasta WHERE nazwa='"&rs2("tm_nazwa2")&"'", mysql, 1, 3 para(2) = rs("id_miasta") if (para(2)=35) then Adres = "http://www.uczelniekrakow.uczelnie.pl" elseif para(2)=23 then Adres = "http://www.uczelniewroclaw.uczelnie.pl" elseif para(2)=26 then Adres = "http://www.studia.uczelnie.pl" elseif para(2)=31 then Adres = "http://www.uczelnielodz.uczelnie.pl" elseif para(2)=30 then Adres = "http://www.uczelniekatowice.uczelnie.pl" elseif para(2)=58 then Adres = "http://www.uczelniegdansk.uczelnie.pl" elseif para(2)=117 then Adres = "http://www.uczelnielublin.uczelnie.pl" end if rs.close end if rs2.close sekcja = 2 dodkryt = "" if (para(1)="546" and para(3)="4") then sekcja = 5 elseif (para(1)="34" and para(3)="14") then sekcja = 14 elseif (para(1)="546" and para(3)="14") then sekcja = 14 elseif (para(1)="551") then if (para(4)="4") then sekcja = 5 end if dodkryt = "&str="¶(5)+1 end if Response.AddHeader "Location", Adres&"/index.php?s="&sekcja&"&m="¶(2)&dodkryt elseif (para(1)="578" or para(1)="583") then 'lista wynikowa wojewodztwo if para(2)=1 then idw=11 if para(2)=2 then idw=14 if para(2)=3 then idw=10 if para(2)=4 then idw=16 if para(2)=5 then idw=4 if para(2)=6 then idw=15 if para(2)=7 then idw=2 if para(2)=8 then idw=7 if para(2)=9 then idw=3 if para(2)=10 then idw=1 if para(2)=11 then idw=5 if para(2)=12 then idw=8 if para(2)=13 then idw=12 if para(2)=14 then idw=6 if para(2)=15 then idw=13 if para(2)=16 then idw=9 sekcja = 2 dodkryt = "" if (para(1)="578" and para(3)="4") then sekcja = 5 elseif (para(1)="583") then if (para(4)="4") then sekcja = 5 end if dodkryt = "&str="¶(5)+1 end if Response.AddHeader "Location", Adres&"/index.php?s="&sekcja&"&w="&idw&dodkryt elseif (para(1)="1026") then 'lista slowa kluczowe I i II stopien Response.AddHeader "Location", Adres&"/index.php?s=4" elseif (para(1)="3072" or (para(1)="3079" and para(3)="1")) then 'lista search I i II stopien NAZ_SRCH = Replace(QS_DOD, "s=", "") if (para(1)="3079") then dodkryt = "&str="¶(4)+1 end if Response.AddHeader "Location", Adres&"/index.php?s=2&naz_srch="&NAZ_SRCH&dodkryt elseif (para(1)="1134" or para(1)="558" or para(1)="1062" or para(1)="622" or para(1)="559" or para(1)="526" or para(1)="1038" or para(1)="615" or para(1)="550" or para(1)="1126" or para(1)="3586" or para(1)="1294") then 'lista wynikowa I i II stopieÅ„ if (para(1)="1134" or para(1)="622") then dodkryt = "&sk="¶(4) rs2.open "SELECT tm_nazwa2 FROM t_miejscowosc WHERE id_miejscowosci="¶(3), mssql, 1, 3 end if if (para(1)="558" or para(1)="559") then dodkryt = "&sk="¶(3) rs2.open "SELECT tm_nazwa2 FROM t_miejscowosc WHERE id_miejscowosci="¶(2), mssql, 1, 3 end if if (para(1)="1062" or para(1)="550") then rs2.open "SELECT tm_nazwa2 FROM t_miejscowosc WHERE id_miejscowosci="¶(2), mssql, 1, 3 end if if (para(1)="615" or para(1)="1126") then rs2.open "SELECT tm_nazwa2 FROM t_miejscowosc WHERE id_miejscowosci="¶(3), mssql, 1, 3 end if if (para(1)="526" or para(1)="1038") then dodkryt = "&sk="¶(2) end if if (para(1)="3586") then dodkryt = "&lit="&QS_S end if if (para(1)="1294") then dodkryt = "&sk="¶(3) end if if not rs2.eof then rs.open "SELECT id_miasta FROM miasta.miasta WHERE nazwa='"&rs2("tm_nazwa2")&"'", mysql, 1, 3 dodkryt = dodkryt&"&m="&rs("id_miasta") rs.close rs2.close end if Response.AddHeader "Location", Adres&"/index.php?s=2"&dodkryt elseif (para(1)="590" or para(1)="623") then 'lista wynikowa I i II stopieÅ„ - wojewodztwa rs2.open "SELECT tw_nazwa2 FROM t_wojewodztwo WHERE id_wojewodztwa="¶(2), mssql, 1, 3 if not rs2.eof then rs.open "SELECT id_wojewodztwa FROM miasta.wojewodztwa WHERE nazwa='"&rs2("tw_nazwa2")&"'", mysql, 1, 3 dodkryt = dodkryt&"&w="&rs("id_wojewodztwa") rs.close rs2.close end if if para(1)="623" then dodkryt = dodkryt&"&sk="¶(4) end if Response.AddHeader "Location", Adres&"/index.php?s=2&"&dodkryt elseif (para(1)="1130" or para(1)="1070") then 'lista wynikowa podyplomowe if (para(1)="1130") then dodkryt = "&sk="¶(4) rs2.open "SELECT tm_nazwa2 FROM t_miejscowosc WHERE id_miejscowosci="¶(3), mssql, 1, 3 elseif (para(1)="1070") then dodkryt = "&sk="¶(3) rs2.open "SELECT tm_nazwa2 FROM t_miejscowosc WHERE id_miejscowosci="¶(2), mssql, 1, 3 end if if not rs2.eof then rs.open "SELECT id_miasta FROM miasta.miasta WHERE nazwa='"&rs2("tm_nazwa2")&"'", mysql, 1, 3 dodkryt = dodkryt&"&m="&rs("id_miasta") rs.close end if Response.AddHeader "Location", Adres&"/index.php?s=5&"&dodkryt elseif (para(1)="3074" or (para(1)="3079" and para(3)="4")) then 'lista search I i II stopien NAZ_SRCH = Replace(QS_DOD, "s=", "") if (para(1)="3079") then dodkryt = "&str="¶(4)+1 end if Response.AddHeader "Location", Adres&"/index.php?s=5&naz_srch="&NAZ_SRCH&dodkryt elseif (para(1)="6144") then ID_ART = Replace(QS_DOD, "ida=", "") Response.AddHeader "Location", Adres&"/index.php?s=8&id="&ID_ART 'aktualnosc uczelniana elseif (para(1)="5120") then 'lista miast I i II stopien Response.AddHeader "Location", Adres&"/index.php?s=3" elseif (para(1)="2064" or para(1)="2067" or para(1)="2066" or para(1)="2070" or para(1)="2072" or para(1)="2074") then 'ranking popularnosci kierunkow if (para(1)="2067") then dodkryt = "&str="¶(4)+1 end if if (para(1)="2072" or para(1)="2074") then dodkryt = "&rp_kierunek="¶(3) end if Response.AddHeader "Location", Adres&"/index.php?s=13&rpk="¶(2)&dodkryt elseif ((para(1)="2" and para(2)="15") or (para(1)="7" and para(3)="15")) then 'studia on-line if (para(1)="7" and para(3)="15") then dodkryt = "&str="¶(4)+1 end if Response.AddHeader "Location", Adres&"/index.php?s=12"&dodkryt elseif ((para(1)="2" and para(2)="16") or (para(1)="7" and para(3)="16")) then 'studia po angielsku if (para(1)="7" and para(3)="16") then dodkryt = "&str="¶(4)+1 end if Response.AddHeader "Location", Adres&"/index.php?s=11"&dodkryt elseif (Instr(QS, "id_art")) then 'artykul z ostatniej chwili ID_ART = Replace(QS, "id_art=", "") Response.AddHeader "Location", Adres&"/index.php?s=1&id="&ID_ART elseif (QS="") then Response.AddHeader "Location", Adres else Response.Status = "404 Not Found" Response.Write "Wskazana strona nie istnieje
" end if Response.End %>