<%@ LANGUAGE="VBSCRIPT" %>
<%
Session("DocID") = "314"
' -------------------------------------------------------
' // Function to get a content script
' -------------------------------------------------------
Function GetCS(vScriptName)
Dim Conn2, Rs2, SQL, tmpVar
Dim retValue
retValue = ""
Set Conn2 = Server.CreateObject("ADODB.Connection")
Set Rs2 = Server.CreateObject("ADODB.Recordset")
Conn2.Open GetConStr ("..\..\SiteResources\Data\")
StrSql = "SELECT Code FROM ContentScripts WHERE Name= '" & vScriptName & "'"
Rs2.Open StrSql , Conn2
IF NOT Rs2.EOF Then
retValue = Rs2("Code").value
End If
Set Rs2 = Nothing
Set Conn2 = Nothing
GetCS = retValue
End Function
%>
Contact Us
To send a message to the MegaScotland committee just fill out the form
below or send an email to info@megascotland.co.uk