<% 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 "

" & rs.fields("name") & "
" & rs.fields("description") & "

" & 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 "

" if rs.fields("buylink") <> "" then response.write "" end if response.write rs.fields("title") if rs.fields("buylink") <> "" then response.write "" end if response.write "" & vbcrlf if rs.fields("description") <> "" then response.write "
" & replace(rs.fields("description"),Chr(13)&Chr(10),"
") & vbcrlf end if response.write "
(" & rs.fields("label") if rs.fields("labelnumber") <> "" then response.write ": " & rs.fields("labelnumber") end if response.write ", " & rs.fields("year") & ")" & vbcrlf if rs.fields("conductor") <> "" or rs.fields("soloist") <> "" then response.write "
" if rs.fields("conductor") <> "" then response.write rs.fields("conductor") & "
" end if if rs.fields("soloist") <> "" then response.write rs.fields("soloist") & "
" end if response.write "
" end if response.write"

" & vbcrlf rs2.movenext wend rs2.close end sub sub ListNews if id = "" then 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 "

There are no news items at this time.

" & 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 "

" if rs.fields("linkurl") <> "" then response.write "" end if response.write rs.fields("linktext") if rs.fields("linkurl") <> "" then response.write "" end if response.write "" & vbcrlf if rs.fields("description") <> "" then response.write "
" & replace(rs.fields("description"),Chr(13)&Chr(10)&Chr(13)&Chr(10),"
" & vbcrlf & "
") & "
" & vbcrlf end if 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 end if end sub %> John Kitzman | <%=pt%> | Dallas Symphony Orchestra Principal Trombone

John Kitzman | Principal Trombone, Dallas Symphony Orchestra

<%=pt%>

<% ShowContent %>

<% Nav "biography", "biography.asp", "Biography" Nav "equipment", "equipment.asp", "Equipment" Nav "discography", "discography.asp", "Discography" Nav "dsolowbrass", "dsolowbrass.asp", "DSO Low Brass" Nav "smustudio", "smustudio.asp", "SMU Studio" Nav "news", "news.asp", "News" Nav "calendar", "http://calendar.yahoo.com/jktrb@swbell.net"" target=""_blank""", "Calendar" Nav "photos", "http://jkitzman.shutterfly.com/"" target=""_blank""", "Photos" Nav "links", "links.asp", "Links" Nav "contact", "contact.asp", "Contact" %> <% LeftNews %>

<% 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 %>