<%@ Language = "VBScript" %>
<!-- #include File = "adovbs.inc" -->
<%
If Request.QueryString("email") <> "" Then
	cEmail		= Request.QueryString("email")
	cMailshot	= Request.QueryString("Form")
	cReDirect	= Request.QueryString("cRed")
	nDate_Now	= Now

	Set cnnLogin = Server.CreateObject("ADODB.Connection")
	Set rstLogIT = Server.CreateObject("ADODB.Recordset")

	'Open Connection to Database
	'---------------------------
	if X_ONLINE then
		ConStr = X_CONN_ONLINE
	else			
		ConStr = X_CONN_LOCAL
	End if
	cnnLogin.ConnectionString = ConStr
	cnnLogin.Open
		
	strSQL = "SELECT * FROM MailshotLogin"
	rstLogIT.Open strSQL,cnnLogin, adOpenDynamic, adLockOptimistic
		rstLogIT.AddNew
		rstLogIT("Email") = cEmail
		rstLogIT("Mailshot") = cMailshot
		rstLogIT("Date_In") = nDate_Now
		rstLogIT.Update
	rstLogIT.Close

	Response.Redirect(cReDirect)
Else
	Response.Write "Illegal Entry"
End If
%>