<% domain = Request.ServerVariables("SERVER_NAME") If domain = "www.preorderwithlendons.co.uk" then domainsearch = "preorder" elseif domain = "www.preownedmodels.co.uk" then domainsearch = "preowned" elseif domain = "www.inkyfingers.co.uk" then domainsearch = "inkyfingers" elseif domain = "www.hornbyinternationaluk.co.uk" then domainsearch = "international" else domainsearch = "lendons" end if Set MyConn = Server.CreateObject("ADODB.Connection") MyConn.mode = 1 ' adModeRead MdbFilePath = Server.MapPath("../sitemap.mdb") MyConn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";" SQL_query="SELECT * FROM sitemap where " & domainsearch & " like '" & domainsearch & "'" Set RS = MyConn.Execute(SQL_query) WHILE NOT RS.EOF %> http://<%Response.Write(domain)%>?search=<%=RS("section")%>&searchme=<%=RS("items")%> <% d = split(RS("updatedate") , "/") s = d(2) & "-" & d(1) & "-" & d(0) %> <%Response.Write(s)%> <% RS.MoveNext WEND MyConn.Close %>