<%@ LANGUAGE="VBSCRIPT" %> <% '#################################### '## Application: Blue-Collar Productions '## File Name: submitphotos.asp '## File Version: i-Gallery '## Copyright: This code is copyrighted. Please see http://www.b-cp.com for details. '## Notice: This code has limited warranties. Please see http://www.b-cp.com for details. '#################################### %> <% Response.Buffer = "true" '########## System Settings Do Not Edit Below This Line... REALLY ########## %> <% '---- CursorTypeEnum Values ---- Const adOpenForwardOnly = 0 Const adOpenKeyset = 1 Const adOpenDynamic = 2 Const adOpenStatic = 3 '---- LockTypeEnum Values ---- Const adLockReadOnly = 1 Const adLockPessimistic = 2 Const adLockOptimistic = 3 Const adLockBatchOptimistic = 4 '---- CursorLocationEnum Values ---- Const adUseServer = 2 Const adUseClient = 3 '---- CommandTypeEnum Values ---- Const adCmdUnknown = &H0008 Const adCmdText = &H0001 Const adCmdTable = &H0002 Const adCmdStoredProc = &H0004 Const adCmdFile = &H0100 Const adCmdTableDirect = &H0200 %> <% Dim SysConn,SysRec,GalleryName,UploadPath,URLPath,NailerApp,DllPath,DateFormat,RecordsPerRow,RecordsPerPage,FoldersPerRow,MaxUploadSize,MailServer,MailAddress,EmailApp,Anonymous,MessageBoard,AllowedFiles,TitleMax,History,Vote,ToolBar,DescMax,Description,SlideShow,DelaySpeed,Transition,StartColor1,EndColor1,StartColor2,EndColor2,TitleColor,DateColor,FullScreen,ViewerBG Set SysConn = Server.CreateObject ("ADODB.Connection") SysConn.Open strConnect Set sysRec = SysConn.Execute ("SELECT * FROM System;") GalleryName = SysRec("GalleryName") UploadPath = SysRec("UploadPath") URLPath = SysRec("URLPath") NailerApp = SysRec("NailerApp") DllPath = SysRec("DllPath") DateFormat = SysRec("DateFormat") RecordsPerRow = sysRec("RecordsPerRow") RecordsPerPage = sysRec("RecordsPerPage") FoldersPerRow = sysRec("FoldersPerRow") MaxUploadSize = SysRec("MaxUpload") MailServer = SysRec("EmailServer") MailAddress = SysRec("EmailAddress") EmailApp = SysRec("EmailApp") Anonymous = SysRec("Anonymous") MessageBoard = SysRec("MessageBoard") AllowedFiles = SysRec("AllowedFiles") TitleMax = SysRec("TitleMax") History = SysRec("History") Vote = SysRec("Vote") ToolBar = SysRec("ToolBar") DescMax = SysRec("DescMax") Description = SysRec("Description") SlideShow = SysRec("SlideShow") DelaySpeed = SysRec("DelaySpeed") Transition = SysRec("Transition") StartColor1 = SysRec("StartColor1") EndColor1 = SysRec("EndColor1") DateColor = SysRec("DateColor") StartColor2 = SysRec("StartColor2") EndColor2 = SysRec("EndColor2") TitleColor = SysRec("TitleColor") FullScreen = SysRec("FullScreen") ViewerBG = SysRec("ViewerBG") On Error Resume Next Dim SecurityTimeout SecurityTimeout = 10 'Amount of time idle before security session expires (MIN = 3) '########## Do Not Edit Below This Line... REALLY ########## Dim objFSO Set objFSO = CreateObject("Scripting.FileSystemObject") Dim FSO Set FSO = CreateObject("Scripting.FileSystemObject") Dim f Set f = FSO.GetFolder(UploadPath) Dim fsDir Set fsDir = FSO.GetFolder(UploadPath) Dim FileList Set FileList = f.subFolders Dim GalleryVersion GalleryVersion = "GSP NETWORK" Dim sAgent, b_IE, b_NN6 Dim ie, nn6 b_IE = false b_NN6 = false sAgent = Request.ServerVariables("HTTP_USER_AGENT") if (inStr(sAgent,"MSIE")>0) then b_IE = true end if if (inStr(sAgent,"Gecko")>0) then b_NN6 = true end if ie = b_IE nn6 = b_NN6 Function URLSpace(s) URLspace = s URLSpace = Replace(URLSpace," ","+") URLSpace = Replace(URLSpace,"&","%26") End Function 'URLSpace Function rURLSpace(s) rURLspace = s rURLSpace = Replace(rURLSpace,"+"," ") rURLSpace = Replace(rURLSpace,"%26","&") End Function 'URLSpace Function fExt(fname) filename = fname DotPosition = InStrRev(filename, ".") fExt = Mid(filename,DotPosition + 1) fExt = LCase(fExt) End Function 'File Extension Dim igalleryNow igalleryNow = Now Function EuroDate(MyDate) EuroDate = Day(MyDate) & "/" & Month(MyDate) & "/" & mid(Year(MyDate),3,2) End Function Function USDate(MyDate) USDate = Month(MyDate) & "/" & Day(MyDate) & "/" & mid(Year(MyDate),3,2) End Function Dim OutMinusTwo Session.Timeout = SecurityTimeout OutMinusTwo = (SecurityTimeout-2)*60000 Dim Nailer If NailerApp="1" OR NailerApp="2" OR NailerApp="3" Then Nailer = True ElseIf NailerApp="4" OR NailerApp="" Then Nailer = False NailerApp = 4 End If %> <% 'OPTION EXPLICIT const BASE_64_MAP_INIT = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/" dim Base64EncMap(63) dim Base64DecMap(127) ' must be called before using anything else PUBLIC SUB initCodecs() ' init vars 'nl = "

