pgo

<% if request.QueryString("area") = "" then sarea = 1 else sarea = request.QueryString("area") end if set rs=server.CreateObject("adodb.recordset") sql_cmd = "select * from [vendor] where area = " & sarea rs.open sql_cmd,OBJConn,1,1 select case sarea case 1 area = "NORTH AMERICA" case 2 area = "SOUTH AMERICA" case 3 area = "EUROPE" case 4 area = "ASIA" case 5 area = "AFRICA" case 6 area = "OCEANIA" end select %> pgo

<% if session("pass_f") <> "" then %>

Hi <%=session("name_f")%> !
Welcome To PGO

<% else %>

You can download manual from here.

username:

password:

Forget Password ?

<% end if %>

<%=area%>

<% if Not rs.EOF then rs.MoveFirst While Not rs.EOF if rs("website") <> "" then out = "Website：" & rs("website") & "
" end if if rs("phone") <> "" then out = out & "TEL：" & rs("phone") & "
" end if if rs("email") <> "" then out = out & "E-Mail：" & rs("email") & "
" end if %> <% rs.MoveNext out = "" Wend End If %>

COUNTRY	COMPANY	CONTACT
<%=rs("country")%>	<%=rs("company")%>	<%=out%>