aspnetguy Posted August 3, 2006 Share Posted August 3, 2006 Thats your problemchange this to UPDATE tblseats SET status='',cust_forename='',cust_surname='',cust_book_id='',cust_address='',cust_postcode='',cust_area_code='',cust_tel_number='',cust_cc='', to UPDATE tblseats SET status='',cust_forename='',cust_surname='',cust_book_id='',cust_address='',cust_postcode='',cust_area_code='',cust_tel_number='',cust_cc='' However this will update every record in your table you need to set some conditions like WHERE cust_id='233' or something like that.when you run this be sure to uncomment line 26 so it starts executing again. Link to comment Share on other sites More sharing options...
musicradiolive Posted August 3, 2006 Author Share Posted August 3, 2006 if Request.querystring("action")<>"Save" then seat=Request.Form("seat") 'sql="UPDATE tblseats SET status='" & Request.Form("status") & "',"UPDATE tblseats SET status='',cust_forename='',cust_surname='',cust_book_id='',cust_address='',cust_postcode='', cust_area_code='',cust_tel_number='',cust_cc='' WHERE tblseats.seat=" & no sql=sql & "cust_forename='" & Request.Form("cust_forename") & "'," sql=sql & "cust_surname='" & Request.Form("cust_surname") & "'," sql=sql & "cust_book_id='" & Request.Form("cust_book_id") & "'," sql=sql & "cust_address='" & Request.Form("cust_address") & "'," sql=sql & "cust_postcode='" & Request.Form("cust_postcode") & "'," sql=sql & "cust_area_code='" & Request.Form("cust_area_code") & "'," sql=sql & "cust_tel_number='" & Request.Form("cust_tel_number") & "'," sql=sql & "cust_cc='" & Request.Form("cust_cc") & "'," 'sql=sql & "cust_cc='" & now() & "' WHERE tblseats.seat=" & noconn.Execute sql, Recordsaffected Thats what i am now running and i now get the error:Microsoft VBScript compilation (0x800A0401)Expected end of statement/bookseat_process.asp, line 17, column 16UPDATE tblseats SET status='',cust_forename='',cust_surname='',cust_book_id='',cust_address='',cust_postcode='', cust_area_code='',cust_tel_number='',cust_cc='' WHERE tblseats.seat=" & no---------------^ Link to comment Share on other sites More sharing options...
aspnetguy Posted August 3, 2006 Share Posted August 3, 2006 what does this mean? WHERE tblseats.seat=" & no Link to comment Share on other sites More sharing options...
musicradiolive Posted August 3, 2006 Author Share Posted August 3, 2006 i dont know, you told me to add a where so i added that, i thought thats what you meant lol. Link to comment Share on other sites More sharing options...
aspnetguy Posted August 3, 2006 Share Posted August 3, 2006 lolanyways I assume the user is only reserving one seat with this form right???so you want to only update that one seat.Without a WHERE clause your script will reserve EVERY seat.so if you add something like "UPDATE ....SET.....WHERE seat = '" & Request.Querystring("seat") & "'" providing the seat querystirng contained the name of the seat like A1 or B7Also assuming that the field 'seat' is the proper name.Do you see what I mean? Link to comment Share on other sites More sharing options...
musicradiolive Posted August 3, 2006 Author Share Posted August 3, 2006 they will only be reserving one seat at a time, yes, I did think about adding funcions for reserving a number of seats, but decided against it (mainly cos its more work lol)urmm, i run the form so it now sends me to:http://127.0.0.1/bookseat_process.asp?acti...ave&seat=a1So then it specifys a seat and the action in the query string.The code i updated now looks like: UPDATE tblseats SET status='',cust_forename='',cust_surname='',cust_book_id='',cust_address='',cust_postcode='',cust_area_code='',cust_tel_number='',cust_cc='' WHERE seat = '" & Request.Querystring("seat") & "'" I get the error:Microsoft VBScript compilation (0x800A0401)Expected end of statement/bookseat_process.asp, line 17, column 16 Link to comment Share on other sites More sharing options...
aspnetguy Posted August 3, 2006 Share Posted August 3, 2006 please post the entire code for bookseats_process.asp...I am having trouble remebering what is being changed. Link to comment Share on other sites More sharing options...
musicradiolive Posted August 3, 2006 Author Share Posted August 3, 2006 <html><head><title>ADO - Submit DataBase Record</title></head><body><h2>Submit to Database</h2><%'on error resume nextset conn=Server.CreateObject("ADODB.Connection") conn.provider="Microsoft.Jet.OLEDB.4.0"conn.open(server.mappath("show1.mdb"))if Request.querystring("action")<>"Save" then seat=Request.Form("seat") 'sql="UPDATE tblseats SET status='" & Request.Form("status") & "',"UPDATE tblseats SET status='',cust_forename='',cust_surname='',cust_book_id='',cust_address='',cust_postcode='',cust_area_code='',cust_tel_number='',cust_cc='' WHERE seat = '" & Request.Querystring("seat") & "'" sql=sql & "cust_forename='" & Request.Form("cust_forename") & "'," sql=sql & "cust_surname='" & Request.Form("cust_surname") & "'," sql=sql & "cust_book_id='" & Request.Form("cust_book_id") & "'," sql=sql & "cust_address='" & Request.Form("cust_address") & "'," sql=sql & "cust_postcode='" & Request.Form("cust_postcode") & "'," sql=sql & "cust_area_code='" & Request.Form("cust_area_code") & "'," sql=sql & "cust_tel_number='" & Request.Form("cust_tel_number") & "'," sql=sql & "cust_cc='" & Request.Form("cust_cc") & "'," 'sql=sql & "cust_cc='" & now() & "' WHERE tblseats.seat=" & noconn.Execute sql, RecordsaffectedResponse.Write(sql) if err <> 0 then Response.Write("You do not have permission to update this database!") 'else 'Response.Write("Record number " & no & " was updated.") end if 'Response.Redirect("showavail.asp")end if'if Request.Form("action")="Delete" then 'no=Request.Form("no")' conn.Execute "DELETE FROM tblGuestBook WHERE tblGuestBook.[no]=" & no, Recordsaffected' if err <> 0 then' Response.Write("You do not have permission to delete a record from this database!")' else ' Response.Write("Record number " & no & " was deleted.")' end if 'Response.Write("Deleting records has been disabled from this demo")'end ifconn.close%></body></html> Thats the ENTIRE page Link to comment Share on other sites More sharing options...
musicradiolive Posted August 4, 2006 Author Share Posted August 4, 2006 SORTED!I have used a slightly different way and it works fine, the only thing now is the first page that shows the seats, if the seat is booked it still links, is there anyway i can change that? <html><head><title>Seating Availability</title></head><body><style type="text/css"><!--.style1 { color: #CCCCCC; font-family: Verdana, Arial, Helvetica, sans-serif;}body { margin-top: 0px;}body,td,th { font-family: Verdana, Arial, Helvetica, sans-serif;}--></style><table width="720" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td bgcolor="#333333"><p>Â </p> <h1 align="center" class="style1">STAGE</h1> <p align="center" class="style1">Â </p></td> </tr></table><table width="700" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td bgcolor="#333333">Â </td> </tr></table> <table width="710" height="30" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td>Â </td> </tr> </table> <p> <% Dim adoCon 'Holds the Database Connection ObjectDim rsShow1Avail 'Holds the recordset for the records in the databaseDim strSQL 'Holds the SQL query to query the database Set adoCon = Server.CreateObject("ADODB.Connection")adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("show1.mdb")Set rsShow1Avail = Server.CreateObject("ADODB.Recordset")strSQL = "SELECT tblSeats.Seat, tblSeats.Status FROM tblSeats;"rsShow1Avail.Open strSQL, adoConResponse.Write "<table width=700 border=0 align=center>"'While NOT rsShow1Avail.EOF' If rsShow1Avail("status") = "Booked" Then' col = "Red"' Else ' col = "Green"' End IfWhile NOT rsShow1Avail.EOF If sLetter <> Left(rsShow1Avail("seat"), 1) Then If sLetter <> "" Then Response.Write "</tr>" End If Response.Write "<tr>" sLetter = Left(rsShow1Avail("seat"), 1) End If If rsShow1Avail("seat") = "A6" Then Response.Write "<td rowspan=20 width=40></td>" End If If rsShow1Avail("status") = "Booked" Then col = "Red" Else col = "Green" End If Response.Write "<td><table width=80% border=1 align=center><tr><td bgcolor=""" & col & """><div align=center class=style3><font face=verdana><a href=update_form.asp?ID=" & rsShow1Avail("seat") & ">" & rsShow1Avail("Seat") & "</a></font></div></td></tr></table></td>" rsShow1Avail.Movenext()WendResponse.Write "</tr></table>"rsShow1Avail.CloseSet rs = NothingSet adoCon = Nothing%> <style type="text/css"><!--body,td,th { color: #FFFF33;}a:link { color: #FFFF00;}a:visited { color: #FFFF00;}a:active { color: #FFFF00;}--> </style> </p></body> Link to comment Share on other sites More sharing options...
aspnetguy Posted August 4, 2006 Share Posted August 4, 2006 do this Response.Write "<td><table width=80% border=1 align=center><tr><td bgcolor=""" & col & """><div align=center class=style3><font face=verdana>"If rsShow1Avail("status") <> "Booked" Then Response.Write "<a href=update_form.asp?ID=" & rsShow1Avail("seat") & ">" & rsShow1Avail("Seat") & "</a>"Else Response.Write rsShow1Avail("Seat")End IfResponse.Write "</font></div></td></tr></table></td>" Link to comment Share on other sites More sharing options...
musicradiolive Posted August 4, 2006 Author Share Posted August 4, 2006 All the links are gone with that?! Link to comment Share on other sites More sharing options...
aspnetguy Posted August 4, 2006 Share Posted August 4, 2006 you do have an sql field called 'status' right? And if a seat is booked status says "Booked" right?Is it possible to see a screenshot of the database table (including the data). Link to comment Share on other sites More sharing options...
musicradiolive Posted August 4, 2006 Author Share Posted August 4, 2006 http://www.musicradiolive.com/databasetable.bmp Link to comment Share on other sites More sharing options...
aspnetguy Posted August 4, 2006 Share Posted August 4, 2006 try changing hte if statement to this If StrComp(Trim(rsShow1Avail("status")),"Booked") <> 0 Then Link to comment Share on other sites More sharing options...
musicradiolive Posted August 4, 2006 Author Share Posted August 4, 2006 HiyaThat didn't work, however, i did play with it slightly and it worked: If StrComp(Trim(rsShow1Avail("status")),"Booked") = 1 Then That seemed to have worked! lolThanks for that, very much appreciated. Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now