Ending code if variable is blank

[Ram0135]

Hello,
I have a peice of code on a custom search engine in which I write an email to myself for every query. However sometimes no query is made and I want to stop the email from being sent if a variable is blank. Here is what I have:

<%
DIM IPadd, IPproxy, Browser, TimeDone, Referer

IPadd=request.servervariables("REMOTE_ADDR")
IPproxy = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
Browser=request.servervariables("HTTP_USER_AGENT")
TimeDone=Now()
Referer=Request.ServerVariables("HTTP_REFERER")
If IPproxy="" Then IPproxy = request.servervariables("REMOTE_ADDR")

    Dim MyBody
    Dim MyCDONTSMail
	
    Set MyCDONTSMail = CreateObject("CDONTS.NewMail")
    MyCDONTSMail.From= "search@example.com"
    MyCDONTSMail.To= "example@example.com"
    MyCDONTSMail.Subject="Search"
	MyBody ="INFO" & vbCrLf & vbCrLf
	MyBody = MyBody & "Query: " & strquerys & vbCrLf & vbCrLf
	MyBody = MyBody & "IP Address: " & IPadd  & vbCrLf & vbCrLf
	MyBody = MyBody & "Proxy: " & IPproxy & vbCrLf & vbCrLf
    MyBody = MyBody & "Browser: " & Browser & vbCrLf & vbCrLf
	MyBody = MyBody & "Referer: " & Referer & vbCrLf & vbCrLf
    MyBody = MyBody & "Time: " & TimeDone
    MyCDONTSMail.Body= MyBody
    MyCDONTSMail.Send
    set MyCDONTSMail=nothing
%>

if strquerys is blank I want no email to be sent

 

[trollacious]

If Len(strquerys) > 0 Then
Set MyCDONTSMail = CreateObject("CDONTS.NewMail")
MyCDONTSMail.From= "search@example.com"
MyCDONTSMail.To= "example@example.com"
MyCDONTSMail.Subject="Search"
MyBody ="INFO" & vbCrLf & vbCrLf
MyBody = MyBody & "Query: " & strquerys & vbCrLf & vbCrLf
MyBody = MyBody & "IP Address: " & IPadd & vbCrLf & vbCrLf
MyBody = MyBody & "Proxy: " & IPproxy & vbCrLf & vbCrLf
MyBody = MyBody & "Browser: " & Browser & vbCrLf & vbCrLf
MyBody = MyBody & "Referer: " & Referer & vbCrLf & vbCrLf
MyBody = MyBody & "Time: " & TimeDone
MyCDONTSMail.Body= MyBody
MyCDONTSMail.Send
set MyCDONTSMail=nothing
End If