MINI-SYMPOSIA DETAILS
FGM SERIAL NUMBER:
  15
Title:
  Thermal Stresses in Functionally Graded Materials
Organizer:
  Prof. Serkan Dag
Description:
  The concept of using functionally graded materials as protective coatings and interlayers in technological applications demanding mechanical reliability under thermal loads is currently being investigated and developed by the scientific research community.
Key Words:
  Thermal Stresses; Thermoelasticity/plasticity; Fracture Mechanics; Anisotropy; Thermal Cycling
 
Abstracts submitted to this MS:
<% 'Dimension variables Dim adoCon 'Holds the Database Connection Object Dim rsGuestbook 'Holds the recordset for the records in the database Dim strSQL 'Holds the SQL query for the database Dim strUser 'Create an ADO connection object Set adoCon = Server.CreateObject("ADODB.Connection") 'Set an active connection to the Connection object using a DSN-less connection adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("Abstracts.mdb") 'Set an active connection to the Connection object using DSN connection 'adoCon.Open "DSN=guestbook" 'Create an ADO recordset object Set rsGuestbook = Server.CreateObject("ADODB.Recordset") 'Initialise the strSQL variable with an SQL statement to query the database strSQL = "SELECT abstracts.* FROM abstracts Where SerialNumber='" & "15" &"'" strSQL = strSQL & "ORDER BY AbsID" 'Open the recordset with the SQL query rsGuestbook.Open strSQL, adoCon 'Loop through the recordset Do While not rsGuestbook.EOF %>
<% 'Write the HTML to display the current record in the recordset Response.Write "15-" &(rsGuestbook("AbsID")) If rsGuestbook("SubID") = ("0") then Response.Write ("") else Response.Write "-" & rsGuestbook("SubID") & " " end if %> Title: <% Response.Write (rsGuestbook("ProposedPaperTitle")) %>
  Author(s): <% If rsGuestbook("LasName2") = ("1") then Response.Write rsGuestbook("Title1") & " " & rsGuestbook("FirName1") & " " & rsGuestbook("LasName1") & " " elseif rsGuestbook("LasName3") = ("1") then Response.Write rsGuestbook("Title1") & " " & rsGuestbook("FirName1") & " " & rsGuestbook("LasName1") & ", " & rsGuestbook("Title2") & " " & rsGuestbook("FirName2") & " " & rsGuestbook("LasName2") & " " elseif rsGuestbook("LasName4") = ("1") then Response.Write rsGuestbook("Title1") & " " & rsGuestbook("FirName1") & " " & rsGuestbook("LasName1") & ", " & rsGuestbook("Title2") & " " & rsGuestbook("FirName2") & " " & rsGuestbook("LasName2") & ", " & rsGuestbook("Title3") & " " & rsGuestbook("FirName3") & " " & rsGuestbook("LasName3") & " " elseif rsGuestbook("LasName5") = ("1") then Response.Write rsGuestbook("Title1") & " " & rsGuestbook("FirName1") & " " & rsGuestbook("LasName1") & ", " & rsGuestbook("Title2") & " " & rsGuestbook("FirName2") & " " & rsGuestbook("LasName2") & ", " & rsGuestbook("Title3") & " " & rsGuestbook("FirName3") & " " & rsGuestbook("LasName3") & ", " & rsGuestbook("Title4") & " " & rsGuestbook("FirName4") & " " & rsGuestbook("LasName4") & " " elseif rsGuestbook("LasName6") = ("1") then Response.Write rsGuestbook("Title1") & " " & rsGuestbook("FirName1") & " " & rsGuestbook("LasName1") & ", " & rsGuestbook("Title2") & " " & rsGuestbook("FirName2") & " " & rsGuestbook("LasName2") & ", " & rsGuestbook("Title3") & " " & rsGuestbook("FirName3") & " " & rsGuestbook("LasName3") & ", " & rsGuestbook("Title4") & " " & rsGuestbook("FirName4") & " " & rsGuestbook("LasName4") & ", " & rsGuestbook("Title5") & " " & rsGuestbook("FirName5") & " " & rsGuestbook("LasName5") & " " elseif rsGuestbook("LasName7") = ("1") then Response.Write rsGuestbook("Title1") & " " & rsGuestbook("FirName1") & " " & rsGuestbook("LasName1") & ", " & rsGuestbook("Title2") & " " & rsGuestbook("FirName2") & " " & rsGuestbook("LasName2") & ", " & rsGuestbook("Title3") & " " & rsGuestbook("FirName3") & " " & rsGuestbook("LasName3") & ", " & rsGuestbook("Title4") & " " & rsGuestbook("FirName4") & " " & rsGuestbook("LasName4") & ", " & rsGuestbook("Title5") & " " & rsGuestbook("FirName5") & " " & rsGuestbook("LasName5") & ", " & rsGuestbook("Title6") & " " & rsGuestbook("FirName6") & " " & rsGuestbook("LasName6") & " " elseif rsGuestbook("LasName8") = ("1") then Response.Write rsGuestbook("Title1") & " " & rsGuestbook("FirName1") & " " & rsGuestbook("LasName1") & ", " & rsGuestbook("Title2") & " " & rsGuestbook("FirName2") & " " & rsGuestbook("LasName2") & ", " & rsGuestbook("Title3") & " " & rsGuestbook("FirName3") & " " & rsGuestbook("LasName3") & ", " & rsGuestbook("Title4") & " " & rsGuestbook("FirName4") & " " & rsGuestbook("LasName4") & ", " & rsGuestbook("Title5") & " " & rsGuestbook("FirName5") & " " & rsGuestbook("LasName5") & ", " & rsGuestbook("Title6") & " " & rsGuestbook("FirName6") & " " & rsGuestbook("LasName6") & ", " & rsGuestbook("Title7") & " " & rsGuestbook("FirName7") & " " & rsGuestbook("LasName7") & " " elseif rsGuestbook("LasName9") = ("1") then Response.Write rsGuestbook("Title1") & " " & rsGuestbook("FirName1") & " " & rsGuestbook("LasName1") & ", " & rsGuestbook("Title2") & " " & rsGuestbook("FirName2") & " " & rsGuestbook("LasName2") & ", " & rsGuestbook("Title3") & " " & rsGuestbook("FirName3") & " " & rsGuestbook("LasName3") & ", " & rsGuestbook("Title4") & " " & rsGuestbook("FirName4") & " " & rsGuestbook("LasName4") & ", " & rsGuestbook("Title5") & " " & rsGuestbook("FirName5") & " " & rsGuestbook("LasName5") & ", " & rsGuestbook("Title6") & " " & rsGuestbook("FirName6") & " " & rsGuestbook("LasName6") & ", " & rsGuestbook("Title7") & " " & rsGuestbook("FirName7") & " " & rsGuestbook("LasName7") & ", " & rsGuestbook("Title8") & " " & rsGuestbook("FirName8") & " " & rsGuestbook("LasName8") & " " else Response.Write " " end if %>
  Abstract: <% Response.Write (rsGuestbook("Abstract")) %>
<% 'Move to the next record in the recordset rsGuestbook.MoveNext Loop %>