Is there somethign wrong with this

Global svr=0


startserver()
startserver()

While Not KeyHit(1)

Wend

Function startserver() 

If svr<>0
Print "Server already started!"
Return
EndIf

 
svr=CreateTCPServer(8080) 
If svr<>0
Print "Server started successfully." 
Else 
Print "Server failed to start." 
End If 

End Function