<%
If Request.Cookies("Webmaster") <> "Validated" Then
Response.Redirect("/ctrfiles/stats/login.asp")
End if
Dim MyFile
MyFile = Server.MapPath("/database/houseview.mdb")
Dim DataConnection, cmdDC, RecordSet
Dim RecordToEdit, Updated
Set DataConnection = Server.CreateObject("ADODB.Connection")
DataConnection.ConnectionTimeout = 20
DataConnection.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & MyFile & ";"
Set cmdDC = Server.CreateObject("ADODB.Command")
cmdDC.ActiveConnection = DataConnection
SQL = "SELECT * FROM Locations ORDER BY Locations.Location ASC"
cmdDC.CommandText = SQL
Set RecordSet = Server.CreateObject("ADODB.Recordset")
RecordSet.Open cmdDC, , 2, 2
If Request.Form("btnAdd") = "Add" Then
if Request.Form("Location") = "" then
Response.Write("
You did not Include a Location
")
Response.Write ("
")
Response.End
end if
RecordSet.AddNew
RecordSet.Fields("Location") = Request.Form("Location")
RecordSet.Update
Added = "True"
End If
%>
--Administration--
Administration Add Location::.
Add New Location...
<%
RecordSet.Close
Set RecordSet = Nothing
Set cmdDC = Nothing
DataConnection.Close
Set DataConnection = Nothing
%>
