<% nh = "biography" pt = "Biography" %> <% cmsname = "ekrgadmin" uploadscript = "w3upload" ' w3upload or aspupload dbpath = Server.Mappath("/jkitzman/data/jkdata.mdb") loginredirect = "news.asp" allxmls = Array() set cn = server.createobject("ADODB.Connection") cn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbpath set rspg = server.createobject("ADODB.Recordset") set rs = server.createobject("ADODB.Recordset") set rs2 = server.createobject("ADODB.Recordset") set myFSO = Server.CreateObject("Scripting.FileSystemObject") 'if uploadscript = "w3upload" then ' set Upload = Server.CreateObject("w3.Upload") 'elseif uploadscript = "aspupload" then ' set Upload = Server.CreateObject("Persits.Upload") 'end if %> <% id = request("id") action = request("action") sub Nav(match,url,title) response.write "" & title & "" & vbcrlf end sub sub ShowContent rs.open "SELECT * FROM tblPages WHERE pagetitle = '" & pt & "' " ,cn,0,1,1 response.write rs.fields("content") & vbcrlf rs.close end sub sub ListEquipment response.write "" & vbcrlf end sub sub ListDiscs rs2.open "SELECT * FROM tblDiscCats ORDER BY sort" ,cn,0,1,1 while not rs2.eof response.write "

" & rs2.fields("name") & "

" & vbcrlf response.write "" & vbcrlf rs2.movenext wend rs2.close end sub sub ListNews if id = "" then response.write "" & vbcrlf else rs.open "SELECT * FROM tblNews WHERE id = " & id ,cn,0,1,1 response.write "Back to all News" & vbcrlf response.write "

" & rs.fields("date") & "

" & vbcrlf response.write "

" & rs.fields("headline") & "

" & vbcrlf response.write "

" & replace(rs.fields("story"),Chr(13)&Chr(10)&Chr(13)&Chr(10),"

" & vbcrlf & "

") & "

" & vbcrlf response.write "

" & rs.fields("linktext") & "

" & vbcrlf rs.close end if end sub sub LeftNews rs.open "SELECT * FROM tblNews WHERE datevalue(showdate) <= datevalue('" & Now() & "') AND datevalue(hidedate) >= datevalue('" & Now() & "') ORDER BY date DESC" ,cn,0,1,1 if not rs.eof then response.write "

News

" & vbcrlf for x = 1 to 2 if not rs.eof then thelink = "news.asp?id=" & rs.fields("id") if rs.fields("story") = "" and rs.fields("linkurl") <> "" then thelink = rs.fields("linkurl") & """ target=""_blank""" end if response.write "

" & rs.fields("date") & " " if rs.fields("story") <> "" or rs.fields("linkurl") <> "" then response.write "" end if response.write rs.fields("headline") if rs.fields("story") <> "" or rs.fields("linkurl") <> "" then response.write " ..." end if response.write "

" & vbcrlf rs.movenext end if next end if rs.close end sub sub ListLinks rs2.open "SELECT * FROM tblLinkCats ORDER BY sort" ,cn,0,1,1 while not rs2.eof response.write "

" & rs2.fields("name") & "

" & vbcrlf response.write "" & vbcrlf rs2.movenext wend rs2.close end sub sub ContactForm if action = "thanks" then response.write "

Thank you for your message. I will get back to you as soon as possible.

" & vbcrlf elseif action = "submit" then Set myMail = CreateObject("CDO.Message") myMail.Subject = "Kitzman.net contact form" myMail.To = "jktrb@swbell.net" myMail.From = request.form("email") bodystring = "" bodystring = bodystring & "Name: " & request.form("name") & vbCrLf bodystring = bodystring & "Email: " & request.form("email") & vbCrLf & vbCrLf bodystring = bodystring & "Message: " & request.form("message") myMail.TextBody = bodystring myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost" myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 myMail.Configuration.Fields.Update myMail.Send set myMail = nothing response.redirect "contact.asp?action=thanks" else response.write "
" & vbcrlf response.write "

" & vbcrlf response.write "

" & vbcrlf response.write "

" & vbcrlf response.write "

" & vbcrlf response.write "
" & vbcrlf end if end sub %> John Kitzman | <%=pt%> | Dallas Symphony Orchestra Principal Trombone

John Kitzman | Principal Trombone, Dallas Symphony Orchestra

<%=pt%>

<% ShowContent %>
<% photo = "kitzman" if nh = "dsolowbrass" then photo = "dsolowbrass" end if %>
<% set Upload = Nothing set myFSO = Nothing set rs2 = Nothing set rs = Nothing set rspg = Nothing cn.close set cn = Nothing %>