<%@LANGUAGE="VBSCRIPT"%> <% m_id=request.querystring("m_id") set Recordset2 = Server.CreateObject("ADODB.Recordset") Recordset2.ActiveConnection = MM_kworld_STRING Recordset2.Source = "SELECT members.m_familyname, m_photo1, m_photo2, members.m_firstname,members.m_email,m_street,m_address,m_town,m_county,m_country,m_postcode,m_telephone,m_fax,m_website,m_category,m_speciality,m_block_a,m_block_t,m_block_e FROM members WHERE m_id=" & m_id 'response.write(Recordset2.Source) Recordset2.CursorType = 0 Recordset2.CursorLocation = 2 Recordset2.LockType = 3 Recordset2.Open() Recordset2_numRows = 0 if NOT Recordset2.EOF then m_block_a=Recordset2.Fields.Item("m_block_a").Value m_block_t=Recordset2.Fields.Item("m_block_t").Value m_block_e=Recordset2.Fields.Item("m_block_e").Value e_website=Recordset2.Fields.Item("m_website").Value if e_website="" then e_website="not known" end if if m_block_a =1 then '-- else g_street=Recordset2.Fields.Item("m_street").Value address=g_street & "
" g_address=Recordset2.Fields.Item("m_address").Value if g_address<>"" then address=address & g_address & "
" end if g_town=Recordset2.Fields.Item("m_town").Value if g_town<>"" then address=address & g_town & "
" end if g_county=Recordset2.Fields.Item("m_county").Value if g_county<>"" then address=address & g_county & "
" end if g_country=Recordset2.Fields.Item("m_country").Value if g_country<>"" then address=address & g_country & "

" end if g_postcode=Recordset2.Fields.Item("m_postcode").Value if g_postcode<>"" then address=address & g_postcode & "

" end if end if if m_block_t=1 then '-- else g_telephone=Recordset2.Fields.Item("m_telephone").Value if g_telephone<>"" then address=address & "Tel: " & g_telephone & "
" end if g_fax=Recordset2.Fields.Item("m_fax").Value if g_fax<>"" then address=address & "Fax: " & g_fax & "
" end if end if g_website=Recordset2.Fields.Item("m_website").Value if g_website<>"" then address=address & "Gallery web site: " & g_website & "

" end if if m_block_e=1 then '-- else g_email=Recordset2.Fields.Item("m_email").Value if g_email<>"" then address=address & "email address: " & g_email & ",
" end if end if m_firstname=Recordset2.Fields.Item("m_firstname").Value if m_firstname<>"" then artists=M_firstname & " " end if m_familyname=Recordset2.Fields.Item("m_familyname").Value category=Recordset2.Fields.Item("m_category").Value speciality=Recordset2.Fields.Item("m_speciality").Value end if %> artist details
 


home artists at knitjapan   kntting links

KnitJapan.co.uk 

<% m_photo1=Recordset2.Fields.Item("m_photo2").Value if m_photo2<>"0" then if m_photo2<>"" then response.write(" ") end if end if %>

Details:

Curriculum Vitae

Name:

<% m_photo1=Recordset2.Fields.Item("m_photo1").Value if m_photo1<>"0" then if m_photo1<>"" then response.write("

") end if end if response.write(m_firstname & " " & m_familyname) %>

Address

<%=address%>
Category: <%=category%>
Specialities <%=speciality%>
web site: <%=e_website%>
example of work:
<% Recordset2.Close() set Recordset2=Nothing %>