/asp/freeapps/linkmentor/admin_site.asp
<!--#include file="admin_includelogin.asp"-->
<!--#include file="inclink.asp"-->
<%
Dim oConn
Set oConn = IncLink_GetDatabaseConn()
Dim oRS
If Request.QueryString("save")="yes" Then
Set oRS = Server.CreateObject("ADODB.Recordset")
Dim sID
sID = Request.QueryString("fldAuto")
If sID = "" Then
sID = 0
Else
sID = CInt( sID)
End If
oRS.Open "select * from " & FAQ_GetTablePrefix() & "ref_site where id = " & sID, oConn, 1, 3
Select Case Request.QueryString("action")
Case "new"
oRS.AddNew
oRS("sitename") = Request.Form("sitename")
oRS("sitedescription") = Request.Form("sitedescription")
oRS("bannerurl") = Request.Form("bannerurl")
oRS("outcount") = Request.Form("outcount")
If Request.Form("firstordering") = "" Then
oRS("firstordering") = 0
Else
oRS("firstordering") = Request.Form("firstordering")
End If
oRS("outurl") = Request.Form("outurl")
Case "edit"
oRS("sitename") = Request.Form("sitename")
oRS("sitedescription") = Request.Form("sitedescription")
oRS("bannerurl") = Request.Form("bannerurl")
oRS("outcount") = Request.Form("outcount")
If Request.Form("firstordering") = "" Then
oRS("firstordering") = 0
Else
oRS("firstordering") = Request.Form("firstordering")
End If
oRS("outurl") = Request.Form("outurl")
Case "del"
oRS.Delete
End Select
oRS.Update
oRS.Close
Set oRS = Nothing
oConn.Close
Set oConn = Nothing
Response.Redirect "admin_default.asp"
End If
%>
<html>
<head>
<%
''''''''''' (C) Stefan Holmberg 1999
''''''''''' Free to use if these sourcecode lines is not deleted
''''''''''' Contact me at webmaster@sqlexperts.com
''''''''''' http://www.sqlexperts.com
''''''''''' AdMentor homepage at http://www.create-a-webshop.com
Dim id, sitename, sitedescription, bannerurl
Dim outurl, outcount, firstordering
If Request.QueryString("action") = "edit" Then
Dim oRS2
Set oRS2 = oConn.Execute( "select * from " & FAQ_GetTablePrefix() & "ref_site where id = " & Request.QueryString("fldAuto") )
id = oRS2("id")
sitename = oRS2("sitename")
sitedescription = oRS2("sitedescription")
bannerurl = oRS2("bannerurl")
outurl = oRS2("outurl")
outcount = oRS2("outcount")
firstordering = oRS2("firstordering")
oRS2.Close
Set oRS2 = Nothing
Else
End If
oConn.Close
Set oConn = Nothing
%>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>PostcardMentor - Admin interface</title>
<style type="text/css">
<!--
body { font-family: Arial, Geneva, Helvetica, Verdana; font-size: smaller; color: #000000}
td { font-family: Arial, Geneva, Helvetica, Verdana; font-size: smaller; color: #000000}
th { font-family: Arial, Geneva, Helvetica, Verdana; font-size: smaller; color: #000000}
A:link {text-decoration: none;}
A:visited {text-decoration: none;}
A:hover {text-decoration: underline;}
-->
</style>
</head>
<body>
<table align="center" bgColor="#ECECD9" border="0" cellPadding="3" cellSpacing="0" height="100%" width="100%">
<tbody>
<tr>
<td vAlign="top" width="50%" height="60">
<b><a href="http://www.aspcode.net"><font face="verdana,arial,helvetica" size="1">http://www.aspcode.net</font></a></b>
</td>
<td vAlign="top" width="468" height="60">
<b><font face="verdana,arial,helvetica" size="+2">Admin
interface</font></b>
<table border="0" width="100%">
<tr>
<td width="50%">
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="100%" vAlign="top" width="100%" colspan="2">
<table align="center" bgColor="#ffffff" border="0" cellPadding="0" cellSpacing="0" height="100%" width="100%">
<tbody>
<tr>
<td height="100%" vAlign="top" width="85%">
<table bgColor="#ffffff" border="0" cellPadding="10" cellSpacing="0" height="100%" width="100%">
<tbody>
<tr>
<td align="left" height="100%" vAlign="top" width="65%">
<table border="0" width="100%">
<tr>
<td width="50%"><b><font color="#aa3333" face="verdana,arial,helvetica" size="4">LinkMentor <%=Session("fullname")%></font></b>
</td>
<td width="50%">
<%=FAQ_GetAd(1)
%>
</td>
</tr>
</table>
<hr color="#000066" noShade SIZE="1">
<p><font size="+1"></font></p>
<table border="0" width="100%">
<tr>
<td width="70%">
<p align="left"><b>Site</b><br>
<%
Dim sURL
sURL = "admin_site.asp?save=yes&action=" & Request.QueryString("action")
sURL = sURL & "&fldAuto=" & Request.QueryString("fldAuto")
%>
<form method="POST" action="<%=sURL%>">
<p align="left">Name: <input type="text" name="sitename" size="40" value="<%=sitename%>"></p>
<p align="left">Site url: <input type="text" name="outurl" size="20" value="<%=outurl%>"></p>
<p align="left">Description:<textarea rows="4" name="sitedescription" cols="35"><%=sitedescription%></textarea></p>
<p align="left">Banner url: <input type="text" name="bannerurl" size="20" value="<%=bannerurl%>">
( url to picture - leave blank if none )</p>
<p align="left">Out hits: <input type="text" name="outcount" size="20" value="<%=outcount%>">
( NUMERIC- REQUIRED )</p>
<p align="left">Firstordering: <input type="text" name="firstordering" size="20" value="<%=firstordering%>">
( NUMERIC - REQUIRED ) Higher value means it will be
shown on first pages. </p>
<p align="left"> </p>
<p align="left"><input type="submit" value="Submit" name="B1"></p>
</form>
<p><font face="helvetica, arial" size="2">LinkMentor is
developed by <a href="http://www.aspcode.net">ASPCode.net</a>. Usage of it is totally free.</font></p>
<br>
<table border="0" width="100%">
<tr>
<td width="50%">
<%=FAQ_GetAd(3)
%>
</td>
<td width="50%">
<%=FAQ_GetAd(2)
%>
</td>
</tr>
</table>
</tr>
<tr>
<td width="70%">
</td>
</tr>
</table>
</td>
</tr>
</tbody>
</table>
</td>
</tr>
</tbody>
</table>
</td>
</tr>
</tbody>
</table>
</body>
</html>