Advertisement
4_2005-2006 Custom Controls/ Forms/ Menus #150102

Listview Listbox Combobox Textbox Print Save Load

This is yet another submission for printing, loading from the file and saving to the file from Listview, ListBox, ComboBox and all one Forms textboxes controls. There are couple changes for part of this code. Check the explanations, please.

AI

AI Summary: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.

Source Code
original-source
Upload
<%'To check the browser capabilities this goes above everything
function checkbrowser
		set check = server.createObject("MSWC.BrowserType")
			if check.browser="IE" and check.version >= "4.0" then
				checkbrowser = "DropStyle"
			else
				checkbrowser = ""
			end if
	end function
'this goes in the head. very basic CSS
%>
<style>
<!--
.DropStyle {font-family: verdana;
    font-size: 8pt;
    font-weight: normal;
    color: black;
				width:144;
    }
-->
</style>
<%'This drop-down assumes that you have the conn 2 the database set up and you've build a RS.
%>
<table>
<tr>
 <td colspan="1" bgcolor=#66C299 align="center">
 <Font face="verdana" size=1>
 <select name="theme" class="<%=CheckBrowser%>">
			<option value="">Select a theme</option>
			<option value="">-----------------</option>
 				<%If not rs.eof Then
 					Do until rs.eof
 						Response.write("<option value='" & trim(rs("name")) & "'>" & trim(rs("name")) & "</option>")
 						rs.Movenext
 					Loop
 				End if%>
			</font></select>
	</td>
 </tr>
</table>
<%'any queries (or stuff-ups) pls mail me!
Upload
Original Comments (3)
Recovered from Wayback Machine