<%@ Language=VBScript %> <% Option Explicit %> <% Response.Buffer = True %> <% Dim gstrDatabaseType, gstrConnectToDatabase, gstrNewsDatabaseTemplatePage, gstrNewsDatabaseVirtualAddress, gstrNewsPostingPassword, gstrNewsAdminPassword %> <% '******************************************** '* News Database By Smo * '* Photo File * '* (c) 2001 By Tim Smulders * '* Version 3 * '* http://www.iamsmo.com * '******************************************** 'Dims Dim objConn, gstrElsid, intAddEditPhotoNumber, intAdminArticleId, intAdminPhotoNumber, intArticleId, intPhotoNumber gstrElsid = Session.LCID Select Case Request.QueryString("photostep") Case "addedit" intAddEditPhotoNumber = Request.QueryString("photonumber") If NOT IsNumeric(intAddEditPhotoNumber) Then Response.End Else intAddEditPhotoNumber = Cint(intAddEditPhotoNumber) End If Select Case intAddEditPhotoNumber Case 1 Response.ContentType = Session("Photo1ContentType") Response.BinaryWrite Session("Photo1") Case 2 Response.ContentType = Session("Photo2ContentType") Response.BinaryWrite Session("Photo2") Case 3 Response.ContentType = Session("Photo3ContentType") Response.BinaryWrite Session("Photo3") Case 4 Response.ContentType = Session("Photo4ContentType") Response.BinaryWrite Session("Photo4") Case 5 Response.ContentType = Session("AddPhoto5ContentType") Response.BinaryWrite Session("Photo5") Case 6 Response.ContentType = Session("Photo6ContentType") Response.BinaryWrite Session("Photo6") End Select Case "admindisplay" If Session("CheckNewsDatabasePassword") <> gstrNewsAdminPassword Then Response.End End If intAdminArticleId = Request.QueryString("articleid") If NOT IsNumeric(intAdminArticleId) Then Response.End Else intAdminArticleId = Cint(intAdminArticleId) End If intAdminPhotoNumber = Request.QueryString("photonumber") If NOT IsNumeric(intAdminPhotoNumber) Then Response.End Else intAdminPhotoNumber = Cint(intAdminPhotoNumber) End If 'Create The SQL Dim strSQLAdminGetPhoto Select Case intAdminPhotoNumber Case 1 strSQLAdminGetPhoto = "SELECT ArticleId, Photo1ContentType AS ContentType, Photo1 AS Photo FROM tblNewsDatabaseBySmo WHERE ArticleId = " & intAdminArticleId & ";" Case 2 strSQLAdminGetPhoto = "SELECT ArticleId, Photo2ContentType AS ContentType, Photo2 AS Photo FROM tblNewsDatabaseBySmo WHERE ArticleId = " & intAdminArticleId & ";" Case 3 strSQLAdminGetPhoto = "SELECT ArticleId, Photo3ContentType AS ContentType, Photo3 AS Photo FROM tblNewsDatabaseBySmo WHERE ArticleId = " & intAdminArticleId & ";" Case 4 strSQLAdminGetPhoto = "SELECT ArticleId, Photo4ContentType AS ContentType, Photo4 AS Photo FROM tblNewsDatabaseBySmo WHERE ArticleId = " & intAdminArticleId & ";" Case 5 strSQLAdminGetPhoto = "SELECT ArticleId, Photo5ContentType AS ContentType, Photo5 AS Photo FROM tblNewsDatabaseBySmo WHERE ArticleId = " & intAdminArticleId & ";" Case 6 strSQLAdminGetPhoto = "SELECT ArticleId, Photo6ContentType AS ContentType, Photo6 AS Photo FROM tblNewsDatabaseBySmo WHERE ArticleId = " & intAdminArticleId & ";" Case Else Response.End End Select 'Open Connection openconn 'Open Recordset Dim objAdminGetPhoto Set objAdminGetPhoto = Server.CreateObject("ADODB.Recordset") objAdminGetPhoto.Open strSQLAdminGetPhoto, objConn, 0, 1 If objAdminGetPhoto.EOF Then 'Close Recordset objAdminGetPhoto.Close Set objAdminGetPhoto = Nothing 'Close Connection closeconn Response.End Else Response.ContentType = objAdminGetPhoto("ContentType") Response.BinaryWrite objAdminGetPhoto("Photo") End If 'Close Recordset objAdminGetPhoto.Close Set objAdminGetPhoto = Nothing 'Close Connection closeconn Case "display" intArticleId = Request.QueryString("articleid") If NOT IsNumeric(intArticleId) Then Response.End Else intArticleId = Cint(intArticleId) End If intPhotoNumber = Request.QueryString("photonumber") If NOT IsNumeric(intPhotoNumber) Then Response.End Else intPhotoNumber = Cint(intPhotoNumber) End If 'Create The SQL Dim strSQLGetPhoto Select Case intPhotoNumber Case 1 Select Case gstrDatabaseType Case "Access" Session.LCID = 1033 strSQLGetPhoto = "SELECT ArticleId, Photo1ContentType AS ContentType, Photo1 AS Photo FROM tblNewsDatabaseBySmo WHERE DateDiff('s', Now(), ArticleDateAndTime) <= 0 AND ArticleId = " & intArticleId & ";" Session.LCID = gstrElsid Case "SQLServer" Session.LCID = 1033 strSQLGetPhoto = "SELECT ArticleId, Photo1ContentType AS ContentType, Photo1 AS Photo FROM tblNewsDatabaseBySmo WHERE DateDiff(s, GetDate(), ArticleDateAndTime) <= 0 AND ArticleId = " & intArticleId & ";" Session.LCID = gstrElsid Case Else Response.Clear Response.Write "Administrator check database type." Response.End End Select Case 2 Select Case gstrDatabaseType Case "Access" Session.LCID = 1033 strSQLGetPhoto = "SELECT ArticleId, Photo2ContentType AS ContentType, Photo2 AS Photo FROM tblNewsDatabaseBySmo WHERE DateDiff('s', Now(), ArticleDateAndTime) <= 0 AND ArticleId = " & intArticleId & ";" Session.LCID = gstrElsid Case "SQLServer" Session.LCID = 1033 strSQLGetPhoto = "SELECT ArticleId, Photo2ContentType AS ContentType, Photo2 AS Photo FROM tblNewsDatabaseBySmo WHERE DateDiff(s, GetDate(), ArticleDateAndTime) <= 0 AND ArticleId = " & intArticleId & ";" Session.LCID = gstrElsid Case Else Response.Clear Response.Write "Administrator check database type." Response.End End Select Case 3 Select Case gstrDatabaseType Case "Access" Session.LCID = 1033 strSQLGetPhoto = "SELECT ArticleId, Photo3ContentType AS ContentType, Photo3 AS Photo FROM tblNewsDatabaseBySmo WHERE DateDiff('s', Now(), ArticleDateAndTime) <= 0 AND ArticleId = " & intArticleId & ";" Session.LCID = gstrElsid Case "SQLServer" Session.LCID = 1033 strSQLGetPhoto = "SELECT ArticleId, Photo3ContentType AS ContentType, Photo3 AS Photo FROM tblNewsDatabaseBySmo WHERE DateDiff(s, GetDate(), ArticleDateAndTime) <= 0 AND ArticleId = " & intArticleId & ";" Session.LCID = gstrElsid Case Else Response.Clear Response.Write "Administrator check database type." Response.End End Select Case 4 Select Case gstrDatabaseType Case "Access" Session.LCID = 1033 strSQLGetPhoto = "SELECT ArticleId, Photo4ContentType AS ContentType, Photo4 AS Photo FROM tblNewsDatabaseBySmo WHERE DateDiff('s', Now(), ArticleDateAndTime) <= 0 AND ArticleId = " & intArticleId & ";" Session.LCID = gstrElsid Case "SQLServer" Session.LCID = 1033 strSQLGetPhoto = "SELECT ArticleId, Photo4ContentType AS ContentType, Photo4 AS Photo FROM tblNewsDatabaseBySmo WHERE DateDiff(s, GetDate(), ArticleDateAndTime) <= 0 AND ArticleId = " & intArticleId & ";" Session.LCID = gstrElsid Case Else Response.Clear Response.Write "Administrator check database type." Response.End End Select Case 5 Select Case gstrDatabaseType Case "Access" Session.LCID = 1033 strSQLGetPhoto = "SELECT ArticleId, Photo5ContentType AS ContentType, Photo5 AS Photo FROM tblNewsDatabaseBySmo WHERE DateDiff('s', Now(), ArticleDateAndTime) <= 0 AND ArticleId = " & intArticleId & ";" Session.LCID = gstrElsid Case "SQLServer" Session.LCID = 1033 strSQLGetPhoto = "SELECT ArticleId, Photo5ContentType AS ContentType, Photo5 AS Photo FROM tblNewsDatabaseBySmo WHERE DateDiff(s, GetDate(), ArticleDateAndTime) <= 0 AND ArticleId = " & intArticleId & ";" Session.LCID = gstrElsid Case Else Response.Clear Response.Write "Administrator check database type." Response.End End Select Case 6 Select Case gstrDatabaseType Case "Access" Session.LCID = 1033 strSQLGetPhoto = "SELECT ArticleId, Photo6ContentType AS ContentType, Photo6 AS Photo FROM tblNewsDatabaseBySmo WHERE DateDiff('s', Now(), ArticleDateAndTime) <= 0 AND ArticleId = " & intArticleId & ";" Session.LCID = gstrElsid Case "SQLServer" Session.LCID = 1033 strSQLGetPhoto = "SELECT ArticleId, Photo6ContentType AS ContentType, Photo6 AS Photo FROM tblNewsDatabaseBySmo WHERE DateDiff(s, GetDate(), ArticleDateAndTime) <= 0 AND ArticleId = " & intArticleId & ";" Session.LCID = gstrElsid Case Else Response.Clear Response.Write "Administrator check database type." Response.End End Select Case Else Response.End End Select 'Open Connection openconn 'Open Recordset Dim objGetPhoto Set objGetPhoto = Server.CreateObject("ADODB.Recordset") objGetPhoto.Open strSQLGetPhoto, objConn, 0, 1 If objGetPhoto.EOF Then 'Close Recordset objGetPhoto.Close Set objGetPhoto = Nothing 'Close Connection closeconn Response.End Else Response.ContentType = objGetPhoto("ContentType") Response.BinaryWrite objGetPhoto("Photo") End If 'Close Recordset objGetPhoto.Close Set objGetPhoto = Nothing 'Close Connection closeconn Case Else Response.End End Select '******************************************************************* '* Subroutine to open connection to the database. * '******************************************************************* Sub openconn Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open gstrConnectToDatabase End Sub '******************************************************************* '* Subroutine to close connection to the database. * '******************************************************************* Sub closeconn objConn.Close Set objConn = Nothing End Sub %>