<%= strText_Home %>::<%= strText_Advertisewithus %>

<% templateName = "Advertisement" setLocale server_locale set rs = objConn.Execute("SELECT " & tablPfx & "Template.body FROM " & tablPfx & "Template WHERE tname='" & templateName & "';") If not rs.EOF then body = rs(0) rs.close If CStr(session("user_logged_ID" & strSUnique)) = Empty then %>

<%= body %>

<%= strText_Apply1 %><%= strText_Create %> <%= strText_Apply2 %>

<% Else Select Case session("banner_upload" & strSUnique) Case Empty %>

	<%= body %>

<% If isnotfree then %>

<% If ppArray(17) = 1 then %> <% End If If ppArray(18) = 1 then %> <% End If If ppArray(22) = 1 then sid = ppArray(23) %> <% End If %>

<%= strText_PayInvoice %>:
<%= strText_EnterAmountInvoice %>:
<%= strText_Giveadescription %>:

<%= strText_Enteramount %>:
<%= strText_Giveadescription %>:

<%= strText_Enteramount %>:
<%= strText_Giveadescription %>:

<% End If %>

<%= strText_dailystatistics %>

<%= strText_RotatorStatistics %>

<%= strText_preliminaryorder %>

<%= strText_Step %> 1

<%= strText_BannerStep1 %>
<%= strText_BannerStep1a %>

<% Case "finished" session("banner_upload" & strSUnique) = Empty %>

<%= strText_ThankYou %>

<% Case else bRun = "dur" bName = sq(session("banner_upload" & strSUnique)) If Request.Form("flag") = 1 then email = sq(CryptText(session("user_logged_email" & strSUnique), key, False)) bSite = sqbl(Request.Form("T1")) bAlt = sqbl(Request.Form("T2")) bURL = sq(Request.Form("T3")) bRun = Request.Form("R1") impressions = Request.Form("D2") dur = Request.Form("D1") If bSite = Empty Or bAlt = Empty Or bURL = Empty then Response.Write "

" & strText_requiredfield & "

" Else Select Case bRun Case "dur" bImpr = 0 bExpire = Date + dur Case "impr" bExpire = Date + 100000 bImpr = impressions End Select sdd = dd(objConn) bExpire = ConvDateShort(bExpire) strSQL = "INSERT INTO " & tablPfx & "Banner(status,bname,site,URL,altText,pdate,edate,impr,email) " strSQL = strSQL & "VALUES (0,'" & bName & "','" & bSite & "','" & bURL & "','" & bAlt & "'," strSQL = strSQL & sdd & ConvDateShort(Date) & sdd & "," & sdd & bExpire & sdd & "," & bImpr & ",'" & email & "');" objConn.Execute(strSQL) strSQL = "INSERT INTO " & tablPfx & "Bannerstat(bname,adate,display,click) VALUES('" & bName & "'," & sdd & ConvDateShort(Date) & sdd & ",0,0);" objConn.Execute(strSQL) Call sendEmail(admin_email, notify_email, web_name & "- New Banner Submission", "You've got a new banner submission from user " & session("user_logged_nick" & strSUnique) & "
( " & session("user_logged_email" & strSUnique) & " ). Please respond." & vbCrLf & vbCrLf & web_site & "admin_logon.asp") session("banner_upload" & strSUnique) = "finished" Response.Redirect "advertise.asp" End If End If %>

<%= strText_Step %> 2

<%= strText_BannerStep2 %>

<%= strText_YourSiteName %>:	<%= strText_MaxLength %>
<%= strText_BannerAltText %>:	<%= strText_MaxLength %>
<%= strText_SiteURLAddress %>:
<%= strText_BannerStep2a %>
<%= strText_Duration %>:		>- <%= strText_UseDuration %>
<%= strText_Impressions %>:		>- <%= strText_UseImpressions %>

<% End Select %> <% End If %>