<%=STitle1(lg)%>
<%=SName(lg)%> " class=form1 onfocus="FocusMe(this)" onblur="BlurMe(this)" maxlength="50">
<%=SSurName(lg)%> " class=form1 onfocus="FocusMe(this)" onblur="BlurMe(this)" maxlength="50">
<%=SMail(lg)%> " class=form1 onfocus="FocusMe(this)" onblur="BlurMe(this)" maxlength="50">
<%=SSex(lg)%> <%=SFemale(lg)%> checked<%end if%>> <%=SMale(lg)%> checked<%end if%>>
<%=Spas(lg)%> " class=form1 onfocus="FocusMe(this)" onblur="BlurMe(this)" maxlength="10">
<%=SPasconf(lg)%> " class=form1 onfocus="FocusMe(this)" onblur="BlurMe(this)" maxlength="10">
<%=SAddr(lg)%> " class=form1 onfocus="FocusMe(this)" onblur="BlurMe(this)" size="20" maxlength="80">
<%=SJob(lg)%>
--<%=SDropDown2(lg)%>--
<%
'===== GET A JOB =========================================
dim oConn, oRs, SQL
set oConn = Server.CreateObject("ADODB.Connection")
oConn.open Application("ConStr")
set oRs = Server.CreateObject("ADODB.Recordset")
SQL = "Select * from UserJob order by "&SJobName(lg)
oRs.open SQL, oConn, 3,1,1
while NOT oRs.EOF
Response.Write ""&oRs(""&SJobName(lg)&"")&" "
oRs.MoveNext
wend
oRs.close
'===== GET A JOB =========================================
%>
<%=STown(lg)%> " class=form1 onfocus="FocusMe(this)" onblur="BlurMe(this)">
<%=SZipCode(lg)%> "class=form1 onfocus="FocusMe(this)" onblur="BlurMe(this)" maxlength="10">
<%=Scountry(lg)%>
-- <%=SDropDown(lg)%> --
<%
'===== GET A Country =========================================
set oConn = Server.CreateObject("ADODB.Connection")
oConn.open Application("ConStr")
set oRs = Server.CreateObject("ADODB.Recordset")
SQL = "Select * from Countries order by "&SCountryName(lg)
oRs.open SQL, oConn, 3,1,1
if errormsg = 1 then
while NOT oRs.EOF
Response.Write ""&oRs(""&SCountryName(lg)&"")&" "
oRs.MoveNext
wend
else
while NOT oRs.EOF
Response.Write ""&oRs(""&SCountryName(lg)&"")&" "
oRs.MoveNext
wend
end if
oRs.close
'===== GET A COUNTRY =========================================
%>
<%=STel(lg)%> " class=form1 onfocus="FocusMe(this)" onblur="BlurMe(this)" maxlength="20">
<%=SCateg(lg)%>
-- <%=SDropCateg(lg)%>--
<%
'===== GET A USER CATEG =========================================
set oConn = Server.CreateObject("ADODB.Connection")
oConn.open Application("ConStr")
set oRs = Server.CreateObject("ADODB.Recordset")
SQL = "Select * from UserCategs order by "&SUserCategName(lg)
oRs.open SQL, oConn, 3,1,1
while NOT oRs.EOF
Response.Write ""&oRs(""&SUserCategName(lg)&"")&" "
oRs.MoveNext
wend
oRs.close
'===== GET A JOB =========================================
%>
<%=SQuestMails(lg)%> : <%=SYes(lg)%> checked <%end if%>class="form0" checked> <%=SNo(lg)%> checked<%end if%> class="form0">
<%=STitle2(lg)%>
checked <%end if%> onclick="javascript:activCompany();"> <%=SQuestActiv(lg)%>
<%=SCompName(lg)%> value="<%=Request.Form("CompName")%>"<%else%> value="<%=SDisable(lg)%>" disabled <%end if %> class=form1 onfocus="FocusMe(this)" onblur="BlurMe(this)" maxlength="300" ><%=SCompActivity(lg)%> value="<%=Request.Form("CompActivity")%>" <%else%> value="<%=SDisable(lg)%>" disabled <%end if%>class=form1 onfocus="FocusMe(this)" onblur="BlurMe(this)" maxlength="500" >
<%=SCompAFM(lg)%> value="<%=Request.Form("CompVAT")%>" <%else%> value="<%=SDisable(lg)%>" disabled <%end if %>class=form1 onfocus="FocusMe(this)" onblur="BlurMe(this)" maxlength="20" ><%=SCompDOY(lg)%> value="<%=Request.Form("CompDOY")%>" <%else%> value="<%=SDisable(lg)%>" disabled <%end if%>class=form1 onfocus="FocusMe(this)" onblur="BlurMe(this)" maxlength="100" >
<%=SCompAddr(lg)%> value="<%=Request.Form("CompAddress")%>" <%else%> value="<%=SDisable(lg)%>" disabled <%end if %>class=form1 onfocus="FocusMe(this)" onblur="BlurMe(this)" maxlength="100" ><%=sCompZipCode(lg)%> value="<%=Request.Form("CompTK")%>" <%else%> value="<%=SDisable(lg)%>" disabled <%end if%> class=form1 onfocus="FocusMe(this)" onblur="BlurMe(this)" maxlength="10" >
<%=SCompTown(lg)%> value="<%=Request.Form("CompTown")%>" <%else%> value="<%=SDisable(lg)%>" disabled <%end if%> class=form1 onfocus="FocusMe(this)" onblur="BlurMe(this)" maxlength="50" >
<%=SCompTel(lg)%> value="<%=Request.Form("CompTel")%>" <%else%> value="<%=SDisable(lg)%>" disabled <%end if %>class=form1 onfocus="FocusMe(this)" onblur="BlurMe(this)" maxlength="50" >
<%=SCompCountry(lg)%>
-- <%=SDropDown(lg)%> --
<%
'===== GET A Country =========================================
set oConn = Server.CreateObject("ADODB.Connection")
oConn.open Application("ConStr")
set oRs = Server.CreateObject("ADODB.Recordset")
SQL = "Select * from Countries order by "&SCountryName(lg)
oRs.open SQL, oConn, 3,1,1
if errormsg = 1 then
while NOT oRs.EOF
Response.Write ""&oRs(""&SCountryName(lg)&"")&" "
oRs.MoveNext
wend
else
while NOT oRs.EOF
Response.Write ""&oRs(""&SCountryName(lg)&"")&" "
oRs.MoveNext
wend
end if
oRs.close
'===== GET A COUNTRY =========================================
%>
<%=SCompFAX(lg)%> value="<%=Request.Form("CompFax")%>" <%else%> value="<%=SDisable(lg)%>" disabled <%end if %>class=form1 onfocus="FocusMe(this)" onblur="BlurMe(this)" maxlength="50">