<%HRInformation = getkeystaffdetails("Mascow","Theme 5")%> Ministry of Foreign Affairs Singapore


О посольстве
 

Посольство Сингапура в Москве также аккредитовано в Украине. В Посольстве работают отделы:

Политический

Консульский

Финансовый

Административный

Туристический

Торговый

Чтобы отправить электронное письмо в Посольство, нажмите здесь .

 





<% '------------------------------------------------------- Public Function getkeystaffdetails(Missionid, Theme) '------------------------------------------------------- if(Theme ="Theme 2") Then myfont = "black" end if if(Theme ="Theme 1") Then myfont = "#FFFFFF" end if if(Theme ="Theme 5") Then myfont ="#FFFFFF" end if if(Theme ="Theme 6") Then myfont="#FFFFFF" end if if(Theme ="Theme 7") Then myfont = "#00CCCC" end if Dim cConn Dim oRS Dim mysql DSN=dbMFA_CONTACT Set oConn = server.createobject("adodb.connection") Set oRS = Server.CreateObject("ADODB.Recordset") oConn.open DSN mysql = "select * from ContactInfo where upper(Mission_ID)=upper('"&Missionid&"')" oRS.Open mysql, oConn,1,3 if (oRS.recordcount<>0) Then HRinformation = HRinformation & "" & vbnewline For Counter=1 To 20 if (Trim(oRS("Officers_" & Counter)) <> "") Then HRinformation = HRinformation & ""& vbnewline &""& vbnewline &"" & vbnewline HRinformation = HRinformation & ""& vbnewline &""& vbnewline &"" & vbnewline HRinformation = HRinformation & "" & vbnewline end if Next HRinformation = HRinformation & "
" & Trim(oRS("Officers_" & Counter)) &"
" & Trim(oRS("Appointment_" & Counter)) & "
 
" & vbnewline end if getkeystaffdetails = HRinformation End Function %>