<%
strSQL = "Select * from GADLINK"
Set rsLink = strDbCon.Execute(strSQL)
%>
Welcome to Garden Valley Resort
<%
txtname=Request("cts")
Response.Expires = 0
dim Linkid
dim txtData
dim strCode
dim PicName1
dim PicName2
dim PicName3
dim PicName4
dim PicCaption1
dim PicCaption2
dim PicCaption3
dim PicCaption4
strCode = ""
if txtname="" then
txtname = "Home"
end if
if not txtname="" then
Linkid = txtname
Set rsChk = strDbCon.Execute("Select * from GADLINK Where LinkName = '"& LinkId &"'")
If not rsChk.EOF Then
txtData = rsChk("LinkDetails")
PicName1 = rsChk("Pic1")
PicName2 = rsChk("Pic2")
PicName3 = rsChk("Pic3")
PicName4 = rsChk("Pic4")
PicCaption1 = rsChk("Cap1")
PicCaption2 = rsChk("Cap2")
PicCaption3 = rsChk("Cap3")
PicCaption4 = rsChk("Cap4")
if not txtData = "" then
txtData = strCode & txtData
txtData = Replace(txtData,vbcrlf," " & strCode)
txtData = Replace(txtData,"#b","")
txtData = Replace(txtData,"*b","")
txtData = Replace(txtData,"#B","")
txtData = Replace(txtData,"*B","")
txtData = Replace(txtData,"#i","")
txtData = Replace(txtData,"*i","")
txtData = Replace(txtData,"#I","")
txtData = Replace(txtData,"*I","")
txtData = Replace(txtData,"#u","")
txtData = Replace(txtData,"*u","")
txtData = Replace(txtData,"#U","")
txtData = Replace(txtData,"*U","")
txtData = Replace(txtData,"#c","")
txtData = Replace(txtData,"#C","")
txtData = Replace(txtData,"#s","")
txtData = Replace(txtData,"*E",">")
txtData = Replace(txtData,"#l","")
txtData = Replace(txtData,"*L","")
end if
Else
txtData = "SORRY...! Unable to Open the Page..."
End If
rsChk.close
end if
%>
