 |
|
| FGM SERIAL NUMBER: |
| |
16 |
| Title: |
| |
New Techniques in Pavement Modeling |
| Organizer: |
| |
Prof. William G. Buttlar |
| Description: |
| |
Until recently, methodologies for the analysis and design of pavements
have been predominantly empirical, hindered by a lack of fundamental
understanding of deterioration mechanisms and a shortage of field
validated models.
Furthermore, material property gradients caused by environmental
aging and weathering, construction limitations, and temperature
gradients have not been adequately addressed. Recent advances in
computational mechanics have led to the development of more powerful
modeling tools, which allow the analyst to account for material
gradients, and to simulate deterioration mechanisms including fatigue,
fracture, and permanent deformation. Papers describing new modeling
techniques, particularly those which provide details concerning
model development, calibration, verification, and validation are
particularly welcome. |
| Key Words: |
| |
Pavement, Graded, Multiscale, Constitutive Models, Asphalt, Concrete |
| |
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='" & "16" &"'"
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 "16-" &(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
%> |
|
|
