<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% menuDisplay="true" function sqlsafe(varInput) dim tmpstr if varInput <> "" then tmpstr=trim(varInput) tmpstr=replace(tmpstr, chr(34), Chr(39)) sqlsafe=replace(tmpstr, chr(39), chr(39)&chr(39)) else sqlsafe=varInput end if end function strConn = "dsn=www;uid=www;pwd=Apple3;" sub createSelectList(aID, aArray, aCurValue) Response.Write("" & vbcrlf) end sub function createStateList(aName,aCurValue,aProperties) arrState = array("AL","AK","AZ","AR","CA","CO","CT","DE","DC","FL","GA","HI","ID","IL","IN","IA","KS","KY","LA","ME","MD","MA","MI","MN","MS","MO","MT","NE","NV","NH","NJ","NM","NY","NC","ND","OH","OK","OR","PA","RI","SC","SD","TN","TX","UT","VT","VA","WA","WV","WI","WY") arrFullName = array("Alabama","Alaska","Arizona","Arkansas","California","Colorado","Connecticut","Delaware","District of Columbia","Florida","Georgia","Hawaii","Idaho","Illinois","Indiana","Iowa","Kansas","Kentucky","Louisiana","Maine","Maryland","Massachusetts","Michigan","Minnesota","Mississippi","Missouri","Montana","Nebraska","Nevada","New Hampshire","New Jersey","New Mexico","New York","North Carolina","North Dakota","Ohio","Oklahoma","Oregon","Pennsylvania","Rhode Island","South Carolina","South Dakota","Tennessee","Texas","Utah","Vermont","Virginia","Washington","West Virginia","Wisconsin","Wyoming") strHTML = "" createStateList = strHTML end function %> <% %> Zegerid <% if menuDisplay then%>
LOADING...
<%else%> <%strServer = Request.ServerVariables("SCRIPT_NAME") 'response.write(strServer) if inStr(strServer,"login/register.asp")> 0 then%>
<%else%>
<%end if%>


Adobe Flash 8 plug-in is required to participate in this activity.

Please click the icon below to install the latest version. Please note that for the Adobe Flash 8 plug-in installation to succeed, you'll need to close all other browser windows. After installation is complete, please " title="refresh">refresh this page. If you are using Netscape or a Macintosh computer, please quit your browser and re-launch http://www.zegeridrx.com.

Get Adobe Flash Player

If you continue to have problems participating in the activity, please contact info@zegeridrx.com.

<%if trim(fltFlash)<>"" then response.write ("

You have Adobe Flash " & fltFlash & " plug-in.

")%>
<%end if%>
<% if not menuDisplay then%>
<%else%>
<%end if%>