<%
	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")
	idu = int(request.QueryString("idu"))
	dodkryt2 = ""
	Response.Status = "301 Moved Permanently"
	if idu=0 then
		Response.AddHeader "Location", Adres
	else
		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
			dodkryt2 = "&m="&rs("id_miasta")&dodkryt2
		end if
		rs.close
		Response.AddHeader "Location", Adres&"/index.php?s="&sekcja&"&id="&idu&dodkryt2
	end if
	Response.End
%>