I'm fairly new to ASP and have attempted to create a link tracker using SQL
Stored Procedures. The procedures work but my script timesout when calling
them through ASP
Script is below, any help would be gratefully appreciated.
Gary Smith
------------------------CODE -------------------------------
<%@ Language=VBScript %>
<%
Option Explicit
Response.Buffer = True
%>
<!-- #include file="DBConnectTracker.inc"-->
<%
Dim strLinkID
Dim cnnLinkTracker
Dim rsGetLink
Dim rsLinkTracker
Dim rsLinkTrackerMod
Dim strLinkName
strLinkID = Request.QueryString("LinkID")
If strLinkID > "" Then
' Create a new connection
Set cnnLinkTracker = GetDBConnection()
'Get Link Information from Database
set rsGetLink = server.createobject("adodb.recordset")
rsGetLink.Open "Exec getLink " & strLinkID ,cnnLinkTracker
'Set default link target
If rsGetLink.EOF Then
strLinkName = "nolink.asp"
Else
strLinkName = rsGetLink("page")
'Get Link Tracker Information from Database
Set rsLinkTracker = Server.CreateObject("ADODB.Recordset")
rsGetLink.Open "Exec getLinkTracker " & strLinkID ,cnnLinkTracker
'Create Object for Insert or Update Procedure
Set rsLinkTrackerMod = Server.CreateObject("ADODB.Recordset")
If rsLinkTracker.EOF Then
rsLinkTrackerMod.Open "Exec insertLinkTracker " & strLinkID
,cnnLinkTracker
Else
rsLinkTrackerMod.Open "Exec updateLinkTracker " & strLinkID
,cnnLinkTracker
End If
' Close our recordset objects
rsGetLink.Close
Set rsGetLink = Nothing
rsLinkTrackerMod.Close
Set rsLinkTrackerMod = Nothing
rsLinkTracker.Close
Set rsLinkTracker = Nothing
' Kill our connection
cnnLinkTracker.Close
Set cnnLinkTracker = Nothing
End If
Else
'Set default link target
strLinkName = "nolink.asp"
End If
'Redirect to target link
Response.Redirect strLinkName
%>
-----------------CODE-----------------------