Delar Locator Search Result[Agency,Delar,Locator]

<%@ LANGUAGE="VBSCRIPT" %> <% Option Explicit %> <% '##### QueryString‚ª‚È‚¢ê‡ ##### Dim regionCode regionCode = Request.QueryString("valueInput") IF (regionCode = "") Then Response.End End IF %> Delar Locator Search Result[Agency,Delar,Locator]

When the corresponding area is not found, please ask from here.

<% '##### ¶‘¤‘Ñ‚Ñ‚Ì‚‚³‚ðŒŸõŒ‹‰Ê‚É‰ž‚¶‚Ä•ÏXB ##### Select Case regionCode 'Oseania Case "1" Response.Write(" " & vbNewLine) 'Middle East Case "2" Response.Write(" " & vbNewLine) 'Africa Case "3" Response.Write(" " & vbNewLine) 'CIS Case "4" Response.Write(" " & vbNewLine) 'Asia Case "5" Response.Write(" " & vbNewLine) 'Europe Case "6" Response.Write(" " & vbNewLine) 'ŠY“–‚µ‚È‚¢ê‡ Case Else Response.Write(" " & vbNewLine) End Select %>

Please select the area to which you belong.

<% '##### ‘I‚ñ‚¾’nˆæ•Ê‚Ìƒ^ƒCƒgƒ‹‰æ‘œ‚ð‘‚«o‚·B ##### Select Case regionCode 'Oseania Case "1" Response.Write("

" & vbNewLine) 'Middle East Case "2" Response.Write("

" & vbNewLine) 'Africa Case "3" Response.Write("

" & vbNewLine) 'CIS Case "4" Response.Write("

" & vbNewLine) 'Asia Case "5" Response.Write("

" & vbNewLine) 'Europe Case "6" Response.Write("

" & vbNewLine) End Select %>

<% '### ƒf[ƒ^ƒx[ƒX‚ÖÚ‘± ### Dim objRs Dim strSql Dim i i = 1 Set objRs = Server.CreateObject("ADODB.Recordset") objCon.Open strSql = "SELECT * FROM [dealer address$] WHERE ID LIKE " & Request.QueryString("valueInput") & "" objRs.Open strSql, objCon, 3 '##### ŒŸõŒ‹‰Ê‚ª–³‚¢ê‡ ##### IF (objRs.RecordCount = 0) Then Response.Write(" " & vbNewLine) Else '##### ƒAƒ“ƒJ[‚Å”ò‚Î‚·ƒZƒŒƒNƒgƒtƒH[ƒ€‚Ìoption‚ð‘‚«o‚· ##### Response.Write(" " & vbNewLine) objRs.MoveFirst End IF Response.Write("

" & vbNewLine) Response.Write("

" & vbNewLine) Response.Write("

" & vbNewLine) Response.Write("

" & vbNewLine) '##### ‘I‚ñ‚¾’nˆæ•Ê‚Ìƒ^ƒCƒgƒ‹‰æ‘œ‚ð‘‚«o‚·B ##### Select Case regionCode 'Oseania Case "1" Response.Write(" " & vbNewLine) 'Middle East Case "2" Response.Write(" " & vbNewLine) 'Africa Case "3" Response.Write(" " & vbNewLine) 'CIS Case "4" Response.Write(" " & vbNewLine) 'Asia Case "5" Response.Write(" " & vbNewLine) 'Europe Case "6" Response.Write(" " & vbNewLine) End Select Response.Write("

" & vbNewLine) Response.Write("

" & vbNewLine) IF (objRs.RecordCount = 0) Then Response.Write("NO DATA") Else '##### ‘–¼‚â‘ã—“Xî•ñ‚ð‘‚«o‚· ##### Dim t t = 1 Do Until objRs.EOF Response.Write("

" & objRs("Country").value & "

" & vbNewLine) Response.Write("

" & objRs("Company name").value & "

" & vbNewLine) Response.Write(" " & vbNewLine) Response.Write(" " & vbNewLine) Response.Write(" " & vbNewLine) Response.Write(" " & vbNewLine) Response.Write(" " & vbNewLine) Response.Write(" " & vbNewLine) Response.Write(" " & vbNewLine) Response.Write(" " & vbNewLine) Response.Write(" " & vbNewLine) Response.Write(" " & vbNewLine) Response.Write(" " & vbNewLine) Response.Write(" " & vbNewLine) Response.Write(" " & vbNewLine) Response.Write(" " & vbNewLine) Response.Write(" " & vbNewLine) Response.Write(" " & vbNewLine) Dim email email = objRs("E-mail").value IF (email <> "") Then Response.Write(" " & vbNewLine) Response.Write(" " & vbNewLine) Response.Write(" " & vbNewLine) Response.Write(" " & vbNewLine) Response.Write(" " & vbNewLine) END IF Dim URL URL = objRs("URL").value IF (URL <> "") Then Response.Write(" " & vbNewLine) Response.Write(" " & vbNewLine) Response.Write(" " & vbNewLine) Response.Write(" " & vbNewLine) Response.Write(" " & vbNewLine) END IF Response.Write("

	Address	" & objRs("Address").value & "
	Phone	" & objRs("Phone").value & "
	Fax	" & objRs("FAX").value & "
	E-mail	" & objRs("E-mail").value & "
	URL	" & objRs("URL").value & "

" & vbNewLine) Response.Write("
" & vbNewLine) t = t + 1 objRs.MoveNext Loop objRs.MoveFirst End IF Response.Write("

" & vbNewLine) Response.Write("

" & vbNewLine) Response.Write("

" & vbNewLine) Response.Write(" " & vbNewLine) Response.Write("

When the corresponding area is not found, please ask from here.

" & vbNewLine) Response.Write("

" & vbNewLine) '##### ƒŒƒR[ƒhƒZƒbƒg‚ÌƒNƒ[ƒY ##### objRs.Close Set objRs = Nothing '##### ƒRƒlƒNƒVƒ‡ƒ“‚ÌƒNƒ[ƒY ##### objCon.Close Set objCon = Nothing %>