<% option explicit response.buffer = true Session.LCID = 1041 %> <% dim intLinkID intLinkID = int(request("linkID")) call countClickLink(intLinkID, strUserID_donRollo) dim intRequestUserID, intRequestBloggID, intRequestPlanketID dim intRequestKronikaID, intRequestVeckansHandID, intRequestIntervjuID intRequestUserID = int(request("userID")) intRequestBloggID = int(request("bloggID")) intRequestPlanketID = int(request("planketID")) intRequestKronikaID = int(request("kronikaID")) intRequestVeckansHandID = int(request("veckansHandID")) intRequestIntervjuID = int(request("intervjuID")) dim intRequestSelectedBloggerID, intRequestTimePeriod intRequestSelectedBloggerID = int(request("selectedBloggerID")) intRequestTimePeriod = int(request("timePeriod")) dim strRequestPageName strRequestPageName = trim(request("pageName")) 'response.write strRequestPageName 'response.end '*************** OPEN THE DATABASE dim conn set conn = Server.CreateObject ("ADODB.Connection") conn.Open "Driver={MySQL ODBC 5.1 Driver};Server=localhost;Database=191516-poker;User=191516_vt67146;Password=DBpoker0;Option=3;" dim sql, rs sql = "SELECT " sql = sql & "link " sql = sql & "FROM tbl_link " sql = sql & "WHERE linkID = "&intLinkID&";" set rs = conn.execute(sql) dim strLink strLink = trim(rs("link")) select case intLinkID case 3, 38 response.redirect strLink & "?pageName="&strRequestPageName case 8 response.redirect strLink & "?bloggID="&intRequestBloggID&"&userID="&intRequestUserID case 10 response.redirect strLink & "?userID="&intRequestUserID case 11 response.redirect strLink & "?bloggID="&intRequestBloggID&"&userID="&intRequestUserID case 14 response.redirect strLink & "?bloggID="&intRequestBloggID&"&userID="&intRequestUserID case 18, 47 response.redirect strLink & "?userID="&intRequestUserID case 19 response.redirect strLink & "?bloggID="&intRequestBloggID&"&userID="&intRequestUserID case 26, 27, 28 response.redirect strLink & "?planketID="&intRequestPlanketID case 31, 32 response.redirect strLink & "?kronikaID="&intRequestKronikaID case 36 response.redirect strLink & "?veckansHandID="&intRequestVeckansHandID case 45 response.redirect strLink & "?intervjuID="&intRequestIntervjuID case else response.redirect strLink end select %>