Campo data vuoto o valorizzato

[[trodat]]

Buongiorno a tutti.

Ho delle difficoltà con un codice che estrae dei record secondo una richiesta di una data che arriva dal form; in pratica nel form il campo "data" può arrivare vuoto o valorizzato.

Se arriva valorizzato la sql estrae where = datarichiestanelform se, invece, arriva vuoto dovrebbe estrarre tutte le date.

Quando arriva valorizzato non ho nessun problema la sql funziona ed estrae, ma quando arriva vuoto lo script va in errore sulla chiamata al mid della funzione, dove sbaglio?:

Function ConvertiData(data)
    giorno = Mid(data, InStr(1, data, "/") + 1, InStrRev(data, "/") - InStr(1, data, "/") - 1)
    mese = Left(data, InStr(1, data, "/") - 1)
    anno = Right(data, Len(data) - InStrRev(data, "/"))
    ConvertiData = giorno & "/" & mese & "/" & anno
End Function

datapr = ConvertiData(CStr(request.form("datapr")))

[optime]

controlla che non sia vuota, ovvio!

[maximum]

if IsNull(request.form("datapr")) then
   datapr = ""
else
   datapr = ConvertiData(CStr(request.form("datapr")))
end if

[[trodat]]

grazie ma non si risolve, anche perchè la select da cui arriva la data è questa

 <option value="0">Seleziona data</option>

[optime]

non capisco... se è vuota è vuota, può provenire da dovunque...

[fraude]

if request.form("datapr") = "0" then
   datapr = request.form("datapr")
else
   datapr = ConvertiData(CStr(request.form("datapr")))
end if