" & chr(13) & chr(10) ' setup base 64 dim max, idx max = len(BASE_64_MAP_INIT) for idx = 0 to max - 1 ' one based string Base64EncMap(idx) = mid(BASE_64_MAP_INIT, idx + 1, 1) next for idx = 0 to max - 1 Base64DecMap(ASC(Base64EncMap(idx))) = idx next END SUB ' encode base 64 encoded string PUBLIC FUNCTION Encode(plain) if len(plain) = 0 then Encode = "" exit function end if dim ret, ndx, by3, first, second, third by3 = (len(plain) \ 3) * 3 ndx = 1 do while ndx <= by3 first = asc(mid(plain, ndx+0, 1)) second = asc(mid(plain, ndx+1, 1)) third = asc(mid(plain, ndx+2, 1)) ret = ret & Base64EncMap( (first \ 4) AND 63 ) ret = ret & Base64EncMap( ((first * 16) AND 48) + ((second \ 16) AND 15 ) ) ret = ret & Base64EncMap( ((second * 4) AND 60) + ((third \ 64) AND 3 ) ) ret = ret & Base64EncMap( third AND 63) ndx = ndx + 3 loop ' check for stragglers if by3 < len(plain) then first = asc(mid(plain, ndx+0, 1)) ret = ret & Base64EncMap( (first \ 4) AND 63 ) if (len(plain) MOD 3 ) = 2 then second = asc(mid(plain, ndx+1, 1)) ret = ret & Base64EncMap( ((first * 16) AND 48) + ((second \ 16) AND 15 ) ) ret = ret & Base64EncMap( ((second * 4) AND 60) ) else ret = ret & Base64EncMap( (first * 16) AND 48) ret = ret & "=" end if ret = ret & "=" end if Encode = ret END FUNCTION ' decode base 64 encoded string PUBLIC FUNCTION Decode(scrambled) if len(scrambled) = 0 then Decode = "" exit function end if ' ignore padding dim realLen realLen = len(scrambled) do while mid(scrambled, realLen, 1) = "=" realLen = realLen - 1 loop dim ret, ndx, by4, first, second, third, fourth ret = "" by4 = (realLen \ 4) * 4 ndx = 1 do while ndx <= by4 first = Base64DecMap(asc(mid(scrambled, ndx+0, 1))) second = Base64DecMap(asc(mid(scrambled, ndx+1, 1))) third = Base64DecMap(asc(mid(scrambled, ndx+2, 1))) fourth = Base64DecMap(asc(mid(scrambled, ndx+3, 1))) ret = ret & chr( ((first * 4) AND 255) + ((second \ 16) AND 3)) ret = ret & chr( ((second * 16) AND 255) + ((third \ 4) AND 15) ) ret = ret & chr( ((third * 64) AND 255) + (fourth AND 63) ) ndx = ndx + 4 loop ' check for stragglers, will be 2 or 3 characters if ndx < realLen then first = Base64DecMap(asc(mid(scrambled, ndx+0, 1))) second = Base64DecMap(asc(mid(scrambled, ndx+1, 1))) ret = ret & chr( ((first * 4) AND 255) + ((second \ 16) AND 3)) if realLen MOD 4 = 3 then third = Base64DecMap(asc(mid(scrambled,ndx+2,1))) ret = ret & chr( ((second * 16) AND 255) + ((third \ 4) AND 15) ) end if end if Decode = ret END FUNCTION ' initialize call initCodecs ' Testing code 'dim inp, strencode 'inp = request.form("test") 'strencode = Encode(inp) 'response.write "Encoded value = " & strencode 'response.write "Decoded value = " & Decode(strencode) %> <% function CropIt(chkString,sNum) if IsNull(chKString) = False And chkString > sNum Then strTot = Len(chkString) While Right(chkString, 1) = " " chkString = Left(chkString, strTot - 1) strTot = Len(chkString) Wend chkString = Left(chkString, sNum) if Right(chkString, 1) = " " Then chkString = Left(chkString, sNum - 1) End if if Len(chkString) <> strTot Then chkString = chkString & "..." CropIt = chkString End if End function %> <% Function SendMail(comp, mailserv, fromname, fromemail, toname, toemail, subject, body) Dim myMail On Error Resume Next Select Case comp Case 1 'ASPMail Set myMail = Server.CreateObject("SMTPsvg.Mailer") myMail.FromName = fromname myMail.FromAddress = fromemail myMail.ContentType = strcontent myMail.Priority = strpriority myMail.ReturnReceipt= strreceipt myMail.RemoteHost = mailserv myMail.AddRecipient toname, toemail myMail.Subject = subject myMail.BodyText = body myMail.SendMail Case 2 'ASPEmail Set myMail = CreateObject("Persits.MailSender") myMail.From = fromemail myMail.FromName = fromname myMail.IsHTML = strcontent myMail.Priority = strpriority myMail.Host = mailserv myMail.AddAddress toemail myMail.Subject = subject myMail.Body = body myMail.Send Case 3 'CDONTS Set myMail = server.CreateObject("CDONTS.NewMail") myMail.To = toemail myMail.Value("Reply-To") = fromemail myMail.From = fromemail myMail.Subject = subject myMail.MailFormat = strcontent myMail.BodyFormat = strcontent myMail.Importance = strpriority myMail.Body = body myMail.Send Case 10 'CDOSYS Set myMail = Server.CreateObject("CDO.Message") myMail.From = fromemail myMail.To = toemail myMail.Subject = subject myMail.HTMLBody = body myMail.Send Case 4 ' Dynu Email Set myMail = Server.CreateObject("Dynu.Email") myMail.isHTML = True myMail.Smtp = mailserv result = myMail.Send(fromemail, toemail, subject, body) Case 5 'W3 JMail 4.1 set myMail = Server.CreateOBject( "JMail.Message" ) myMail.Logging = true myMail.silent = true myMail.From = fromemail myMail.FromName = fromname myMail.AddRecipient toemail, toname myMail.Subject = subject myMail.Body = body SendMail = myMail.Send(mailserv) Case 6 'W3 JMail 4.1 HTML Set myMail = Server.CreateObject("JMail.Message") myMail.AddRecipient toemail, toname myMail.From = fromemail myMail.Body = "Sorry, you cannot read HTML." myMail.Subject = subject myMail.HTMLBody = body SendMail = myMail.Send(mailserv) Case 7 'Simple Mail Set myMail = Server.CreateObject("ADISCON.SimpleMail.1") myMail.MailServer = mailserv myMail.Sender = fromemail myMail.Recipient = toemail myMail.Subject = subject myMail.MessageText = body call myMail.Send Case 8 'OCXMail set myMail = Server.CreateObject("ASPMail.ASPMailCtrl.1") result = myMail.SendMail(mailserv, toemail, fromemail, subject, body) Case 9 'VSMail 1.x Set myMail = CreateObject("VSEmail.SMTPSendMail") myMail.Host = mailserv myMail.From = fromname & " < " & fromemail & " >" myMail.SendTo = toemail myMail.Subject = subject myMail.Body = body myMail.Connect myMail.Send End Select Set myMail = Nothing If Err Then SendMail = False Else SendMail = True End If End Function %> <% '#################################### '## Application: Blue-Collar Productions '## File Name: lang_global.inc (Language File) '## File Version: i-Gallery '## Notice: This code has limited warranties. Please see http://www.b-cp.com for details. '#################################### %> <% '## Global Settings ## '## editimage.asp, logs.asp, system.asp, upload.asp & users.asp CONST IG_timeout = "Your login session will timeout in 2 minutes. To continue your current session, please navigate to a new page." '## header.asp CONST IGhead_homep = "i-Gallery Home Page" CONST IGhead_lgoff = "Log Off" CONST IGhead_lgon = "Log On" '## menu.asp CONST IGmenu_spo = "Submit Photo(s) Online" CONST IGmenu_subfrm = "Submission Form" CONST IGmenu_ua = "User Administration" CONST IGmenu_anu = "Add New User" CONST IGmenu_mu = "Manage User(s)" CONST IGmenu_ulf = "User(s) Log Files" CONST IGmenu_smngt = "System Management" CONST IGmenu_smaint = "System Maintenance" CONST IGmenu_candr = "Compact & Repair Database" CONST IGmenu_mb = "MESSAGE BOARD" '## searchform.asp CONST IGsform_sg = "Search Gallery" CONST IGsform_but = "GO" CONST IGsform_xm = "Exact Match" '## footer.asp CONST IGfoot_his1 = "Within 7 Days" CONST IGfoot_his2 = "14 Days" CONST IGfoot_his3 = "21 Days" CONST IGfoot_pb = "Powered By" %> <% '#################################### '## Application: Blue-Collar Productions '## File Name: lang_submitphotos.inc (Language File) '## File Version: i-Gallery '## Notice: This code has limited warranties. Please see http://www.b-cp.com for details. '#################################### %> <% '## submitphotos.asp CONST IGsp_mail1 = "i-Gallery Photo Administrator" CONST IGsp_mail2 = "i-Gallery - New Photo Submission" CONST IGsp_mail3 = "A new photo has been forwarded to you for possible inclusion in the gallery.  The image is attached for your convenience." CONST IGsp_msg1 = "Greetings" CONST IGsp_msg2 = "The photo you attached has been successfully emailed to us.  Thank you for your submission.  We will review your photo and if valid we will consider it for inclusion in our gallery.  Click Here to return to the main gallery." CONST IGsp_msg3 = "Best Regards" CONST IGsp_msg4 = "Photo Administrator" CONST IGsp_err1 = "ERROR" CONST IGsp_err2 = "The ""Photo Submission"" form was NOT sent successfully.  We could be experiencing temporary server problems.  Please try again at a later time." CONST IGsp_err3 = "The ""Photo Submission"" form was NOT sent successfully.  The photo you attempted to email us exceeds the maximum allowed upload size of" CONST IGsp_err4 = "The email process has been terminated." CONST IGsp_err5 = "Best Regards" CONST IGsp_err6 = "Photo Administrator" CONST IGsp_alrt1 = "The \""File Attachment\"" field is required! Please select an image attachment by clicking on the browse button." CONST IGsp_alrt2 = "The \""File Type\"" you have requested is not allowed! Supported file types are:" CONST IGsp_alrt3 = "The \""Your Name\"" field was left empty! This is a required field when submitting photo entries." CONST IGsp_alrt4 = "The \""Your Email Address\"" field contains an invalid email address or the field was left blank." CONST IGsp_titl = "Photo Submission" CONST IGsp_admsg1 = "Almost Done!" CONST IGsp_admsg2 = "Review the information you submitted below for accuracy and if all looks good click on the ""Browse"" button to attach your photo.  If not you can click on the ""«« Step One"" button to make corrections then resubmit.  When your ready click on the "'Submit Photo!"" button and your image will be processed for review!" CONST IGsp_frml = "Your Name" CONST IGsp_frm2 = "Email Address" CONST IGsp_frm3 = "Description" CONST IGsp_frm3a = "No description available!" CONST IGsp_step2 = "Step Two" CONST IGsp_frm4 = "Attach Photo" CONST IGsp_frm4a = "Maximum Upload Size" CONST IGsp_but1 = "Submit Photo!" CONST IGsp_but2 = "«« Step One" CONST IGsp_but3 = "Step Two »»" CONST IGsp_pnmsg1 = "Please Note" CONST IGsp_pnmsg2 = "Your are about to email a photo to the gallery administrator. The image you are attaching to your email may not exceed" CONST IGsp_pnmsg3 = "in size. Please check the size of your photo before continuing to avoid any processing delays." CONST IGsp_opnmsg1 = "Would you like your photo(s) to appear in our online photo gallery?  Use the form below to submit them to us for possible inclusion.  Please make sure that your photos do not exceed our maximum allowed size of" CONST IGsp_opnmsg2 = "We look forward to viewing your photos!" CONST IGsp_step1 = "Step One" CONST IGsp_frm5 = "Your Name" CONST IGsp_frm6 = "E-Mail Address" CONST IGsp_frm7 = "Brief Photo Description" CONST IGsp_frm7a = "Optional Field!  200 Character Max." CONST IGsp_req = "Required Field!" CONST IGsp_max = "Max Char." CONST IGsp_xtra = "Please Note:
When you use our ""Photo Submission"" page, we ask for your name and email address.  This information is only used to send your message and is not stored by our Web for any other purpose nor is it shared with any outside parties.  For more information please review our privacy policy." CONST IGsp_apperr = "The Email application you have picked in the system set-up does not support this page!" %> <% Function SendPhoto(comp, mailserv, fromname, fromemail, toname, toemail, subject, image, body) Dim myMail On Error Resume Next Select Case comp Case 1 'ASPMail Set myMail = Server.CreateObject("SMTPsvg.Mailer") myMail.FromName = fromname myMail.FromAddress = fromemail myMail.ContentType = strcontent myMail.Priority = strpriority myMail.ReturnReceipt= strreceipt myMail.RemoteHost = mailserv myMail.AddRecipient toname, toemail myMail.Subject = subject myMail.AddAttachment image myMail.BodyText = body myMail.SendPhoto Case 2 'ASPEmail Set myMail = CreateObject("Persits.MailSender") myMail.From = fromemail myMail.FromName = fromname myMail.IsHTML = strcontent myMail.Priority = strpriority myMail.Host = mailserv myMail.AddAddress toemail myMail.Subject = subject myMail.AddAttachment image myMail.Body = body myMail.Send Case 3 'CDONTS Set myMail = server.CreateObject("CDONTS.NewMail") myMail.To = toemail myMail.Value("Reply-To") = fromemail myMail.From = fromemail myMail.Subject = subject myMail.AttachFile image myMail.MailFormat = strcontent myMail.BodyFormat = strcontent myMail.Importance = strpriority myMail.Body = body myMail.Send Case 10 'CDOSYS Set myMail = Server.CreateObject("CDO.Message") myMail.To = toemail myMail.From = fromemail myMail.Subject = subject myMail.HTMLBody = body myMail.AddAttachment image myMail.Fields("urn:schemas:httpmail:importance").Value = strpriority myMail.Fields.Update() myMail.Send() End Select Set myMail = Nothing If Err Then SendPhoto = False Else SendPhoto = True End If End Function %> <% Private Function FormatImageSize(intFileSize) const DecimalPlaces = 1 const FileSizeBytes = 1 const FileSizeKiloByte = 1024 const FileSizeMegaByte = 1048576 const FileSizeGigaByte = 1073741824 const FileSizeTeraByte = 1099511627776 Dim strFileSize, newFilesize If (Int(intFileSize / FileSizeTeraByte) <> 0) Then newFilesize = Round(intFileSize / FileSizeTeraByte, DecimalPlaces) strFileSize = newFilesize & " TB" ElseIf (Int(intFileSize / FileSizeGigaByte) <> 0) Then newFilesize = Round(intFileSize / FileSizeGigaByte, DecimalPlaces) strFileSize = newFilesize & " GB" ElseIf (Int(intFileSize / FileSizeMegaByte) <> 0) Then newFilesize = Round(intFileSize / FileSizeMegaByte, DecimalPlaces) strFileSize = newFilesize & " MB" ElseIf (Int(intFileSize / FileSizeKiloByte) <> 0) Then newFilesize = Round(intFileSize / FileSizeKiloByte, DecimalPlaces) strFileSize = newFilesize & " KB" ElseIf (Int(intFileSize / FileSizeBytes) <> 0) Then newFilesize = intFilesize strFileSize = newFilesize & " Bytes" ElseIf Int(intFileSize) = 0 Then strFilesize = 0 & " Bytes" End If FormatImageSize = strFileSize End Function %> <% mode = Request.Querystring("mode") If mode = "send" then '###### Temp Write For Image Attachment ###### ForWriting = 2 adLongVarChar = 201 lngNumberUploaded = 0 noBytes = Request.TotalBytes binData = Request.BinaryRead (noBytes) Set RST = CreateObject("ADODB.Recordset") LenBinary = LenB(binData) If LenBinary > 0 then RST.Fields.Append "myBinary", adLongVarChar, LenBinary RST.Open RST.AddNew RST("myBinary").AppendChunk BinData RST.Update strDataWhole = RST("myBinary") End If strBoundry = Request.ServerVariables ("HTTP_CONTENT_TYPE") lngBoundryPos = instr(1,strBoundry,"boundary=") + 8 strBoundry = "--" & right(strBoundry,len(strBoundry)-lngBoundryPos) lngCurrentBegin = instr(1,strDataWhole,strBoundry) lngCurrentEnd = instr(lngCurrentBegin + 1,strDataWhole,strBoundry) - 1 Do While lngCurrentEnd > 0 strData = mid(strDataWhole,lngCurrentBegin, lngCurrentEnd - lngCurrentBegin) strDataWhole = replace(strDataWhole,strData,"") lngBeginFileName = instr(1,strdata,"filename=") + 10 lngEndFileName = instr(lngBeginFileName,strData,chr(34)) strFilename = mid(strData,lngBeginFileName,lngEndFileName - lngBeginFileName) tmpLng = instr(1,strFilename,"\") Do While tmpLng > 0 PrevPos = tmpLng tmpLng = instr(PrevPos + 1,strFilename,"\") Loop FileName = right(strFilename,len(strFileName) - PrevPos) lngCT = instr(1,strData,"Content-Type:") If lngCT > 0 then lngBeginPos = instr(lngCT,strData,chr(13) & chr(10)) + 4 Else lngBeginPos = lngEndFileName End If lngEndPos = len(strData) lngDataLenth = lngEndPos - lngBeginPos strFileData = mid(strData,lngBeginPos,lngDataLenth) Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.OpenTextFile(UploadPath & "\" & FileName, ForWriting, True) f.Write strFileData Dim ThisFile ThisFile = UploadPath & "\" & FileName lngNumberUploaded = lngNumberUploaded + 1 Set f = Nothing lngCurrentBegin = instr(1,strDataWhole,strBoundry) lngCurrentEnd = instr(lngCurrentBegin + 1,strDataWhole,strBoundry) - 1 Loop '###### Check For Max Upload Breach ###### MaxSize = MaxUploadSize Set f = fso.GetFile(ThisFile) FileSize = f.size If FileSize <= MaxSize Then '###### Email Image ###### emailapp = EmailApp emailserver = MailServer fromname = Request.Querystring("fn") fromaddress = Request.Querystring("fa") toname = IGsp_mail1 toemail = MailAddress image = ThisFile photodesc = Request.Querystring("desc") strsubject = IGsp_mail2 strmessage = "" & vbCrLf strmessage = strmessage & "" & vbCrLf strmessage = strmessage & "" & vbCrLf strmessage = strmessage & IGsp_mail1&",

