Unterminated string constant Error

Guys,

I'm writing some code to add records to two tables at once but I keep getting the following error message from the browser:

Unterminated string constant
/dam/da.asp, line 33, column 25

Here's the code, line 33 is commented:

<%
data_source = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("dam2.mdb")
con.Open data_source

Set RS = Server.CreateObject("ADODB.RecordSet")
RS.open "damm", con, 2, 2
RS.addnew
RS("fname") = request.form("fname")
RS("lname") = request.form("lname")
RS("album") = request.form("album")
RS("producer") = request.form("producer")
RS.update
RS.movelast

strID = RS("PR")
RS.Close
set RS = nothing

strSQL = "INSERT INTO damm2(PR, album, producer)"
strSQL = strSQL & PR & ", /this is line 33 of the code
strSQL = strSQL & "'" & request("album") & "',
strSQL = strSQL & "'" & request("producer") & "'
con.execute(strsql)<br>

con.Close
Set con = Nothing

 
%>

Any help will be greatly appreciated.

Groq

thanks for the reply it fixed that problem but this stubborn browser spits another error message as follows:

Item cannot be found in the collection corresponding to the requested name or ordinal.
/dam/da.asp, line 24

here's the updated code, line 24 is commented:

<%
strconn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("dam2.mdb")
set con = server.createobject("adodb.connection")
con.Open strconn

Set RS = Server.CreateObject("ADODB.RecordSet")
RS.open "damm", con, 3, 3
RS.addnew
RS("fname") = request.form("fname")
RS("lname") = request.form("lname")
RS("album") = request.form("album") /this is line 24
RS("producer") = request.form("producer")
RS.update
RS.movelast

strID = RS("PR")
RS.Close
set RS = nothing

strSQL = "INSERT INTO damm2(PR, album, producer)"
strSQL = strSQL & PR & ","
strSQL = strSQL & "'" & request("album") & "',"
strSQL = strSQL & "'" & request("producer") & "'"
con.execute(strsql)

con.Close
Set con = Nothing

 
%>

What could the problem be now?