Ho questa funzione:
codice:
Function CalculateDateNum(VarDateNum)

	Session.LCID = 1040 
	Dim dtmToDay, NumDif, DifferDay, DiffeDayNextWeek
	dtmToDay = Date()
	
	If WeekDay(dtmToDay) = VarDateNum  Then
	Response.Write(dtmToDay)
	Else 
	  NumDif = WeekDay(dtmToDay) - VarDateNum	'abs() è il numero assoluto
			If left(NumDif, 1) = "-" Then
			 DifferDay = DateAdd("d", - NumDif, dtmToDay)	
			 Response.Write(DifferDay)
			End If
			
			If left(NumDif, 1) <> "-" Then
			 DiffeDayNextWeek = DateAdd("d", - NumDif +7, dtmToDay)
			 Response.Write(DifferDayNextWeek)
			End IF
	End IF
Se faccio
response.write(CalculateDateNum(rs("giorni")))
mi esce il risultato esatto, ad esempio 30/06/2005

Io ho la necessita di estrarre questo valore all'interno di questa stringa che ora è:
codice:
Response.Write "a href=""riduzione2_cene.asp?ID="&l_id&"&idpren="&id_pren&"&date="&data& """>prenota la tua cena</a>"
e deve diventare:
codice:
Response.Write "a href=""riduzione2_cene.asp?ID="&l_id&"&idpren="&id_pren&"&date="&CalculateDateNum(rs("giorni")))& """>prenota la tua cena</a>"
Ma se lo testo mi mette tutta la stringa fermandosi a:
http://www.sito.asp?ID=22&idpren=27&date=
quindi non mette la data!
COme mai all'esterno della stringa del link funziona?