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


Наш адрес

Посольство Республики Сингапур

в Российской Федерации

121099 Москва, Пер. Каменная слобода, д. 5


Телефоны:

001-7-(499) 241-3702, 241-3913, 241-3914, 241-6428, 241-3902

Факс:

001-7-(499) 241-7895, 241-7507 (Администрация и финансовый отдел)

E-mail: singemb_mow@sgmfa.gov.sg


Часы работы:

Понедельник - пятница
9.00 - 13.00
14.00 - 17.30

Часы работы визового отдела
Понедельник - пятница
9.00 - 12.00





Copyright ® 2003 The Ministry of Foreign Affairs, Singapore. All rights reserved.
The Ministry of Foreign Affairs, Singapore shall not be liable for any errors or delays in the content,
or for any actions taken in reliance thereon.

 


<% '################################################################# Public Function addressDetails (folder, Theme, Mission_ID) '################################################################# 'This Function returns Contact information from the Database '------------------------------------------------------------------ Dim objNewFile, objFSO, strPath,asdf Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Dim WebPage 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") oConn.open DSN Set oRS = Server.CreateObject("ADODB.Recordset") oRS.ActiveConnection = DSN mysql = "select * from ContactInfo where upper(Mission_ID)=upper('"&Mission_ID&"')" oRS.Open mysql Detailslist3 = Detailslist3 & "" & oRS("Mission_Title")& "

" & vbnewline Detailslist3 = Detailslist3 & "" & vbnewline if (Trim(oRS("Address1"))<>"") Then Detailslist3 = Detailslist3 & "" Detailslist3 = Detailslist3 & "" Detailslist3 = Detailslist3 & "" end if if (Trim(oRS("Telephone1"))<>"") Then Detailslist3 = Detailslist3 & "" Detailslist3 = Detailslist3 & "" Detailslist3 = Detailslist3 & "" end if if (Trim(oRS("Telephone2"))<>"") Then Detailslist3 = Detailslist3 & "" Detailslist3 = Detailslist3 & "" Detailslist3 = Detailslist3 & "" end if if (Trim(oRS("Fax1"))<>"") Then Detailslist3 = Detailslist3 & "" Detailslist3 = Detailslist3 & "" Detailslist3 = Detailslist3 & "" end if if(Trim(oRS("E_Mail"))<>"") Then Detailslist3 = Detailslist3 & "" Detailslist3 = Detailslist3 & "" Detailslist3 = Detailslist3 & "" end if if (Trim(oRS("Operational_Hrs_1"))<>"") Then Detailslist3 = Detailslist3 & "" Detailslist3 = Detailslist3 & "" Detailslist3 = Detailslist3 & "" Detailslist3 = Detailslist3 & "" end if if (Trim(oRS("Operational_Hrs_2"))<>"") Then Detailslist3 = Detailslist3 & "" Detailslist3 = Detailslist3 & "" Detailslist3 = Detailslist3 & "" Detailslist3 = Detailslist3 & "" end if if (Trim(oRS("Address2"))<>"") Then Detailslist3 = Detailslist3 & "" Detailslist3 = Detailslist3 & "" Detailslist3 = Detailslist3 & "" end if if (Trim(oRS("Fax2"))<>"") Then Detailslist3 = Detailslist3 & "" Detailslist3 = Detailslist3 & "" Detailslist3 = Detailslist3 & "" end if if (Trim(oRS("Address3"))<>"") Then Detailslist3 = Detailslist3 & "" Detailslist3 = Detailslist3 & "" Detailslist3 = Detailslist3 & "" end if if (Trim(oRS("Telephone3"))<>"") Then Detailslist3 = Detailslist3 & "" Detailslist3 = Detailslist3 & "" Detailslist3 = Detailslist3 & "" end if if (Trim(oRS("Fax3"))<>"") Then Detailslist3 = Detailslist3 & "" Detailslist3 = Detailslist3 & "" Detailslist3 = Detailslist3 & "" end if if (Trim(oRS("Operational_Hrs_3"))<>"") Then Detailslist3 = Detailslist3 & "" Detailslist3 = Detailslist3 & "" Detailslist3 = Detailslist3 & "" Detailslist3 = Detailslist3 & "" end if Detailslist3 = Detailslist3 & "
Address: 
"& oRS("Address1")&"
Telephone:
"& oRS("Telephone1")&"
Facsimile:
"& oRS("Telephone2")&"
Fax: 
"& oRS("Fax1") &"
E-Mail : "& oRS("E_Mail")&"
 
Hours of Work: 
"& oRS("Operational_Hrs_1")&"
Visa Hours: 
"& oRS("Operational_Hrs_2")&"
Address: 
"& oRS("Address2")&"
Fax: 
"& oRS("Fax2") &"
Address : 
"& oRS("Address3")&"
Telephone : 
 "& oRS("Telephone3")&"
Fax : 
"& oRS("Fax3") &"
 
Operational Hours : 
"& oRS("Operational_Hrs_3")&"
" addressDetails = Detailslist3 oRS.close end function %>