" & vbCrLf strmessage = strmessage & IGsp_mail3&"

" & vbCrLf If photodesc <> "" Then strmessage = strmessage & "

Photo Description:
" & vbCrLf strmessage = strmessage & photodesc & vbCrLf End If strmessage = strmessage & "
" & vbCrLf strmessage = strmessage & "" & vbCrLf strmessage = strmessage & "" & vbCrLf '###### Fill In The Blanks ###### If emailapp = "1" then strcontent = "text/html" ElseIf emailapp = "2" or emailapp = "4" then strcontent = True ElseIf emailapp = "3" then strcontent = "0" End If If emailapp = "1" then strreceipt = False End If If emailapp = "1" or emailapp = "2" then strpriority = "3" ElseIf emailapp = "3" then strpriority = "1" End If subject = strsubject body = strmessage '###### Send Email, Success and Failure Messages ###### If SendPhoto(emailapp, emailserver, fromname, fromaddress, toname, toemail, subject, image, body) Then Msg = "" & vbCrLf Msg = Msg & IGsp_msg1&" "&fromname&"," & vbCrLf Msg = Msg & "

" & vbCrLf Msg = Msg & IGsp_msg2 & vbCrLf Msg = Msg & "

"&IGsp_msg3&"," & vbCrLf Msg = Msg & "
"& IGsp_msg4 & vbCrLf Msg = Msg & "
" & vbCrLf Else msg = ""&IGsp_err1&"!

