<%@LANGUAGE="VBSCRIPT"%> <% Session("c_id")="" m_id=Request.Querystring("m_id") Dim cv_details__m_id cv_details__m_id = "0" if (m_id <> "") then cv_details__m_id = m_id end if set cv_details = Server.CreateObject("ADODB.Recordset") cv_details.ActiveConnection = MM_kworld_STRING cv_details.Source = "SELECT c_datebirth, c_placebirth, c_statement, c_id FROM cv_details WHERE cv_details.m_id=" & m_id cv_details.CursorType = 0 cv_details.CursorLocation = 2 cv_details.LockType = 3 cv_details.Open() cv_details_numRows = 0 if NOT cv_details.EOF then c_id=cv_details("c_id") Session("c_id")=c_id statement=(cv_details.Fields.Item("c_statement").Value) if statement="" then statement="no statement has been supplied yet" end if end if Dim cv_members__m_id cv_members__m_id = "0" if (m_id<> "") then cv_members__m_id = m_id end if %> "; $g_address=$row_Recordset1['m_address']; if ($g_address!="") { $address=$address . $g_address . "
"; } $g_town=$row_Recordset1['m_town']; if ($g_town!="") { $address=$address . $g_town . "
"; } $g_county=$row_Recordset1['m_county']; if ($g_county!="") { $address=$address . $g_county . "
"; } $g_country=$row_Recordset1['m_country']; if ($g_country!="") { $address=$address . $g_country . "

"; } $g_postcode=$row_Recordset1['m_postcode']; if ($g_postcode!="") { $address=$address . $g_postcode . "

"; } } if ($m_block_t==1) { //'-- } else { $g_telephone=$row_Recordset1['m_telephone']; if ($g_telephone!="") { $address=$address . "Tel: " . $g_telephone . "
"; } $g_fax=$row_Recordset1['m_fax']; if ($g_fax!="") { $address=$address . "Fax: " . $g_fax . "
"; } } $g_website=$row_Recordset1['m_website']; if ($g_website!="") { $address=$address . "Gallery web site: " . $g_website . "

"; } if ($m_block_e==1) { //'-- } else { $g_email=$row_Recordset1['m_email']; if ($g_email!="") { $address=$address . "email address: " . $g_email . ",
"; } } $firstname=$row_Recordset1['m_firstname']; if ($m_firstname!="") { $artists=$m_firstname & " "; } $familyname=$row_Recordset1['m_familyname']; } ?> <% Randomize For k = 0 to 9 ' Return random number between 1 and 10 r = INT( ( RND() * 10 ) + 1 ) NoCache=NoCache & r Next %> Displaying CV
 


home artists at knitjapan  kntting links

KnitJapan.co.uk 

<% cv_members.Close() if NOT cv_details.EOF then If (cv_details.Fields.Item("c_datebirth").Value)<>"" then %> <% end if If (cv_details.Fields.Item("c_placebirth").Value)<>"" then %> <% end if cv_details.Close() set cv_training = Server.CreateObject("ADODB.Recordset") cv_training.ActiveConnection = MM_kworld_STRING cv_training.Source = "SELECT ct_institution,ct_title,qualification,ct_description, ct_datestart, ct_dateend FROM cv_training WHERE c_id=" & Session("c_id") 'response.write(cv_training.Source) cv_training.CursorType = 0 cv_training.CursorLocation = 2 cv_training.LockType = 3 cv_training.Open() cv_training_numRows = 0 Dim Repeat1__numRows Repeat1__numRows = -1 Dim Repeat1__index Repeat1__index = 0 cv_training_numRows = cv_training_numRows + Repeat1__numRows %> <% While ((Repeat1__numRows <> 0) AND (NOT cv_training.EOF)) %> <% e_datestart=(cv_training.Fields.Item("ct_datestart").Value) e_dateend=(cv_training.Fields.Item("ct_dateend").Value) s_array=Split (e_datestart,"/") d_day=s_array(1) d_month=s_array(0) d_year=s_array(2) e_datestart= d_day & "/" & d_month & "/" & d_year s_array=Split (e_dateend,"/") d_day=s_array(1) d_month=s_array(0) d_year=s_array(2) e_dateend= d_day & "/" & d_month & "/" & d_year training_str=training_str & "Course: " & (cv_training.Fields.Item("ct_title").Value) & "
College: " & (cv_training.Fields.Item("ct_institution").Value) & "
Description: " & (cv_training.Fields.Item("ct_description").Value) & "
Qualification: " & (cv_training.Fields.Item("qualification").Value) & "
Dates: " & e_datestart & "-" & e_dateend & "

" Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 cv_training.MoveNext() Wend if training_str<>"" then %> <% end if set cv_jobs = Server.CreateObject("ADODB.Recordset") cv_jobs.ActiveConnection = MM_kworld_STRING cv_jobs.Source = "SELECT cw_job, cw_role, cw_datestart, cw_dateend FROM cv_work WHERE c_id=" & Session("c_id") cv_jobs.CursorType = 0 cv_jobs.CursorLocation = 2 cv_jobs.LockType = 3 cv_jobs.Open() cv_jobs_numRows = 0 Dim Repeat2__numRows Repeat2__numRows = -1 Dim Repeat2__index Repeat2__index = 0 cv_jobs_numRows = cv_jobs_numRows + Repeat2__numRows %> <% While ((Repeat2__numRows <> 0) AND (NOT cv_jobs.EOF)) %> <% e_datestart=(cv_jobs.Fields.Item("cw_datestart").Value) e_dateend=(cv_jobs.Fields.Item("cw_dateend").Value) s_array=Split (e_datestart,"/") d_day=s_array(1) d_month=s_array(0) d_year=s_array(2) e_datestart= d_day & "/" & d_month & "/" & d_year s_array=Split (e_dateend,"/") d_day=s_array(1) d_month=s_array(0) d_year=s_array(2) e_dateend= d_day & "/" & d_month & "/" & d_year %> <% work_str=work_str & "Job Title: " & (cv_jobs.Fields.Item("cw_job").Value) & "
Job Description: " & (cv_jobs.Fields.Item("cw_role").Value) & "
Dates: " & e_datestart & " - " & e_dateend & "

