Well, most stuff is edited. I ussaully start to design on top off all the code. Then I just pickout the code that I need and place it in my design.
Response.Write "<table width=""850"" height=""15"" cellPadding=""0"" cellSpacing=""0"" border=""0"" background=""images/interface/forum_header_blank.gif"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td>" & vbNewLine & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine & _
"</table>" & vbNewLine
Response.Write "<table width=""850"" cellPadding=""0"" cellSpacing=""0"" border=""0"" background=""images/interface/forum_backloop.gif"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td align=""left"" class=""font_black3""><div id=""topic_navigation"">" & vbNewLine & _
" <a href=""default.asp"">All Forums</a>" & vbNewLine & _
" <img src=""images/interface/topicnav_arrow.gif"" align=""absmiddle"" border=""0""> " & vbNewLine & _
" <a href=""default.asp?CAT_ID=" & Cat_ID & """>" & ChkString(Cat_Name,"display") & "</a>" & vbNewLine & _
" <img src=""images/interface/topicnav_arrow.gif"" align=""absmiddle"" border=""0""> " & vbNewLine & _
" <b><a href=""forum.asp?" & ArchiveLink & "FORUM_ID=" & Forum_ID & """>" & ChkString(Forum_Subject,"display") & "</a>" & vbNewLine & _
" </b></div></td>" & vbNewLine
Response.Write " </tr>" & vbNewLine & _
"</table>" & vbNewLine
Response.Write "<table width=""850"" height=""20"" cellPadding=""0"" cellSpacing=""0"" border=""0"" background=""images/interface/forum_footer.gif"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td>" & vbNewLine & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine & _
"</table>" & vbNewLine
The first and last table is for the rounded top and bottom. Also notice that I didn't included the 'New Topic', 'Reply to Topic', 'Send to a friend' and 'Printer Friendly' links. I used them somewhere else
Response.Write "<form action=""" & Request.ServerVariables("URL") & """ method=""post"" id=""form1"" name=""form1"">" & vbNewLine & _
"<input type=""hidden"" name=""Method_Type"" value=""login"">" & vbNewLine & _
" <td class=""font_black1"" align=""left"" width=""50%""> Please Login or <a href=""register.asp"" tabindex=""-1""><b>Register</b></a> to use the board | " & vbNewLine & _
" <b><a href=""password.asp""" & dWStatus("Choose a new password if you have forgotten your current one...") & " tabindex=""-1"">Forgot your "
if strAuthType = "nt" then Response.Write("Admin ")
Response.Write "Password?</a></b>" & vbNewLine & _
" </td>" & vbNewLine & _
" <td class=""font_black1"" align=""right"" width=""50%"">" & vbNewLine & _
" <table border=""0"" height=""40"" cellPadding=""0"" cellSpacing=""0"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td class=""font_black1"">Login </td><td><input type=""text"" name=""Name"" size=""10"" maxLength=""25"" value="""" class=""form_login"">" & vbNewLine & _
" </td>" & vbNewLine & _
" <td class=""font_black1""> Password </td><td><input type=""password"" name=""Password"" size=""10"" maxLength=""25"" value="""" class=""form_login"">" & vbNewLine & _
" </td>" & vbNewLine & _
" <td class=""font_black1""> <input type=""checkbox"" name=""SavePassWord"" value=""true"" tabindex=""-1"" CHECKED align=""absmiddle""></td><td class=""font_black1""> Save " & vbNewLine & _
" </td>" & vbNewLine & _
" <td>" & vbNewLine
if strGfxButtons = "1" then
Response.Write " <input src=""" & strImageUrl & "interface/btn_login.gif"" type=""image"" border=""0"" value=""Login"" id=""submit1"" name=""Login"" align=""absmiddle"">" & vbNewLine
else
Response.Write " <input type=""submit"" value=""Login"" id=""submit1"" name=""submit1"">" & vbNewLine
end if
Response.Write " </td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" </table>" & vbNewLine & _
" </td>" & vbNewLine & _
"</form>" & vbNewLine