"& IGsp_err2 & vbCrLf msg = msg & "

" & vbCrLf msg = msg & ""&IGsp_err1&": "&Err.Description&"" & vbCrLf Msg = Msg & "

"&IGsp_err5&"," & vbCrLf Msg = Msg & "
"&IGsp_err6 & vbCrLf Msg = Msg & "
" & vbCrLf End If Else msg = ""&IGsp_err1&"!

"&IGsp_err3&" ["&FormatImageSize(MaxSize)&"]. "&IGsp_err4 & vbCrLf Msg = Msg & "

"&IGsp_err5&"," & vbCrLf Msg = Msg & "
"&IGsp_err6 & vbCrLf Msg = Msg & "
" & vbCrLf End If fso.DeleteFile ThisFile Set fso = nothing End If %> .:: <%= GalleryVersion %> Submit Photos ::.
<% '#################################### 'i-Gallery LOGO; 'I don't mind if you remove the header but if you intend to use i-Gallery on your site please 'provide a link back to the software on the pages powered by i-Gallery. Thanks for all your 'support! '#################################### %>
Home   Facebook   Gallery   Info   Signup   FAQ   Contact Us
  <%= FormatDateTime(igalleryNow,1) %>
<% If Session("userLevel") = "99" OR Session("userLevel") = "98" Then %> <%= IGhead_lgoff %>
<% Else %> &d=<%= URLSpace(Request("d")) %>" onMouseOver="document.sbtnon.src='images/sm-logon2.gif'" onMouseOut="document.sbtnon.src='images/sm-logon1.gif'"><%= IGhead_lgon %>
<% End If %>
<% '#################################### '## Application: Blue-Collar Productions '## File Name: menu.asp '## File Version: 4.0 '## Copyright: This code is copyrighted and has limited warranties. Please see http://www.b-cp.com for details. '#################################### %>
<%= GalleryName %>

