|
xterradane -> RE: Hyperlink from Access not displaying correctly (4/23/2002 15:36:07)
|
<% Dim rsJob Set rsJob = Server.CreateObject("ADODB.Recordset") strSQL="SELECT * FROM CertificationLinks ORDER BY Hits DESC;" rsJob.Open strSQL, objConn If Not rsJob.EOF Then Response.Write "<TABLE ALIGN=""CENTER"" BORDER=""O"" CELLPADDING=""4"" WIDTH=""80%"">" &_ "<TR><TH WIDTH=""40%"" bgcolor=""#0099CC""><P ALIGN=""LEFT""><FONT COLOR=""#FFFFFF"" SIZE=""2"" FACE=""VERDANA"">Certifying Body</FONT></TH>" &_ " <TH WIDTH=""25%"" bgcolor=""#0099CC""><FONT COLOR=""#FFFFFF"" SIZE=""2"" FACE=""VERDANA"">URL</FONT></TH>" &_ " <TH WIDTH=""20%"" bgcolor=""#0099CC""><FONT COLOR=""#FFFFFF"" SIZE=""2"" FACE=""VERDANA"">Description</FONT></TH>" &_ " <TH WIDTH=""15%"" bgcolor=""#0099CC""><FONT COLOR=""#FFFFFF"" SIZE=""2"" FACE=""VERDANA"">Number of Hits</FONT></TH>" &_ " </TR>" Do While Not rsJob.EOF Response.Write "<TR ALIGN=CENTER>" &_ "<TD P ALIGN=""LEFT""> " & rsJob("Name") &"</TD>" &_ "<TD> " & rsJob("URL") &"</TD>" &_ "<TD> " & rsJob("Description") &"</TD>" &_ "<TD> " & rsJob("Hits") &"</TD>" &_ "</TR>" rsJob.MoveNext Loop Response.Write "</TABLE>" Else Response.Write "<DIV ALIGN=""CENTER"">Currently there are no links in this section." End If rsJob.Close Set rsJob = Nothing %> Please note that I am not using FrontPage's DRW.
|
|
|
|