" %> <% Repeat2__index=Repeat2__index+1 Repeat2__numRows=Repeat2__numRows-1 cv_jobs.MoveNext() Wend cv_jobs.Close() if work_str<>"" then %> <% end if set Prof_quals = Server.CreateObject("ADODB.Recordset") Prof_quals.ActiveConnection = MM_kworld_STRING Prof_quals.Source = "SELECT cv_pro_text, cv_pro_date FROM cv_profquals WHERE c_id=" & Session("c_id") Prof_quals.CursorType = 0 Prof_quals.CursorLocation = 2 Prof_quals.LockType = 3 Prof_quals.Open() Prof_quals_numRows = 0 Dim Repeat4__numRows Repeat4__numRows = -1 Dim Repeat4__index Repeat4__index = 0 Prof_quals_numRows = Prof_quals_numRows + Repeat4__numRows %> <% While ((Repeat4__numRows <> 0) AND (NOT Prof_quals.EOF)) %> <% quals_str=quals_str & "Qualification: " & (Prof_quals.Fields.Item("cv_pro_text").Value) & "
Year: " & (Prof_quals.Fields.Item("cv_pro_date").Value) & "
" %> <% Repeat4__index=Repeat4__index+1 Repeat4__numRows=Repeat4__numRows-1 Prof_quals.MoveNext() Wend Prof_quals.Close() if quals_str<>"" then %> <% end if %> <% cv_training.Close() Dim cv_exhibitions__b_id cv_exhibitions__b_id = "0" if (m_id <> "") then cv_exhibitions__b_id = m_id set cv_exhibitions = Server.CreateObject("ADODB.Recordset") cv_exhibitions.ActiveConnection = MM_kworld_STRING cv_exhibitions.Source = "SELECT e_title, e_datestart, e_dateend, g_name, g_town, g_country FROM exhibitions, galleries WHERE exhibitions.g_id=galleries.g_id AND exhibitions.m_id=" & m_id cv_exhibitions.CursorType = 0 cv_exhibitions.CursorLocation = 2 cv_exhibitions.LockType = 3 cv_exhibitions.Open() cv_exhibitions_numRows = 0 Repeat1__numRows = -1 Repeat1__index = 0 cv_exhibitions_numRows = cv_exhibitions_numRows + Repeat1__numRows While ((Repeat1__numRows <> 0) AND (NOT cv_exhibitions.EOF)) e_datestart=(cv_exhibitions.Fields.Item("e_datestart").Value) e_dateend=(cv_exhibitions.Fields.Item("e_dateend").Value) s_array=Split (e_datestart,"/") d_day=s_array(1) d_month=s_array(0) d_year=s_array(2) e_datestart= d_day & "/" & d_month & "/" & d_year s_array=Split (e_dateend,"/") d_day=s_array(1) d_month=s_array(0) d_year=s_array(2) e_dateend= d_day & "/" & d_month & "/" & d_year exhib_str=exhib_str & "'" & (cv_exhibitions.Fields.Item("e_title").Value) & "', (from:" & e_datestart & "-" & e_dateend & ")
" exhib_str=exhib_str & "at " & (cv_exhibitions.Fields.Item("g_name").Value)& ", " & (cv_exhibitions.Fields.Item("g_town").Value) & ", " & (cv_exhibitions.Fields.Item("g_country").Value) & "

" Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 cv_exhibitions.MoveNext() Wend cv_exhibitions.Close() if exhib_str<>"" then %> <% end if set cv_awards = Server.CreateObject("ADODB.Recordset") cv_awards.ActiveConnection = MM_kworld_STRING cv_awards.Source = "SELECT ca_award, ca_date, ca_awardtext FROM cv_awards WHERE c_id=" & Session("c_id") 'response.write(cv_awards.Source) cv_awards.CursorType = 0 cv_awards.CursorLocation = 2 cv_awards.LockType = 3 cv_awards.Open() cv_awards_numRows = 0 Repeat3__numRows = -1 Dim Repeat3__index Repeat3__index = 0 cv_awards_numRows = cv_awards_numRows + Repeat3__numRows %> <% While ((Repeat3__numRows <> 0) AND (NOT cv_awards.EOF)) %> <% award_str=award_str & "Award: " & (cv_awards.Fields.Item("ca_award").Value) & "
Description: " & (cv_awards.Fields.Item("ca_awardtext").Value) & "
Year: " & (cv_awards.Fields.Item("ca_date").Value) & "

" %> <% Repeat3__index=Repeat3__index+1 Repeat3__numRows=Repeat3__numRows-1 cv_awards.MoveNext() Wend cv_awards.Close() if award_str<>"" then %> <% end if '--- if no cv made yet end here else cv_details.Close() end if %>
(This CV can be found at : http://www.knitjapan.co.uk/cv/display_cv.asp?m_id=<%=cv_members__m_id%>)
name: <%=(cv_members.Fields.Item("m_firstname").Value)%>   <%=(cv_members.Fields.Item("m_familyname").Value)%>   
address: <%=address%> 
date of birth: <% response.write((cv_details.Fields.Item("c_datebirth").Value)) %>
place of birth: <%response.write((cv_details.Fields.Item("c_placebirth").Value)) %>
education & training <%=training_str%>
work experience:  <%=work_str%>

 

professional qualifications:  <%=quals_str%>
exhibitions:  <%=exhib_str%>
awards: 

<%=award_str%>

statement <%=statement%>