<% dim intListCounter const STATE_LIST = "D:\web-sites\red elvises\redelvises\states.txt" const COUNTRY_LIST = "D:\web-sites\red elvises\redelvises\countries.txt" '************ START FUNCTIONS ************ sub listOptions(name,options,defaultEntry,currentEntry,isAbbriviated) set fso = Server.CreateObject("Scripting.FileSystemObject") set optionsList = fso.OpenTextFile(options,1) %> <% end sub sub displayInputName(name,errorField,errorColor) if instr(errorField,LCase(name)) then %>* <%=name%><% else Response.Write name end if end sub sub displayErrors(errorMessages,errorFields) singleErr = "The following error was found:" & "
" multeeErr = "The following errors were found:" & "
" if errorFields <> "" then errors = right(errorFields,Len(errorFields) - instr(errorFields,",")) if instr(errors,",") then Response.Write multeeErr else Response.Write singleErr end if Response.Write errorMessages & "" end if end sub '*********** END FUNCTIONS ******************* %>

Red Elvises' Mailing List

Please fill out and submit this form to get on Red Elvises' mailing list

<%call displayErrors(request("errMess"),request("errFlds"))%>

<%call displayInputName("Name",Request("errFlds"),"orange")%> :	">
<%call displayInputName("Address",Request("errFlds"),"orange")%> :	">
<%call displayInputName("City",Request("errFlds"),"orange")%> :	">
<%call displayInputName("State",Request("errFlds"),"orange")%> :	<%call listOptions("state",STATE_LIST,"",Request("state"),true)%>
<%call displayInputName("Zip",Request("errFlds"),"orange")%> :	">
<%call displayInputName("Country",Request("errFlds"),"orange")%> :	<%call listOptions("country",COUNTRY_LIST,"United States",Request("country"),false)%>
Phone :	"> (optional)
<%call displayInputName("Email",Request("errFlds"),"orange")%> :	">