%@Language="VBSCRIPT" debug=true aspcompat=true %> <% Dim SettingsConnection,SettingsConn,SettingsRS Dim SettingsSalesPhoneNo as string Dim SettingsAccountsPhoneNo as string Dim SettingsFaxNo as string Dim SettingsEmailAddress as string Dim SettingsVATNumber as string Dim SettingsChequePayableTo as string Dim SettingsCompanyName as string Dim SettingsAdd1 as string Dim SettingsAdd2 as string Dim SettingsTown as string Dim SettingsCounty as string Dim SettingsPostcode as string Dim SettingsCountry as string SettingsConnection = ConfigurationSettings.AppSettings("connString") SettingsConn = Server.CreateObject("ADODB.Connection") SettingsConn.Open(SettingsConnection) SettingsRS = SettingsConn.Execute("SELECT * FROM settings") SettingsSalesPhoneNo = SettingsRS.Fields("SalesPhoneNo").Value SettingsAccountsPhoneNo = SettingsRS.Fields("AccountsPhoneNo").Value SettingsFaxNo = SettingsRS.Fields("FaxNo").Value SettingsEmailAddress = SettingsRS.Fields("EmailAddress").Value SettingsVATNumber = SettingsRS.Fields("VATNumber").Value SettingsChequePayableTo = SettingsRS.Fields("ChequePayableTo").Value SettingsCompanyName = SettingsRS.Fields("CompanyName").Value SettingsAdd1 = SettingsRS.Fields("Add1").Value SettingsAdd2 = SettingsRS.Fields("Add2").Value SettingsTown = SettingsRS.Fields("Town").Value SettingsCounty = SettingsRS.Fields("County").Value SettingsPostcode = SettingsRS.Fields("Postcode").Value SettingsCountry = SettingsRS.Fields("Country").Value 'SettingsConn.close 'SettingsRS.close %>
![]() |
|||||||||||||
<%
If Session("In") = "Yes" then
Response.Write("Welcome Back " & Session("User") & " | Change User Details | Logout")
Else
Response.Write(" Login")
End if
%>
| Home | Search | Your Cart
<%
Dim x
dim TotalItems
TotalItems = 0
for x = 1 to cint(Session("CartCount"))
if Session("CartProdActive" & x) ="Yes" then
TotalItems = TotalItems + 1
end if
next x
response.write("(" & totalitems & ")")
%>
| Contact Us |
|||||||||||||
Menu
|
Welcome to <%=SettingsCompanyName %> |
<%=SettingsEmailAddress %> |
|||||||||||
|
Phone: 024 76 474848 Fax: 024 76 695700 Email: <%=SettingsEmailAddress %> |
|
|||||||||||
Copyright © 2007 <%=SettingsCompanyName %> |
|||||||||||||