Advertisement
| 10.01.2008 at 06:57AM PDT, ID: 23777947 |
|
[x]
Attachment Details
|
||
|
[x]
The Solution Rating System
|
||
With so many solutions, how can you tell which solutions are most likely to help you and which ones are not? To provide you with a tool to use, we rate our solutions based on various elements that most accurately determine if a solution is a quality solution. To explain what factors affect the solution rating, here are the elements we take into consideration when formulating our solution rating.
Your Input Matters If you have any suggestions that you would like to make for our rating system, please ask a question in the Suggestions Zone of Community Support. Thank you! |
||
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28: 29: 30: 31: 32: 33: 34: 35: 36: 37: 38: 39: 40: 41: 42: 43: 44: 45: 46: 47: 48: 49: 50: 51: 52: 53: 54: 55: 56: 57: 58: 59: 60: 61: 62: 63: 64: 65: 66: 67: 68: 69: 70: 71: 72: 73: 74: 75: 76: 77: 78: 79: 80: 81: 82: 83: 84: 85: 86: 87: 88: 89: 90: 91: 92: 93: 94: 95: 96: 97: 98: 99: 100: 101: 102: 103: 104: 105: 106: 107: 108: 109: 110: 111: 112: 113: 114: 115: 116: 117: 118: 119: 120: 121: 122: 123: 124: 125: 126: 127: 128: 129: 130: 131: 132: 133: 134: |
<%@ Language=VBScript %>
<!--#include file="includes/adovbs.inc"-->
<!--#include file="includes/ServerFunction.inc"-->
<!--#include file="Tools/userinfo.inc"-->
<%
vMdbFile = Server.MapPath("\virtual\data\EnergySysTC\test.mdb")
vConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security info=False;Data Source=" & vMdbFile
'Open Database Connection
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open vConnStr
set OpRs = server.createobject("adodb.recordset")
%>
<head>
<meta name="HTML_Retention_Review_Frequency" content="">
<meta name="HTML_Last_Reviewed_Date" content="">
<meta name="HTML_Retention_Period_Start_Date" content="9/29/2008">
<meta name="HTML_Initial_Creation_Date" content="9/29/2008 10:43:54 PM">
<meta name="HTML_Record_Title_ID" content="72">
<meta name="HTML_Information_Classification" content="DOW RESTRICTED - For internal use only">
<meta name="HTML_Content_Steward" content="Cannon J u393451">
</head>
<html>
<body bgcolor="#FFFFFF" vlink=red>
<p>
<%
' The first time this page is retrieved and any time it is
' submitted without being completely filled out, the form
' is displayed. If it is submitted and completely filled out
' the form is processed in the Else clause.
If Request("Item")="" Or Request("Description")="" Or _
Request("Price")="" Or Request("Phone")="" Or _
Request("Email")="" Or Request("State")="" Then
%>
Please fill in all of these fields below. Be sure to choose
an appropriate Category for your item.<p>
Be careful when entering a Password and be sure to remember what
you type. You will be required to enter the password later to
identify you if you need to edit or delete this ad.<p>
When you are finished, click the Place Ad button.<p>
<form method="POST" action="placead.asp">
<table>
<tr><td>Item:</td>
<td><input type="text" size="50" name="Item"></td></tr>
<td valign=top>Description:</td>
<td><textarea name="Description" rows="6" cols="50"></textarea></td></tr>
<tr><td>Category:</td>
<td> <select name="Category" size="1">
<option selected value="VEHICLES">Vehicles</option>
<option value="COMPUTERS">Computers/Software</option>
<option value="REALESTATE">Real Estate</option>
<option value="COLLECTIBLES">Collectibles</option>
<option value="GENERAL">General Merchandise</option>
</select></td></tr>
<tr><td>Price:</td>
<td><input type="text" size="10" name="Price">
</td>
</tr>
<tr><td>Phone</td>
<td><input type="text" size="15" name="Phone">
</td>
</tr>
<tr><td>Email:</td>
<td><input type="text" size="50" name="Email">
</td>
</tr>
<tr><td>State:</td>
<td><input type="text" size="2" name="State">
</td>
</tr>
<tr><td>Password:</td>
<td><input type="password" size="50" name="Password">
</td>
</tr>
<tr><td><input type="submit" value="Place Ad"></td></tr>
</table>
</form>
<% Else %>
<%
Dim Query, OpRs, Place
On Error Resume Next
%>
<font size=5><b>CATEGORY: <%=Request("Category")%></b></font>
<%
ShowItem Request("Item"),Request("Description"),_
Request("Price"),Request("Phone"),Request("Email"),_
Request("State"),Date
OpRs.open sql,Conn,adopenkeyset,adlockoptimistic
sql = "Select * FROM tblData WHERE Category='" & _
Request("Category") & "'"
OpRs.AddNew
OpRs("Item") = Request("Item")
OpRs("Category") = Request("Category")
OpRs("Description") = Request("Description")
OpRs("Price") = Request("Price")
OpRs("Phone") = Request("Phone")
OpRs("Email") = Request("Email")
OpRs("State") = Request("State")
OpRs("Posted") = Date
OpRs("Password") = Request("Password")
OpRs.Update
If Err.Number = 0 Then %>
<font size=5><i>Your classified ad has been placed.</i></font><p>
<a href="default.asp">Home</a><p>
<% Else %>
There was an error placing your ad.<p>
Error #<%=Err.Number%>: <%=Err.Description%><p>
<% End If %>
<% End If %>
</body>
</html>
|
Advertisement