/asp/freeapps/linkmentor/inclink.asp
<%
'''TODO for you! Configuration:
''''2. Database connection
Function IncLink_GetDatabaseConn()
Dim oRet
Dim strDSN
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath(".") & "/lm2000.mdb"
Set oRet = Server.CreateObject ("ADODB.Connection")
oRet.Open strDSN
Set IncLink_GetDatabaseConn = oRet
End Function
'''TODO for you! Configuration:
''''Table prefix in database. Blank by default
Function FAQ_GetTablePrefix()
FAQ_GetTablePrefix = ""
End Function
'''TODO for you! Configuration:
''''3. Some ads if you'd like
Function FAQ_GetAd(nNumber)
Select Case nNumber
Case 1
FAQ_GetAd = ""
Case 2
FAQ_GetAd = ""
Case 3
FAQ_GetAd = ""
End Select
End Function
%>