hi i need help ? eroor line 14
Code:
<%
'Luach Vars
strSQL = "SELECT * FROM tblMetaTags WHERE LuachID = " & Session("LuachID")
Set rsConfig = NewRecordSet(strSQL)
If Not rsConfig.EOF Then
'General
LuachTitle = rsConfig("LuachTitle")
HeaderImage = rsConfig("Header")
SmallHeaderImage = rsConfig("SmallHeader")
NoPhotoImage = rsConfig("NoPhoto")
NoPhotoSmallImage = rsConfig("NoPhotoSmall")
'Built By
CopyRight = rsConfig("CopyRight")
BottomPage = rsConfig("BottomPage")
'Routes Private
Route1Title = rsConfig("Route1Title")
Route1Price = rsConfig("Route1Price")
Route1Photo = rsConfig("Route1Photo")
Route1AutoApprove = rsConfig("Route1AutoApprove")
Route2Title = rsConfig("Route2Title")
Route2Price = rsConfig("Route2Price")
Route2Photo = rsConfig("Route2Photo")
Route2AutoApprove = rsConfig("Route2AutoApprove")
Route3Title = rsConfig("Route3Title")
Route3Price = rsConfig("Route3Price")
Route3Photo = rsConfig("Route3Photo")
Route3AutoApprove = rsConfig("Route3AutoApprove")
'Routes Business
Route1TitleBusiness = rsConfig("Route1TitleBusiness")
Route1PriceBusiness = rsConfig("Route1PriceBusiness")
Route1PhotoBusiness = rsConfig("Route1PhotoBusiness")
Route1AutoApproveBusiness = rsConfig("Route1AutoApproveBusiness")
Route2TitleBusiness = rsConfig("Route2TitleBusiness")
Route2PriceBusiness = rsConfig("Route2PriceBusiness")
Route2PhotoBusiness = rsConfig("Route2PhotoBusiness")
Route2AutoApproveBusiness = rsConfig("Route2AutoApproveBusiness")
Route3TitleBusiness = rsConfig("Route3TitleBusiness")
Route3PriceBusiness = rsConfig("Route3PriceBusiness")
Route3PhotoBusiness = rsConfig("Route3PhotoBusiness")
Route3AutoApproveBusiness = rsConfig("Route3AutoApproveBusiness")
End If
rsConfig.Close
Set rsConfig = Nothing
Comment