<% On Error Resume Next folderc = 0 For Each fn1 In FileList folderc = folderc +1 Next currentf = 1 For Each fn In FileList If NOT LCase(fn.Name) = "_vti_cnf" Then ' Hide Front Page "_vti_cnf" Folder In Menu If Request("D") Then String1 = LCase(Request("D")) Else String1 = "\"&LCase(Replace(Request("folder"),"/","\"))&"\" End If String2 = "\"&LCase(fn.Name)&"\" If InStr(String1,String2)>0 Then ShowFolder = True Else ShowFolder = False End if If len(fn.Name) > 30 Then FolderName = Left(fn.Name,30)&"..." Else FolderName = fn.Name End if Directory = fn Directory = Replace(LCase(Directory),LCase(UploadPath),"") Directory = URLSpace(Directory) %> <% End If currentf = currentf + 1 Next %>
<%= FolderName %>

[an error occurred while processing this directive]
<% If Anonymous Then %>
<%= IGmenu_spo %>:
<% If Request("mi") = "1" Then %> <% Else %> <% End If %>
<%= IGmenu_subfrm %>
<% End If %> <% If Session("userLevel") = "99" Then %>
<%= IGmenu_ua %>:
<% If Request("mi") = "2" Then %> <% Else %> <% End If %> <% If Request("mi") = "3" Then %> <% Else %> <% End If %> <% If Request("mi") = "4" Then %> <% Else %> <% End If %>
<%= IGmenu_anu %>
<%= IGmenu_mu %>
<%= IGmenu_ulf %>

