 |
|
<%IF Request.QueryString("Code")="" THEN%>
|
|
|
|
<%IF (Request.QueryString("DivisionName")="" or Request.QueryString("DivisionName")="Dhaka") Then%>
Dhaka Division
<%ELSEIF Request.QueryString("DivisionName")="Chittagong" Then%>
Chittagong Division
<%ELSEIF Request.QueryString("DivisionName")="Sylhet" Then%>
Sylhet Division
<%ELSEIF Request.QueryString("DivisionName")="Khulna" Then%>
Khulna Division
<%ELSEIF Request.QueryString("DivisionName")="Rajshahi" Then%>
Rajshahi Division
<%ELSEIF Request.QueryString("DivisionName")="Barisal" Then%>
Barisal Division
<%END IF%>
|
|
| Branch |
Address |
Phone |
Fax/Email |
SWIFT |
|
|
|
<%
Dim rsBrnch, DivName
IF Request.QueryString("DivisionName")="" Then
DivName="Dhaka"
Else
DivName=Request.QueryString("DivisionName")
END IF
set rsBrnch=Server.CreateObject("ADODB.Recordset")
rsBrnch.Open "Select * from Branches where DivisionName='"& DivName &"' order by BranchName", conn, 3
Do while not rsBrnch.EOF
%>
| <%=rsBrnch("BranchName")%> |
<%=rsBrnch("Address")%> |
<%=rsBrnch("Phone")%> |
<%IF rsBrnch("Fax")<>"" THEN%><%=rsBrnch("Fax")%>
<%END IF%><%IF rsBrnch("Email")<>"" THEN%><%=rsBrnch("Email")%><%END IF%> |
<%IF rsBrnch("SWIFT")<>"" THEN%><%=rsBrnch("SWIFT")%><%END IF%> |
|
|
|
<%
rsBrnch.MoveNext
loop
rsBrnch.Close
set rsBrnch=Nothing
%>
|
<%ELSEIF Request.QueryString("Code")="Directory" THEN%>
| Search Branch Name by Alphabet |
<%
dim l
for l=65 to 90
if l<90 then
%>
|
<%'Response.Write "" & Chr(l) & " | "
Else
%>
|
<%
End If
next
%>
<%
'dim l
for l=65 to 90
if l<90 then
%>
|
<%Else%>
|
<%
End If
next
%>
|
<%
dim Char, rsBrnchDirectory
IF Request.QueryString("Alphabet")="" THEN
set rsBrnchDirectory=Server.CreateObject("ADODB.Recordset")
rsBrnchDirectory.Open "Select * from Branches order by BranchName", conn, 3
ELSE
Char=Request.QueryString("Alphabet")
set rsBrnchDirectory=server.createobject("ADODB.recordset")
rsBrnchDirectory.open "SELECT * FROM Branches where BranchName LIKE '"&Char& "%' order by BranchName",conn, 3
END IF
%>
|
<%IF (rsBrnchDirectory.EOF and rsBrnchDirectory.BOF) THEN%>
<%IF Request.QueryString("Alphabet")<>"" THEN%>
Sorry ! |
| None of the Branch name begins with '<%=Request.QueryString("Alphabet")%>' |
<%END IF%>
<%ELSE%>
|
| Branch |
Address |
Phone |
Fax/Email |
SWIFT |
|
|
|
<%Do while not rsBrnchDirectory.EOF %>
| <%=rsBrnchDirectory("BranchName")%> |
<%=rsBrnchDirectory("Address")%> |
<%=rsBrnchDirectory("Phone")%> |
<%IF rsBrnchDirectory("Fax")<>"" THEN%><%=rsBrnchDirectory("Fax")%>
<%END IF%><%IF rsBrnchDirectory("Email")<>"" THEN%><%=rsBrnchDirectory("Email")%><%END IF%> |
<%IF rsBrnchDirectory("SWIFT")<>"" THEN%><%=rsBrnchDirectory("SWIFT")%><%END IF%> |
|
|
|
<%
rsBrnchDirectory.MoveNext
loop
rsBrnchDirectory.Close
set rsBrnchDirectory=Nothing
%>
|
<%END IF%>
<%ELSEIF Request.QueryString("Code")="Locate" THEN%>
|
|
|
<%IF Request.Form("BtnBranch")<>"" THEN%>
| Branch |
Address |
Phone |
Fax/Email |
SWIFT |
|
|
|
<%
Dim rsBrnchLocate
set rsBrnchLocate=Server.CreateObject("ADODB.Recordset")
rsBrnchLocate.Open "Select * from Branches where BranchName='" & Request.Form("BranchName") & "'", conn, 3
Do while not rsBrnchLocate.EOF
%>
| <%=rsBrnchLocate("BranchName")%> |
<%=rsBrnchLocate("Address")%> |
<%=rsBrnchLocate("Phone")%> |
<%IF rsBrnchLocate("Fax")<>"" THEN%><%=rsBrnchLocate("Fax")%>
<%END IF%><%IF rsBrnchLocate("Email")<>"" THEN%><%=rsBrnchLocate("Email")%><%END IF%> |
<%IF rsBrnchLocate("SWIFT")<>"" THEN%><%=rsBrnchLocate("SWIFT")%><%END IF%> |
|
|
|
<%
rsBrnchLocate.MoveNext
loop
rsBrnchLocate.Close
set rsBrnchLocate=Nothing
%>
|
<%END IF%>
<%END IF%>