getting a binding error in server program

[VictorN]

ok i moved some code around. the problem was it wasn't reading a socket.
now the only error message displaying is the one that started this problem:
ERROR binding with server socket 10013

all the code:

void CSocketTestServerDlg::StartServer()
{
	int iResult = 0;
	WSADATA wsaData;
	iResult = WSAStartup(MAKEWORD(2, 2), &wsaData);

	BOOL bOptVal = FALSE;
    int bOptLen = sizeof (BOOL);

    int iOptVal = 0;
    int iOptLen = sizeof (int);
	
   // WORD w = MAKEWORD(1,1);
  //  WSADATA wsadata;
   // ::WSAStartup(w, &wsadata);

	//char opt = 1; 
	//setsockopt(m_serversocket, SOL_SOCKET, SO_BROADCAST, (char*)&opt, sizeof(char));



	SOCKADDR_IN brdcastaddr;
    int portno = 1818;

	memset(&brdcastaddr,0, sizeof(brdcastaddr));
    brdcastaddr.sin_family = AF_INET;
    brdcastaddr.sin_port = htons(portno);
    brdcastaddr.sin_addr.s_addr = INADDR_BROADCAST;
	m_serversocket = socket(PF_INET, SOCK_DGRAM, IPPROTO_UDP); //listening socket
    if(m_serversocket == -1)
    {
        AfxMessageBox("Socket Initialiation Error");
    }

    //if(bind(m_serversocket, (SOCKADDR*)&serveraddr,sizeof(SOCKADDR_IN)) < 0) 
	int len = sizeof(brdcastaddr);
    char sbuf[1024];

    int ret = sendto(m_serversocket, sbuf, strlen(sbuf), 0, (sockaddr*)&brdcastaddr, len);
    if(ret < 0)
    {
		CString text;
		text.Format(_T("ERROR binding in the server socket: %d"), WSAGetLastError());
		AfxMessageBox(text);
        exit(1);
    }
    ...
}

Don't you see it?
Besides, this line (being uncommeted) must be after socket creation.