<%
' ///////////////////////////////////////////////////////
' // Dimac CMS
' // Copyright 2004-2008 Dimac Development AB, Sweden
' // www.Dimac.net
' //
' // NOTE:
' // You are not allowed to remove this
' // Copyright information without written
' // permission from Dimac Development.
' ///////////////////////////////////////////////////////
vPost = (InStr( LCase(Request.ServerVariables("SCRIPT_NAME")), "sitesearch.asp" ) < 1)
vPostLang = Request.Form("selLang")
Set objConn = Server.CreateObject("ADODB.Connection")
Set selrs = Server.CreateObject("ADODB.Recordset")
sql="SELECT ID, Description FROM Languages"
strSel = ""
objConn.Open GetConStr ("..\..\SiteResources\Data\")
selrs.Open sql, objConn
While Not selrs.EOF
strSel = strSel & ""
selrs.MoveNext
Wend
selrs.Close
objConn.Close
Set selrs = nothing
set objConn = nothing
strSel = Replace( strSel, """" & vPostLang & """", """"&vPostLang & """ selected=""selected""" )
strSel = ""
%>
<% if Not vPost Then %>
<% end if%>
<% if Not vPost Then %>
<% end if %>
<% if Not vPost Then %>
<%end if%>