C# と VB.NET の質問掲示板

ASP初心者です。
わからないところがありまして、ご質問させてください。

１・実現させたいこと：Cookieから複数のデータを取得し、そのデータで検索を実行し、その実行結果を取得したい。
２・ひらがな等のデータが表示できるようにしたい

環境
・OS：windows XP Pro
・SQL Server 2005

エラー内容
Microsoft VBScript コンパイル エラー エラー '800a0415'

リテラル定数を指定してください。 

*************************************************
<% On Error Resume Next
   project_name = Request.Form("project_name")
   report_date = Request.Form("report_date")
   id = Request.Form("id")
   Const sql_t = "select r.[report_id],p.[pro_id],r.[date],〜中略〜
 　　　　　　　　from [QA2].[dbo].[report] r,[QA2].[dbo].[project] p 
　　　　　　　　　where r.[pro_id] = p.[pro_id] 
                  and p.[pro_name] = '" & project_name & "' 
                  and r.[user_id] = '" & id &"' 
                  and r.[date] = '" & report_date & "'"
   adcn.Open "pubs", "sa", "aa"
   adcd.ActiveConnection = adcn
   Set adpm = adcd.CreateParameter("user_name",129)
   adpm.Value = user_name
   adpm.Size = Len(adpm.Value)
   adcd.Parameters.Append adpm
〜中略〜
%>
〜中略〜
<% adcd.CommandText = sql_t
   adrs.Open adcd, ,3,1,1
   operation_time = adrs(3).Value
   work_time = adrs(4).Value
〜中略〜
%>
	<table>
		<tr>
			<td class="textRed">オペレーション時間：</td>
			<td align="left"><input type="text" size="20" name="operation" id="operation" value="<%= operation_time %>"></td>
		</tr>
		<tr>
			<td>テキスト１：</td>
			<td align="left"><textarea cols="50" rows="10" name="t1" wrap="virtual" id="t1" value="<%= text1 %>"></textarea></td>
		</tr>
〜以下省略

*************************************************

SQLの記述に問題があるのか、【adcd.CommandText = sql_t】のあたりに問題があるのか、
現在調べているのですが、力不足のせいか解決できていません。
SQLにデータを直接指定すれば、エラーは出ないのですが・・・

もう一点あるのですが、サーバーにあるデータに、『ひらがな・カタカナ』があるのですが、表示できません。
半角英数字は表示できるのですが、理由がわかりません。
型は【Verchar(max)】にしています。

解決方法をご指導ご鞭撻いただければ幸いです。

Mr.Tです、こんにちは。


>   Const sql_t = "select r.[report_id],p.[pro_id],r.[date],〜中略〜
> 　　　　　　　　from [QA2].[dbo].[report] r,[QA2].[dbo].[project] p 
>　　　　　　　　　where r.[pro_id] = p.[pro_id] 
>                  and p.[pro_name] = '" & project_name & "' 
>                  and r.[user_id] = '" & id &"' 
>                  and r.[date] = '" & report_date & "'"

文字結合をしたい場合は、Constではなく変数で利用します
複数行になる場合も、変数として宣言してから利用してください。

Dim sql_t = "select *****" & _
              " from *****"

コンパイルエラーなので、エラー行が出てきてませんか？