Make our own ebay (auction system) (4)

We'll discuss the easy part. You'll have to create a few forms-one for the users to register (which, get themselves into our auctionusers table), a nd one for sellers to post their info. These forms should are easy to create if you know how to handle forms (check out this WDVL article for more information). Basically, you should collect the information from the forms and update the appropriate tables:



' Set variables and create object
strConnectionString = "dsn=myauction; Uid=username; Pwd=password;database=myauctiondb "
Set rst = Server.CreateObject ("ADODB.") Recordset ")


' Insert info into auction table
strSQL = "INSERT into Tblauctions (StartDate, EndDate, Sellerid)
VALUES (' "& Request.Form (" StartDate ") &" ', ' "& Request.Form (" EndDate ")
& "'," & Sellerid & ")"


Rst.open strSQL, strConnectionString


' Get the ' ID of the auction we just entered
strSQL = "Select Max (aid) as AID from Tblauctions"
Rst.open strSQL, strConnectionString
Intaid = rst (0)
Rst.close


' Insert Item Info
strSQL = "INSERT into Tblauctionitems (AID, Name, Description," & _
"Minprice, Increment, Available)" & _
"VALUES (" & Intaid & "," "& Request.Form (" ItemName ") & _
"', '" & Request.Form ("ItemDescription") & "', '" & _
Request.Form ("Minprice") & "', '" & Request.Form ("Increment")
& _
"'," & Request.Form ("Available") & ")"


Rst.open strSQL, strConnectionString


' Clean up
Set rst = Nothing

The bids are a bit harder to manage. Let's look at the more detail.