insert a variable as the default text box value.

Author	Message

mhebner

Total Posts : 2
Scores: 0
Reward points : 0
Joined: 12/3/2008
Status: offline

insert a variable as the default text box value. Tuesday, December 09, 2008 8:04 AM (permalink)

0

Hi, I'm creating a web form that when users complete it and submit the form, it will insert the user entries as a new 'product' record into a 2k SQL Server. The problem I'm having is the record inserts but the GUID is being inserted as a series of spaces instead of the actual generated GUID. Can anyone help me with this? I've tried a hundred different ways to get this to work but still no luck. Below is the code for the 2 pages. The first page is form.asp which is what the visitor sees and completes. When they click on submit, it sends the user form entries to a page called confirm.asp which inserts the record into the database. The main code is on the confirm.asp page. Any help is very much appreciated. Thanks in advance.

form.asp
------------------------
<title>DataPreserve Administration</title>
<form name="AddProducts" method="Post" action="confirm.asp">
<table width="895">
<tr><td colspan="2" align="center">
<img border="0" src="DPwebpageheader.JPG" width="770" height="150">

DataPreserve Administration
Add a New Product
*items with an asterisk
are mandatory fields</tr>
<tr>
<td> </td>
<td>
 <input type="hidden" name="productIdFrmFld" size="50" maxlength="40"> </td>
</tr>
<tr>
<td>*Product Name
(i.e. 1-2GB Pro Backup Service):</td>
<td>
 <input type="text" name="name" size="50" maxlength="20"></td>
</tr>
<tr><td>Product Description (i.e. 1-2GB Pro Backup
Service):</td>
<td>
 <input type="text" name="description" size="50" maxlength="200"></td></tr>
<tr><td>*Price (i.e.
199.99):</td>
<td>
 <input type="text" name="price" size="50"></td></tr>
<tr><td>*Billing Cycle
(i.e. 1 for 1st of month or -1 for no pro-rating or setup fees):</td>
<td>
 <input type="text" name="billingCycle" size="50" maxlength="2" value="1"></td></tr>
<tr><td>Minimum Storage Retention (i.e. 0.00 for
zero storage):</td>
<td>
 <input type="text" name="minRetention" size="50" maxlength="6"></td></tr>
<tr><td>Maximum Storage Retention (i.e. 2.00 for
2GB of storage):</td>
<td>
 <input type="text" name="maxRetention" size="50" maxlength="12"></td></tr>
<tr><td>Free Quantity (this should be a 1 or a
zero):</td>
<td>
 <input type="text" name="freeQuantity" size="50" maxlength="2" value="0"></td></tr>
<tr><td>Inventory Number (i.e. 1234567890):</td>
<td>
 <input type="text" name="inventoryNumber" size="50" maxlength="12"></td></tr>
<tr><td>*Quantity
Question? (Y or N)</td>
<td>
 <input type="text" name="doQuantityQuestion" size="50" maxlength="1" value="N"></td></tr>
<tr><td>Minimum Value Quantity (i.e. 1):</td>
<td>
 <input type="text" name="qtyMinValue" size="50" maxlength="4"></td></tr>
<tr><td>Maximum Value Quantity (i.e. 10):</td>
<td>
 <input type="text" name="qtyMaxValue" size="50" maxlength="6"></td></tr>
<tr><td>Increment Quantity? (this should be a 1 or
a zero)</td>
<td>
 <input type="text" name="qtyIncrement" size="50" maxlength="2"></td></tr>
<tr><td>*Product Group
ID (the default group ID is for remote backup service): </td>
<td>
 <input type="text" name="productGroupId" size="50" maxlength="30" value="CA094F64-B67E-4419-BFF7-E18A3762D180"></td></tr>
<tr><td>*Organization
ID (the default Org ID is for DataPreserve:</td>
<td>
 <input type="text" name="organizationId" size="50" maxlength="36" value="10FC00E5-73F8-4D2F-AA06-939C2E16C7F8"></td></tr>
<tr><td>*Is this a
multiplier? (should be either 1.00 or 0.00)</td>
<td>
 <input type="text" name="isMultiplier" size="50" maxlength="6" value="0.00"></td></tr>
<tr><td>*Is this an
overage (i.e. Y or N)?</td>
<td>
 <input type="text" name="isOverage" size="50" maxlength="1" value="N"></td></tr>
<tr><td>*Is this
product active (i.e. Y or N)?</td>
<td>
 <input type="text" name="isActive" size="50" maxlength="1" value="Y"></td></tr>
</table>

<input type="submit" name="Submit" value="Add New Product">

End of form.asp
------------------------------------------

confirm.asp
-----------------------------------------
<%
Dim cnnSimple ' ADO connection
Dim rstSimple ' ADO recordset
Set cnnSimple = Server.CreateObject("ADODB.Connection")
' DSNLess
Set TypeLib = CreateObject("Scriptlet.TypeLib")
strGUID = TypeLib.Guid
If Len(Request.Form) > 0 Then
cnnSimple.Open "Provider=SQLOLEDB;Data Source=servername;" _
 & "Initial Catalog=catalog;User Id=user;Password=password;" _
 & "Connect Timeout=15;Network Library=dbmssocn;"
Set rstSimple = cnnSimple.Execute("SET NOCOUNT ON; INSERT INTO dbo.product (ProductId, name, description, price, billingCycle, minRetention, maxRetention, freeQuantity, inventoryNumber, doQuantityQuestion, qtyMinValue, qtyMaxValue, qtyIncrement, productGroupId, organizationId, IsMultiplier, IsOverage, IsActive) VALUES ('" & _
Replace(Request.Form("productIdFrmFld"),strGUID,"''")& "', '" & _
Replace(Request.Form("name"),"'","''") & "', '" & _
Replace(Request.Form("description"),"'","''") & "'," & _
Replace(Request.Form("price"),"'","''")& ", '" & _
Replace(Request.Form("billingCycle"),"'","''")& "', '" & _
Replace(Request.Form("minRetention"),"'","''")& "', '" & _
Replace(Request.Form("maxRetention"),"'","''")& "', '" & _
Replace(Request.Form("freeQuantity"),"'","''")& "', '" & _
Replace(Request.Form("inventoryNumber"),"'","''")& "', '" & _
Replace(Request.Form("doQuantityQuestion"),"'","''")& "', '" & _
Replace(Request.Form("qtyMinValue"),"'","''")& "', '" & _
Replace(Request.Form("qtyMaxValue"),"'","''")& "', '" & _
Replace(Request.Form("qtyIncrement"),"'","''")& "', '" & _
Replace(Request.Form("productGroupId"),"'","''")& "', '" & _
Replace(Request.Form("organizationId"),"'","''")& "', '" & _
Replace(Request.Form("IsMultiplier"),"'","''")& "', '" & _
Replace(Request.Form("IsOverage"),"'","''")& "', '" & _
Replace(Request.Form("IsActive"),"'","''")& "');")
Else reply=msgbox("You must complete the form entirely. Please check your entries and try again",65,"Try Again")
document.write(reply)
 document.write("The new product has been added")
 set rstSimple = Nothing
 rstSimple.Close
 set rstSimple = Nothing
End If
%>

#1

Online Bookmarks Sharing:

Jump to:

Current active users

There are 0 members and 1 guests.

Icon Legend and Permission

New Messages
No New Messages
Hot Topic w/ New Messages
Hot Topic w/o New Messages
Locked w/ New Messages
Locked w/o New Messages

Read Message
Post New Thread
Reply to message
Post New Poll
Submit Vote
Post reward post
Delete my own posts
Delete my own threads
Rate post