Expected end of statement

Microsoft VBScript compilation error '800a0401'

Expected end of statement

/update.asp, line 20

strSQL = strSQL & " WHERE '"strDateStamp"'"
----------------------------^

Denne fejl får jeg ved flg. kode

strDateStamp = DatePart("yyyy", Date())
strDateStamp = strDateStamp & Right("0" & DatePart("m", Date()), 2)
strDateStamp = strDateStamp & Right("0" & DatePart("d", Date()), 2)

Dim cnstDBPath
  cnstDBPath = ("XXXXXXXXXXXXXXX")
  Dim strProvider
 
  Set objConn = Server.CreateObject("ADODB.Connection")
  strProvider = "" & "Provider=Microsoft.Jet.OLEDB.4.0;"
  strProvider = strProvider & "Data Source=" & cnstDBPath & ";"
  strProvider = strProvider & "Persist Security Info=False"
  objConn.Connectionstring = strProvider
  set fso = Server.CreateObject("Scripting.FileSystemObject")
  objConn.Open
   
strSQL = "SELECT [UP_title], [UP_text], [UP_start_date], [UP_end_date] FROM XXXXXXXXXXX"
strSQL = strSQL & " WHERE '"strDateStamp"'"
strSQL = strSQL & " BETWEEN [UP_start_date] AND [UP_end_date]"
strSQL = strSQL & " ORDER BY [UP_start_date] DESC;"
Set objRS = objConn.Execute(strSQL)

Hvad har jeg glemt eller lavet forkert !?