Vill få länken ur en databas att hamna i ett nytt fönster, och hjärnan vill inte samarbeta alls... :(
Det ser ut så här nu...:
<%@ LANGUAGE="VBSCRIPT"%>
<%Response.Buffer = True%>
<!-- #INCLUDE FILE="connection.inc" -->
<%
Dim linkRec
Dim link
Dim hits
Dim newUrl
Set objConn = Server.CreateObject ("ADODB.Connection")
Set linkRec = Server.CreateObject ("ADODB.Recordset")
'get current link
link = request.querystring("link")
link = cint(link)
'Open database
objConn.Open strConnect
Set linkRec = objConn.Execute ("SELECT \* FROM links WHERE linkid = " & link & ";")
newUrl = linkRec("url")
objConn.Execute "UPDATE links SET links.hits = links.hits + 1 WHERE linkid = " & link
Set linkRec = Nothing
objConn.Close
Set objConn = Nothing
response.redirect newUrl
%>
Någon vänlig själ som vill visa var mitt target=_blank ska vara...?
Tack på förhand