<%= IGmenu_smngt %>:
<% If Request("mi") = "5" Then %> <% Else %> <% End If %> <% If Request("mi") = "6" Then %> <% Else %> <% End If %>
<%= IGmenu_smaint %>
<%= IGmenu_candr %>

<% If MessageBoard Then %>
 <%= IGmenu_mb %>
<% End If %> <% End If %>
<%= IGsp_titl %>

<% If EmailApp = "1" OR EmailApp = "2" OR EmailApp = "3" OR EmailApp = "10" Then %> <% If mode = "send" then %> <%= msg %> <% ElseIf mode = "attach" Then %> <%= IGsp_admsg1 %>

<%= IGsp_admsg2 %>


<% fromname = Request("sname") fromaddress = Request("semail") photodescription = Request("smessage") If photodescription <> "" Then photodescription = photodescription Else photodescription = IGsp_frm3a End If %>
<%= IGsp_frml %>:  <%= fromname %>
<%= IGsp_frm2 %>:  <%= fromaddress %>
<%= IGsp_frm3 %>:  <%= photodescription %>

<%= IGsp_step2 %>:
<%= IGsp_frm4 %>: 
<%= IGsp_frm4a %>: <%= FormatImageSize(MaxUploadSize) %>
<%= IGsp_pnmsg1 %>:
<%= IGsp_pnmsg2 %> <%= FormatImageSize(MaxUploadSize) %> <%= IGsp_pnmsg3 %>
<% Else %> <%= IGsp_opnmsg1 %> [<%= FormatImageSize(MaxUploadSize) %>]. <%= IGsp_opnmsg2 %>


<%= IGsp_step1 %>:
<%= IGsp_frm5 %>:  
<%= IGsp_req %>
<%= IGsp_frm6 %>:  
<%= IGsp_req %>
<%= IGsp_frm7 %>:
<%= IGsp_max %>: 

<%= IGsp_frm7a %>
<%= IGsp_xtra %>
<% End If %> <% Else %> <%= IGsp_apperr %> <% End If %>
Not sure about signing up just yet? Join our Mailing List and stay informed.
Tell A Friend   /   Suggestions   /  Link Our Banner     Email: 


To be removed from our Mailing List ClickHere.

Hosted & Designed By the GSP NETWORK. A Global Star Production All Rights Reserved. Copyrighted 2007