<% Dim EMAIL_STR Dim M_ID Dim SUB_ID Dim LINK_STR Dim LX_INT Dim KAT_ID Dim FIRMA_ID Dim READ_INT Dim CRPT_INT Dim TMS_STR M_ID = Request.QueryString("M") SUB_ID = Request.QueryString("S") LINK_STR = Request.QueryString("L") LX_INT = Request.QueryString("LX") KAT_ID = Request.QueryString("K") EMAIL_STR = Request.QueryString("E") FIRMA_ID = Request.QueryString("F") READ_INT = Request.QueryString("R") CRPT_INT = Request.QueryString("C") TMS_STR = Request.QueryString("TM") Response.Redirect("http://www.toplumailing.net/webposta/default.aspx?E=" & EMAIL_STR & "&R=" & READ_INT & "&M=" & M_ID & "&F=" & FIRMA_ID & "&S=" & SUB_ID & "&K=" & KAT_ID & "&C=" & CRPT_INT & "&TM=" & TMS_STR & "&LX=" & LX_INT & "&L=" & LINK_STR) %>