Almost right.

You need to make just one or two changes....

    if ($entry_order eq '1') {
       
    }

    {
        my $insert =  "INSERT INTO `mysql_db` (`Title`,
                      `Email`, `City`, `State`, `Country`, 
                      `URL`, `Date`, `Description`, `rid`,
                      `dt_create`, `publish`, ) VALUES (";
    }
[download]

needs to become:

    my $insert;
    if ($entry_order eq '1') {  
    }


    $insert = "INSERT INTO `mysql_db` (`Title`,
              `Email`, `City`, `State`, `Country`, 
              `URL`, `Date`, `Description`, `rid`,
              `dt_create`, `publish`, ) VALUES (";
[download]

and you need to move the insertion into the database up into the loop too.

     if ($entry_order eq '0') {
         $insert .= "<!--begin-->\n";  # This will cause an error
     }
  }
  else {
     $insert .= $_;
  }
}
$sth=$dbh->prepare($insert);
$sth->execute();
$dbh->disconnect();
[download]

Becomes:

      # Removed code which would cause an error
  }
  else {
     $insert .= $_;
  }
  $sth=$dbh->prepare($insert);
  $sth->execute();
}
$dbh->disconnect();
[download]

You'll also need to make some beauty changes... this:

if ( $FORM{'Description'} ){
        $insert .= "$FORM{'Description'}, '', NOW(), 0) \n\n";
}
[download]

should become this:

if ( $FORM{'Description'} ){
        $insert .= "$FORM{'Description'}, '', NOW(), 0)";
}
[download]

etc. I'll leave any other of these up to you. What I've done, is remove the two newlines which were there so that the sql would be easy to read in the file. I believe that mysql would accept the newlines without a problem, but they're probably best removed.

---

Now while this will PROBABLY solve most of your problems this will NOT make your code in the remotest bit secure. Nothing in this code appears to be able to stop me from adding something like the below into the description field.

', '', NOW(), 0); drop table mysql_db; '
[download]

(quotes included). As far as I understand your code this should result in no errors, but should quietly drop your mysql_db table and lose all its records.

This is why we've been recommending placeholders.

You can rewrite this code to use place holders in a few ways. You can use the compact version that I suggested in my previous answer (which should work and would look a tonne nicer) or you could work them into this ugly assignment tree. Of course you could just hope that noone's going to be malicious and try to delete your data too.... but I don't recommend it.

At the very least you should replace all occurances that look like:

$insert .= "$FORM{'URL'}";
[download]

to look like:

$insert .= $dbh->quote($FORM{'URL'});
[download]

and don't forget to quote $FORM{Description} too.

Good luck with all of this. I hope you've learned something. I'm sure that with a little bit more work you could have written your own guestbook script to use the database and do almost everything else you wanted. In fact, I recommend that you give that a go sometime, because it'll probably be a great learning experience.

If my suggestions here still don't solve all of your problems then stop and think hard about what the code is actually doing, before you post again. And if you still don't understand what it's doing then AT THE VERY LEAST don't just say "it gives me errors" tell us WHAT errors it gives you. If the errors are on line 8 then tell us what line is line 8. Tell us what you've tried. Tell us what you think is happening.

Give us some reason to believe that you're actually investing your own time into this problem rather than just insisting that we invest our own.

Hope this helps,

jarich

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.