" & _ "" & _ "Success! Your newsletter has been sent via "&mailComp&"!

" End Sub Sub showNewAdmin %>

<% Set rsNAdmin = Server.CreateObject("ADODB.Recordset") rsNAdmin.Open "admin", objConnAdmin, 0, 3, &H0002 If Not rsNAdmin.EOF Then Do While Not rsNADmin.EOF %> <% rsNAdmin.MoveNext Loop End If rsNAdmin.Close Set rsNAdmin = Nothing %>

<%= " "&msg&"

" %> List of Admins

<%= rsNAdmin("name") %> ">Delete

<% End Sub Sub addAdmin strNwnm = Trim(Request.Form("nwnm")) strNwpwd = Trim(Request.Form("nwpwd")) Set rsAdmin = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT * FROM admin WHERE name= '"&strNwnm&"'" rsAdmin.Open strSQL, objConnAdmin, 0, 3, &H0001 If Not rsAdmin.EOF Then Response.Write "There is already an Admin with this name: "&rsAdmin("name")&"" Else strSQL = "INSERT INTO admin ([name],[pwd]) VALUES ('"&strNwnm&"','"&strNwpwd&"')" objConnAdmin.Execute strSQL Response.Write ""&strNwnm&" Has been added." End If rsAdmin.Close Set rsAdmin = Nothing End Sub Sub showAdminPwd %>

Login Name:

Password:

<% End Sub Sub changePwd Set rsAdmin = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT * FROM admin WHERE pwd = '"&Request.Cookies("Admin")("pwd")&"'" rsAdmin.Open strSQL, objConnAdmin, 3, 3, &H0001 If NOT rsAdmin.EOF Then rsAdmin("name") = Request.Form("cname") rsAdmin("pwd") = Request.Form("cpwd") rsAdmin.Update Response.Cookies("Admin")("name") = rsAdmin("name") Response.Cookies("Admin")("pwd") = rsAdmin("pwd") Response.Redirect "mail.asp" End If rsAdmin.Close Set rsAdmin = Nothing End Sub Sub showDelete %> Select an address/es to delete *WARNING* This cannot be undone...This is your only warning

<% selectEmailAddy %>

<% End Sub Sub deleteAddy strEmail = Trim(Request.Form("email")) strSplitEmail = Split(strEmail,",") For Each strItem in strSplitEmail Response.Write Trim(strItem) strSQL = "DELETE * FROM newsLetter WHERE email = '"&Trim(strItem)&"'" objConn.Execute strSQL Next End Sub Sub showAddress %>

Email Address:

<% End Sub Sub addAddress Set rsAdd = objConn.Execute("SELECT * FROM newsLetter WHERE email = '"&Trim(Request.Form("email"))&"'") If Not rsAdd.EOF Then Response.Write "The Email Address: "&Trim(Request.Form("email"))&" is already in the database!" Else strSQL = "INSERT INTO newsLetter ([email],[Date],[confirm]) Values('"&Trim(Request.Form("email"))&"','"&Date&"','yes')" objConn.Execute strSQL Response.Write "
"&vbcrlf Response.Write " "&vbcrlf Response.Write " You have successfully added "&Trim(Request.Form("email"))&" to the database!"&vbcrlf Response.Write " "&vbcrlf Response.Write "
"&vbcrlf End If rsAdd.Close Set rsAdd = Nothing End Sub Sub showImage %>

<% Set UploadProgress = Server.CreateObject("Persits.UploadProgress") PID = "PID=" & UploadProgress.CreateProgressID() barref = "framebar.asp?to=10&" & PID %> <% Set objFSO = CreateObject("Scripting.FileSystemObject") If Not objFSO.FolderExists(strSaveFile) Then objFSO.CreateFolder(strSaveFile) End If strPathInfo = strSaveFile Set objFolder = objFSO.GetFolder(strPathInfo) Set objFolderContents = objFolder.Files Bgcolor = "#ffffff" counter = 0 intCounter = 0 %>
<% For each objFileItem In objFolderContents If objFileItem.Name <> "Thumbs.db" Then counter = counter + 1 If Bgcolor = "lightblue" Then Bgcolor = "white" Else Bgcolor = "lightblue" End if %> <% End If Next %>
<%= counter %>. <%= objFileItem.Name %> <%= ConvBytes(objFileItem.Size) %>

http://<%= strDomain&strDir %>images/<%= Replace(objFileItem.Name," ","%20") %>

<% Response.Write "" & Request.QueryString("msg") & ""%>

File 1:

File 2:

File 3:

File 4:

File 5:

<% End Sub Function fileExt(s) fileExt = Right(s,Len(s)-(inStrRev(s,"\",-1,1))) End Function Function ConvBytes(TBytes) Dim inSize, isType Const lnBYTE = 1 Const lnKILO = 1024 ' 2^10 Const lnMEGA = 1048576 ' 2^20 Const lnGIGA = 1073741824 ' 2^30 Const lnTERA = 1099511627776 If TBytes < 0 Then Exit Function If TBytes < lnKILO Then ' ByteConversion inSize = TBytes isType = "bytes" Else If TBytes < lnMEGA Then ' KiloByte Conversion inSize = (TBytes / lnKILO) isType = "kb" ElseIf TBytes < lnGIGA Then ' MegaByte Conversion inSize = (TBytes / lnMEGA) isType = "mb" ElseIf TBytes < lnTERA Then ' GigaByte Conversion inSize = (TBytes / lnGIGA) isType = "gb" Else ' TeraByte Conversion inSize = (TBytes / lnTERA) isType = "tb" End If End If ' format number to 2 decimal places inSize = FormatNumber(inSize,2) ' Return the results ConvBytes = inSize & " " & isType End Function %>