[an error occurred while processing this directive] <% Response.Buffer = True if request.QueryString("LINK_ID")<>"" then DIM insertStr,selectStr,link insertStr="INSERT INTO LINKHISTORY (LINK_ID,ACTIONDATE) VALUES(" insertStr=insertStr & request.QueryString("LINK_ID") & "," insertStr=insertStr & "'" & DATE() & "')" 'response.write(insertStr) 'response.Flush Set AddLinkCmd = Server.CreateObject("ADODB.Command") AddLinkCmd.ActiveConnection = connStr AddLinkCmd.CommandText = InsertStr AddLinkCmd.Execute AddLinkCmd.ActiveConnection.Close selectStr="SELECT LINK_URL FROM LINKS WHERE LINK_ID=" & request.QueryString("LINK_ID") set rsLinks = Server.CreateObject("ADODB.Recordset") rsLinks.ActiveConnection =connSTR rsLinks.Source = selectStr rsLinks.CursorType = 3 rsLinks.CursorLocation = 2 rsLinks.LockType = 3 rsLinks.Open() if rsLinks.RecordCount>0 then link=rsLinks.Fields.Item("LINK_URL").Value 'response.Write(link) 'response.Flush rsLinks.Close rsLinks=null RESPONSE.Redirect link else RESPONSE.Redirect "http://localhost/linktracker/" end if else RESPONSE.Redirect "http://localhost/linktracker/" end if %>