<%@ Language=VBScript %>
<%Response.Buffer=True%>
<% Updated = Request.QueryString("Updated") %>
<% PageTitle = "SiteManager - Add Specification" %>
<% PageID=300 %>
<% Header %>
<% Menu PageID %>
<%' Main body of page goes here ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ %>
<%SSpecAdd%>
<%' End Of Main body ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ %>
<% Footer %>
<% Sub SSpecAdd
SupplyID = Request.QueryString("SID")
error = ""
OpenConnection1
If Request.Form("hidSave")="true" then
If TRIM(Request.Form("txtSpec"))<>"" then
txtSpec=dbReplace(Request.Form("txtSpec"))
SQL="INSERT S_Specs (nSupplyID, txtSpecification) VALUES (" & SupplyID & ",'" & TRIM(txtSpec) & "')"
DB.Execute(SQL)
Response.Redirect("SSpec_Add.asp?SID="&SupplyID)
Else
error="A blank Specification cannot be saved!"
End If
End If
SEL="SELECT * FROM S_Specs WHERE nSupplyID =" & SupplyID
SET rs=Server.CreateObject("ADODB.Recordset")
rs.Open SEL,DB,1,3
%>
<%= FormatDateTime(Date,1) %>
Current Specifications
<%
If NOT rs.EOF then
Do While Not rs.EOF%>
| • |
<%=DisPrepText(rs("txtSpecification"))%> |
<%
rs.MoveNext
Loop
rs.Close
%>
<%
Else
%>
There are no Specifications entered for this Supply. |
<%
End If%>
<%If error<>"" then
%>
<%=error%>
<%
error=""
End If
%>
<%End Sub %>