Hi.
I've been a member for more than 2 years now and I guess this is my first post!
Sorry I couldn't come up with a more challenging one...
Here it goes:
How can I make this script open in a new window?
Response.Redirect("trackclicks.asp?Id=" & CountClick & "&CCT=" & ClicksNow & "&5779=" & CID & "&Url=" & Server.UrlEncode(RedirectTo) & ""
Where RedirectTo = Request("Url"
Here's the whole script:
<%
CountClick = Request("Id"
RedirectTo = Request("Url"
If CountClick = "" OR RedirectTo = "" Then
Response.Redirect("404Error.asp"
Else
Set MyConn=Server.CreateObject("ADODB.Connection"
MyConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("webbanners.mdb"
Set RS=Server.CreateObject("ADODB.RecordSet"
Query = "SELECT * FROM Clients WHERE AdID="&CountClick&""
RS.Open Query, MyConn, 3, 3
ClicksNow = RS("ClicksNow"
CID = RS("CustomerID"
RS.Close
Set RS = Nothing
MyConn.Close
Set MyConn = Nothing
Response.Redirect("trackclicks.asp?Id=" & CountClick & "&CCT=" & ClicksNow & "&5779=" & CID & "&Url=" & Server.UrlEncode(RedirectTo) & ""
End If
%>
Thnx,
Lucas
I've been a member for more than 2 years now and I guess this is my first post!
Sorry I couldn't come up with a more challenging one...
Here it goes:
How can I make this script open in a new window?
Response.Redirect("trackclicks.asp?Id=" & CountClick & "&CCT=" & ClicksNow & "&5779=" & CID & "&Url=" & Server.UrlEncode(RedirectTo) & ""
Where RedirectTo = Request("Url"
Here's the whole script:
<%
CountClick = Request("Id"
RedirectTo = Request("Url"
If CountClick = "" OR RedirectTo = "" Then
Response.Redirect("404Error.asp"
Else
Set MyConn=Server.CreateObject("ADODB.Connection"
MyConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("webbanners.mdb"
Set RS=Server.CreateObject("ADODB.RecordSet"
Query = "SELECT * FROM Clients WHERE AdID="&CountClick&""
RS.Open Query, MyConn, 3, 3
ClicksNow = RS("ClicksNow"
CID = RS("CustomerID"
RS.Close
Set RS = Nothing
MyConn.Close
Set MyConn = Nothing
Response.Redirect("trackclicks.asp?Id=" & CountClick & "&CCT=" & ClicksNow & "&5779=" & CID & "&Url=" & Server.UrlEncode(RedirectTo) & ""
End If
%>
Thnx,
Lucas