<%
strAccessLevel = session("AccessLevel")
strUserName2 = session("UserName")
if strAccessLevel <> "1" then
' Create a recordset object to store specific table information
Set objLogin = Server.CreateObject("ADODB.Recordset")
'Establish what records you want selected for the SQL query string
SQL = "Select * From TblLogin where (UserName = '" + strUserName2 + "')"
'Set the recordset object equal to the SQL query string
objLogin.Open SQL, objADO, 1, 3
strCustomerEmail = objLogin("EmailAddress")
else
strCustomerEmail = Request("CustomerEmail")
end if
if strAccessLevel = "1" then
strImpPur = Request("cboImpPur")
strImpPur = Replace(strImpPur," ","")
else
strImpPur = session("Impressions")
end if
strStatus = "Show"
strStartDate = Request("StartDate")
strImpNow = "0"
strClicksNow = "0"
strImgUrl = Request("ImgUrl")
strSizeOf1 = "468"
strSizeOf2 = "60"
strLinkTo = Request("LinkTo")
strTextUnder = Request("TextUnder")
strTextUnder = Replace(strTextUnder,"'","`")
strBannerName = Request("BannerName")
If Request.form <> "" Then
if strBannerName = "" or strCustomerEmail = "" or strStartDate = "" or strImgUrl = "" or strLinkTo = "" then
strWarningErrMsg = "
Fields marked with an * are required."
end if
if strWarningErrMsg = "" then
' Create a recordset object to store specific table information
Set conn = Server.CreateObject("ADODB.Recordset")
'Establish what records you want selected for the SQL query string
SQL = "Select * From Clients"
'Set the recordset object equal to the SQL query string
conn.Open SQL, objADO, 1, 3
end if
if strWarningErrMsg = "" then
conn.addnew
conn("BannerName") = strBannerName
conn("CustomerEmail") = strCustomerEmail
conn("Status") = strStatus
conn("ImpPur") = strImpPur
conn("ImpNow") = strImpNow
conn("ClicksNow") = strClicksNow
conn("StartDate") = strStartDate
conn("ImgUrl") = strImgUrl
conn("LinkTo") = strLinkTo
conn("Sizeof1") = strSizeOf1
conn("Sizeof2") = strSizeOf2
conn("TextUnder") = strTextUnder
conn("UserName") = strUserName2
Conn.update
Response.Redirect "bannersaved.asp?Id=" & conn("AdId")
end if
end if
%>
ADD NEW BANNER
<% if strWarningErrMsg <> "" then %>
| Error(s):<%= strwarningErrMsg %>
|
<% end if %>
Fill out the following form to add a new banner to the rotation.
All fields are required.