
<!--#include file="../Connections/NTJAZZ.asp" -->
<%
If Trim(Request("U")) = "" Then
	Response.Redirect "/"
End If
	
Dim MUResponse__mlgusr_id_1
MUResponse__mlgusr_id_1 = "0"
if(Request("m") <> "") then MUResponse__mlgusr_id_1 = Request("m")

Dim MUResponse__mlgusr_key_2
MUResponse__mlgusr_key_2 = ""
if(Request("k") <> "") then MUResponse__mlgusr_key_2 = Request("k")

Dim MUResponse__mur_url_3
MUResponse__mur_url_3 = "/"
if(Request("u") <> "") then MUResponse__mur_url_3 = Request("u")

%>
<%

set MUResponse = Server.CreateObject("ADODB.Command")
MUResponse.ActiveConnection = MM_NTJAZZ_STRING
MUResponse.CommandText = "dbo.sp_insert_MailingUserResponse"
MUResponse.Parameters.Append MUResponse.CreateParameter("RETURN_VALUE", 3, 4)
MUResponse.Parameters.Append MUResponse.CreateParameter("@mlgusr_id_1", 3, 1,8,MUResponse__mlgusr_id_1)
MUResponse.Parameters.Append MUResponse.CreateParameter("@mlgusr_key_2", 200, 1,10,MUResponse__mlgusr_key_2)
MUResponse.Parameters.Append MUResponse.CreateParameter("@mur_url_3", 200, 1,500,MUResponse__mur_url_3)
MUResponse.CommandType = 4
MUResponse.CommandTimeout = 0
MUResponse.Prepared = true
MUResponse.Execute()

%>
<% 
Response.Redirect Trim( Request("u") ) 
%>