<% Dim theOptionsGeneric Dim myPreserveWhiteSpace Dim scriptsFromServer Dim ServerName, ServerDBName, AppDirName, LogonUser, varDisa myPreserveWhiteSpace = "%20" ServerName = "remax-cima.com" '"omar" ServerDBName = "mstnmedia02,20209" '"omar" AppDirName = "" 'century21.com.do LogonUser = Request.ServerVariables("REMOTE_HOST") http_referer = Request.ServerVariables("HTTP_REFERER") If Trim(Request.QueryString("idv")) = "" Then theIDValue = 0 Else theIDValue = Trim(Request.QueryString("idv")) End If %>