|
|
Search Results by language
Here is the search results
upon your selection. To select the document you want to read from the
following list of documents, double click the PDF file name of the
document. You need to have Acrobat Reader to read the files. Or you can
download it to your computer for later use. After you finish reading the
document, click the BACK button on your browser to get back to our
site. If a document is listed and there is no PDF file, please contact
Rosanna Tran for access to a hard copy.
<%
selectedlang = Request.Form("langselect")
Dim objConn
Dim objRec
dim pdf,bgcolor
Set objConn=Server.CreateObject("ADODB.Connection")
Set objRec=Server.CreateObject("ADODB.Recordset")
objConn.Open "Driver={SQL Server};Server=204.170.82.49;uid=asiac;pwd=4+p?0@g>;Database=asiac;APP=ASP Script"
' sql ="select * from documents where 'language='" & selectedlang & "order by starting desc"
' objRec.Open sql, objConn
objRec.Open "documents", objConn, 0, 1, 2
objRec.Filter = "language = '" & selectedlang &"'"
bgcolor="ffffff"
if not objRec.EOF then
Response.Write "| "
Response.Write " "
Response.Write "Document Title | "
Response.Write ""
Response.Write " "
Response.Write "Language | "
Response.Write ""
Response.Write "PDF File | "
while not objRec.EOF
Response.Write ""
Response.Write "| " & objRec("title") & " | "
Response.Write "" & objRec("language") & " | "
pdf=objRec("pdffile")
Response.Write "" & pdf & " | "
objRec.MoveNext
if bgcolor="ffffff" then
bgcolor="ccffcc"
else
bgcolor="ffffff"
end if
wend
else
Response.Write " | Sorry, there is no document in this language! | "
end if
objRec.Close
objConn.Close
Set objRec=Nothing
Set objConn=Nothing
%>
|
